Uhrzeiten (Differenz) ermitteln

[eddy]

Hallo Mitchl,

konnte kein Problem finden:

Code:

procedure TForm.SpeedButton1Click(Sender: TObject);
begin
  // Datei öffnen 
  UP_DBActiv(Tab2, SessN, 'c:\tmp\', 'Timetest.DB');
  Tab2.First;
  while not Tab2.Eof do begin
    Tab2.Edit;
    Tab2.FieldByname('T3').AsDateTime :=
                        Tab2.FieldByname('T2').AsDateTime 
                        - Tab2.FieldByname('T1').AsDateTime;
    Tab2.Next;
  end;
end;

mfg
eddy