Hallo Mitchl,
ich will ja nicht lästern, aber ein bischen Nachdenken hilft manchmal weiter
Beim schnellen Test mit 08:30 bis 04:20 ist mir der Fehler schon aufgefallen, aber das auszuwerten sollte wohl kein Problem sein. Sollte sich das zur Zeit gehörende Datum auch noch um mehr als einen Tag unterscheiden, kann man das natürlich auch noch austesten und auswerten.
Code:
procedure TFInfoFinder.SpeedButton1Click(Sender: TObject);
var
dt, dt1, dt2 : TDateTime;
begin
UP_DBActiv(Tab2, SessN, 'c:\kasse\tmp\', 'Timetest.DB');
Tab2.First;
while not Tab2.Eof do begin
dt1 := Tab2.FieldByname('T1').AsDateTime;
dt2 := Tab2.FieldByname('T2').AsDateTime;
if dt2 < dt1 then begin
dt := 24 - dt1 + dt2;
end
else
dt := dt2 - dt1;
Tab2.Edit;
Tab2.FieldByname('T3').AsDateTime := dt;
Tab2.Next;
end;
end;
mfg
eddy