MillisecondSpan mit Turbo Pascal?!?

[Christian.Ossi]

In Delphi gibt es ja den MillisecondSpan - Befehl, um die Zeit zwischen 2 TDateTime - Werten zu bestimmen...nun meine Frage, gibt es einen Befehl, der das selbe Bewirkt auch für das alte Turbo Pascal 7.0 (Dos)??? Oder kann man das da ähnlich umsetzen.

Das Problem ist, dass ich nicht einfach in TP7.0 schreiben kann:

If Zeit1 < Zeit2 then Result:=Zeit2 - Zeit1 Else Result:=Zeit1 - Zeit2; Habe da mal den Befehl versucht selber umzusetzen--aber anscheinend ist diese Operation in TP nicht erlaubt!


Hab dann noch ne 2. Frage...
in Delphi kann man ja einfach eine TDateTime - Variable mit Now belegen, um das aktuelle Datum und aktuelle Zeit zu setzen. Wie belegt man in TP7.0 die Variable DateTime???