Datum in Numerischen Wert umwandeln

[Berserker]

Hallo Delphi-Gemeinde.

Ich stehe mal wieder vor einem Problem wo ich bis jetzt keine Lösung gefunden habe.

Ich portiere eine alte Applikation welche auf DBase basierte in Delphi.
zum Problem:

Im Programm wird das aktuelle Tagesdatum in einen numerischen Wert umgewandelt.

Der Befehl unter DBase lautet DTON()

Auszug aus der Hilfe:

Zitat:

Beschreibung:
Die Funktion DTON ("Date to Numeric") wandelt ein Datum in eine Zahl um. Genauer gesagt
berechnet sie, wieviele Tage seit dem 1.1.4713 v.Chr. vergangen sind - ideal, um mit
Datumsangaben zu rechnen.

Wie kann ich diese Funktion in Delphi umsetzten?

MfG, Ronny