saatten artan zamanı alma

[Ahmet ALTUNTAŞ]

merhaba
tablomda 2 alanım var birtanesi girissaati digeri cikissaati aşagıdaki döngü ile 2 saaat arasındaki farkı bulabiliyorum.
Fakat şöyle birşey yapmam gerek cikissaati eger 18:00:00 dan büyükse ornegin 18:50:00 bu 50 dk lık zamanı ayrı bir fiedl açarak içerisine artan zaman şeklinde yazmak istiyorum.ve 18:50:00 olan saatide 18:00:00 yapıcam.Saati sql sorrguda update komutu ile 18:00:00 yapıyorum ama artan zamanı nasıl ayırıp yazdırıcam bulamadım.
Yardımcı olabıırmısınız.

Kod: Tümünü seç

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

[Ahmet ALTUNTAŞ]

sorun çözüldü!

Kod: Tümünü seç

x:=0;
y:=0;
for a:=0 to QryHesapla.recordcount -1 do
begin
s:=floattostr(MinutesBetween(StrtoDatetime(QryHesaplaGirisSaati.text),(strtodatetime(QryHesaplaCikisSaati.Text))));
if strtoint(s) >= 601 then
begin
y:=strtoint(s)-600;
QryMesai.Close;
QryMesai.SQL.Text:='update tbl_haraket set MesaiSuresi = '''+
inttostr(y) +'''where KartNo='''+ edit4.Text+'''and id='''+QryHesaplaid.AsString+'''';
QryMesai.ExecSQL;