Es gibt zwei (seltsamerweise kaum bekannte) Funktionen:
Int() und
Frac().
Int() liefert den ganzzahligen Anteil vor dem Komma und ist damit eng verwandt mit Trunc().
Der Unterschied zwischen Int() und Trunc() ist der Rückgabewert:
Int() liefert Extended, während Trunc() ein Int64 zurück gibt.
Frac() liefert den Nachkommaanteil.
Jetzt muss man noch wissen, dass ein Tag = 24 Stunden dem Wert 1.0 im TDateTime-System entsprechen.
Delphi-Quellcode:
var
a, b, c : TDateTime;
begin
a := Now; // Aktuelles Datum + Uhrzeit
b := Int(a); // nur das Datum ohne Uhrzeit bzw. Uhrzeit 0:00:00
c := Frac(a); // nur die Uhrzeit