HoursBetween OHNE SysUtils und DateUtils ?

[Schwedenbitter]

Hallo,

das Thema ist zwar schon etwas älter aber ich möchte es dennoch erneut aufgreifen:
Auch ich möchte möglichst schlanke exe-Files und daher auf SysUtils verzichten. Dabei gehört die Eingangsfrage vermutlich zu den einfacheren Übungen. Den Quelltext hat der Verfasser nicht mehr gepostet. Hier mal meine Funktion für SecondsBetween:

Delphi-Quellcode:

// Ermittelt die Sekunden zwischen zwei Zeitpunkten
Function SecondsBetween(const ANow, AThen: TDateTime): Int64;
Const
  SecondsADay = 86400;
Begin
  If ANow < AThen Then
    Result:=Trunc(SecondsADay * (AThen - ANow))
  Else
    Result:=Trunc(SecondsADay * (ANow - AThen));
End;

TDateTime muss natürlich noch deklariert werden. HoursBetween sollte ähnlich aussehen.

Ich habe jetzt bereits eine der größeren Suchmaschinen längere Zeit bemüht, finde aber keine Antwort auf mein Problem:
Ich möchte gern - ebenfalls ohne SysUtils - Daten in eine Log-Datei schreiben. Vor den Zeilen sollen jeweils Datum und Uhrzeit stehen. Mir ist es also egal, ob ich an das Datum über TDateTime oder sonstwie heran komme. Wichtig ist mir nur der Verzicht auf SysUtils; und natürlich auf andere große Units.

Hat dazu jemand eine Idee?
Soll ich ein neues Thema aufmachen?

Gruß, Alex