Thema: Delphi Uhrzeit addieren

Einzelnen Beitrag anzeigen

Der schöne Günther

Registriert seit: 6. Mär 2013
6.110 Beiträge
 
Delphi 10 Seattle Enterprise
 
#5

AW: Uhrzeit addieren

  Alt 31. Dez 2015, 09:35
Wenn Du einen Wert von dem anderen abziehst erhälst Du einen Double der die Tagesdifferent vor dem Komma und die Zeitdifferenz im Nachkommabereich enthält.
Warum der Aufwand mit Kommazahlen? TTimeSpan hat alles was man braucht:

Delphi-Quellcode:
uses System.TimeSpan;

procedure justTimeSpanThings();
var
   fromDate, toDate: TDateTime;
   timeSpan: TTimeSpan;
begin
   fromDate := EncodeDate(1945, 12, 24);
   toDate := EncodeDate(2015, 12, 28);

   timeSpan := TTimeSpan.Subtract(toDate, fromDate);
   ShowMessageFmt('Das waren %.0f Tage', [timeSpan.TotalDays]);
end;
  Mit Zitat antworten Zitat