daysbetween, hoursbetween?

[xineohp]

moin,

tDateTime und tDate sind ein und der selbe Typ und beinhalten beide Datum und Uhrzeit. Intern wird das Datum als real-Typ (=Gleitkommazahl) gespeichert. Du kannst also eine als tDatetime deklarierte Variable einfach einer als real/double etc. deklarierten variable zuweisen. Der Vorkommateil beinhaltet dann die Tage seit dem 30.12.1899. Der Nachkommateil beinhaltet den Rest, also Stunden, Minuten, etc.. Deswegen kannst du zwei Datumswerte einfach voneinander abziehen und erälst die Differenz in Tagen und Tagesbruchteilen. Betrachtest du nun nur den Vorkommateil (Nachkommastellen mit Trunc() abschneiden) hast du die Differenz in Tagen. Multiplizierst du die Differenz vorher mit 24 erhälst du die Differenz in Stunden.

Delphi-Quellcode:

var
  TimeNow, TimeThen: tDatetime;
  Diff: double;
  iDaysBetween, iHoursBetween: integer;
  sDaysBetween, sHoursBetween: string;
begin
  Diff := TimeNow - TimeThen;         // Zeitdifferenz in Tagen und Tagesbruchteilen als real-Typ;
 
  iDaysBetween := Trunc( Diff );      // in Tagen als Integer
  iHoursBetween := Trunc( Diff*24 );  // in Stunden als Integer

  sDaysBetween := inttostr(iDaysBetween);     // Umwandlung in string
  sHoursBetween := inttostr(iHoursBetween);
end;