Datum und Zeit minus Jetzt gleich Differenz

[Sprint]

Zitat von Teklab:

Wäre das alles am selben Tag ist es kein Problem. Aber das dumme ist wenn ich um 11.11.2004 23:30:00
baue müsste es ja am 12.11.2004 07:30:00 fertig sein. Doch wie zeige ich die restlichen 15Minuten an, wenn ich mich um genau 07:15:00 einlogge?

Nur ein Beispiel!!!

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  BauBeginn, BauEnde: TDateTime;
  BauZeitInStunden: Integer;
  Jetzt: TDateTime;
  RestZeit: TTime;
begin

  // Bauzeit beträgt 8 Stunden
  BauZeitInStunden := 8;

  // Der Bau beginnt am 11.11.2004 um 23:30:00
  BauBeginn := EncodeDateTime(2004, 11, 11, 23, 30, 0, 0);

  // Bauende errechnen
  BauEnde := BauBeginn + EncodeTime(BauZeitInStunden, 0, 0, 0);

  // jetzige Zeit (anstelle von Now, zum Testen) 12.11.2004 07:15:00
  Jetzt := EncodeDateTime(2004, 11, 12, 7, 15, 0, 0);

  // Restzeit errechnen
  RestZeit := BauEnde - Jetzt;

  // Restzeit anzeigen
  ShowMessage(TimeToStr(RestZeit));

end;