Delphi-Quellcode:
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;
Der Datetimepicker1 wird per timer immer mit der aktuellen Zeit versorgt.
per datetimepicker2 gebe ich eine beliebige Zeit ein.
Steht der DTP1 auf 20:48 und ich ich setze den DTP2 auf 0:48
ist die Difference auf -20.
Wie schaffe ich es nun, dass der Datumswechsel miteingerechnet wird.
Klar ist, wenn Difference > 24 then 1 Tag.
Mein Programm soll ein einfacher Shutdown werden, den ich entweder auf eine eingegeben Zeit, oder
auf typische Zeitintervalle einstellen kann.