Forum: Object-Pascal / Delphi-Language
Delphi
by S4SH1981,
18. Dez 2008
Der Link bezieht sich auf mein Posting @ MKinzler
Forum: Object-Pascal / Delphi-Language
Delphi
by S4SH1981,
18. Dez 2008
procedure TForm1.Button1Click(Sender: TObject);
var
Date1, Date2, Difference : TDateTime;
begin
Date1 := datetimepicker1.time;
Date2 := datetimepicker2.Time;
Difference := Date2 - Date1;
edit2.Text := inttostr(trunc(difference * 24));
edit1.Text:= IntToStr(Trunc(Difference * 24)) + FormatDateTime(':nn:ss', Difference);
end;
Forum: Object-Pascal / Delphi-Language
Delphi
by S4SH1981,
18. Dez 2008
var
Date1, Date2, Difference : TDateTime;
begin
Date1 := StrToDateTime('01.11.2006 10:00:00');
Date2 := StrToDateTime('02.11.2006 12:15:00');
Difference := Date2 - Date1;
ShowMessage (IntToStr(Trunc(Difference * 24)) + FormatDateTime(':nn:ss', Difference));
end;
Dabei zeigt mir das Programm 26:15:00