dbgrid iki tarih arası dakika toplamı

[Ahmet ALTUNTAŞ]

merhaba
sql query ile 2 tarih arasını dbgrid 'e aktarıyorum.
griddeki alanlarda giris ve cıkış saatleri adında 2 field var.
forma 1 edit nesnesi koydum ve butona aşagıdaki kodu yazdım.

Kod: Tümünü seç

edit3.text:=floattostr(MinuteSpan(StrtoDatetime(QryHesaplaGirisSaati.text),(strtodatetime(QryHesaplaCikisSaati.Text))));

,

kod çalışıyor ve giris saati ile çıkış saati arasındaki dakikayı edit' e aktarıyor.Ama birden fazla kayıt varsa tek kayıt varmış gibi dakika çıkıyor.
Yardımlarınızı rica ediyorum.

[Ahmet ALTUNTAŞ]

merhaba sorun çözüldü

Kod: Tümünü seç

var s:string;
a,x:integer;
begin
x:=0;
for a:=0 to QryHesapla.recordcount -1 do
begin
s:=floattostr(MinuteSpan(StrtoDatetime(QryHesaplaGirisSaati.text),(strtodatetime(QryHesaplaCikisSaati.Text))));
x:=x+strtoint(s);
Edit3.text:=inttostr(x);
QryHesapla.next;
end;
end;

[conari]

Queryde bir calcfield oluştur.
ve Oncalc eventinde

Kod: Tümünü seç

floattostr(MinuteSpan(StrtoDatetime(QryHesaplaGirisSaati.text),(strtodatetime(QryHesaplaCikisSaati.Text))));

bunu yaz hatta Query veya table mı kullanıyorsunuz bilmiyorum ama DateDiff SQL fonksiyonunu araştırmanızı öneririm.

[Ahmet ALTUNTAŞ]

Teşekkür ederim kardeşim.