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;