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.

    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.

Kardeş aşagıdaki kodu denedim fakat hesaplarken hataya düşüyor.Yardıımcı olabılırmısın


procedure TfrmHesapla.BitBtn3Click(Sender: TObject);
var
i,s:integer;
begin
i:=0;
s:=0;
while not QryHesapla.Eof do
i:=floattostr(DbAltGrid1.Columns[7].Field.Value);
s:=floattostr(DbAltGrid1.Columns[8].Field.Value);
QryHesapla.Next;
edit3.text:=floattostr(MinuteSpan(StrtoDatetime(i),(strtodatetime(s))));
end;

Cevap için teşekkür ederim kardeşim.
Veritabanı olarak sql kullanıyorum.
Toplanacak alanlar time

Bunun için ufak bir kod bloğu yazmıstım. Yani Copy fonksiyonu ile istediğim bilgileri integer tipinde tanımladığım bir değişkene(A) atıyordum. Daha sonra Next komutu ile sonraki kayıt içinde aynı işlemi tekrar ettirip daha önceden tanımladığım değişkene (A) ilave edip kesin sonuca ulaşıyordum. Sende öyle yap. Daha kolay yolu vardır ama hiç merak edipte kullanmadım

var b,c:string;
for a:=0 to QryHesapla.recordcount -1 do
begin
b:=copy(DbAltGrid1.Columns[8].Field.asstring,0,2) // Başlangıç noktasını salladım
c:=inttostr(b)+inttostr(b);//Hatam olabilir kontrol et
QryHesapla.next;
end;
showmessage(pchar(inttostr(c));

Yazdığın kod bloğunda Edit3 değeri gelen değer ile toplamayı denedin mi?
var s:string;
for a:=0 to QryHesapla.recordcount -1 do
begin
s:=floattostr(MinuteSpan(StrtoDatetime(QryHesaplaGirisSaati.text),(strtodatetime(QryHesaplaCikisSaati.Text))));
edit3.text:= inttostr(edit3.text)+inttostr(s);
QryHesapla.next;
end;
 Gibi gibi hatalarım olabilir.

s:=floattostr(MinuteSpan(StrtoDatetime(QryHesaplaGirisSaati.text),(strtodatetime(QryHesaplaCikisSaati.Text))));
edit3.text:= edit3.text+s;
QryHesapla.next;
end;
end;

edit3 ün degeri şu şekilde oldu
3 tane kayıt var her bır kayıt ın toplamı 600
600600600

String türündeki değişkene string bilgisini aktarırsan sonuc tabiki de 600600600 olur. Bunun yerine;

var x:integer; // X türünde değişken tanımladık
begin
x:=0; // X 0 değerini aktardık
x:=x+s; // X ile S değerlerini topladık
Edit3.text:=inttostr(x) // Sonucu Edit3 e aktardık