Geht mit Trunc(ADateTime).
Eigentlich wäre hier die Funktion
Int() anstelle von Trunc() zu verwenden.
Trunc() funktioniert zwar auch; liefert aber einen Integer zurück der sogleich in einen Double umgewandelt werden muss.
Delphi-Quellcode:
// Int returns the integer part of X; that is, X rounded toward zero.
function Int(X: Extended): Extended;