Saati toplayıp böldürme

[monet]

örn. 5 adet süre değerini toplayıp sonrada 5 e bölebileceğim bir component veya formül varmı acaba?

[gkimirti]

Kod: Tümünü seç

var
  tdizi:array[1..5] of TTime;
  sonuc:TTime;
  i:Integer;
begin
  //tdizi[1] den tdizi[5] ekadar time degerlerini gir
  sonuc:=0;
  for i:=1 to 5 do
    sonuc:=sonuc+tdizi[i];
  sonuc:=sonuc/5;

[monet]

Yani benim istediğim gerekirse 100 200 saat olabilcek toplamlar bölüncede kalanı süre cinsinden verebilcek. yani 25:50:30 gibi veya
06:10:05 gibi

[gkimirti]

saatleri ve toplamı TDateTime tanımla
girecegin saatler tarh bilgisi iceriyormu yoksa sadece 24 saatlik veriler mi kullanacaksın
24 saat icindeki zamanları toplayacagını dusunursek
t1:=EncodeTime(s,m,sec,0);
toplam degiskenine toplamı aktaralım
top:=t1+t2+....+tn;
top:=top/n;
toplam degiskeninin tam kısmı 24 saatlik bolumleri gosterir
DecodeTime(h,m,sec);
yani Int(toplam)*24 + h istedigin saat bilgisi