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???

[Luckie]

Zitat von Christian.Ossi:

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

If Zeit1 < Zeit2 then Result:=Zeit2 - Zeit1 Else Result:=Zeit1 - Zeit2;

Und warum nicht?

[Christian.Ossi]

Hier:

http://Christian-Rose.Homepage.T-Onl.../DP/TP/TP7.jpg

[Jelly]

Delphi-Quellcode:

var
 y, m, d, dw : word ;
begin
    getdate (y,m,d,dw) ;
end ;

rsp. gettime

Aber unabhängig davon, wie du die Zeit im alten Pascal ausliest, auf die Millisekunde genau wirds nicht werden, sondern nur auf die 1/13 Sekunde genau. Das liegt an der Taktung des Zeitinterrupts.

[Christian.Ossi]

Hab mich jetzt auch schon darüber gewundert.

gibt doch den Delay-Befehl...und komischerweise stimmt die gemessene Pause nicht mit der im Delay in den runden Klammern angegebenen Wert überein! Der gemessene ist kürzer.

So kam bei einem Programm-Durchlauf mit Delay(5000) der gemessene Wert 4950 raus.
Die Abweichung schwankt zwischen 0% und 2%