Milliseconds

4D v16.3

Milliseconds


Milliseconds -> 戻り値

引数	型	説明
戻り値	倍長整数	マシンが起動されてからの経過ミリ秒数

説明

Milliseconds は、マシンが起動されてから経過したミリ秒 (1/1000秒) 数を返します。

例題

以下のコードは1分のクロノメータを表示します:

 Open window(100;100;300;200;0;"Chronometer")

 $vhTimeStart:=Current time

 $vlTicksStart:=Tickcount

 $vrMillisecondsStart:=Milliseconds

 Repeat

    GOTO XY(2;1)

    MESSAGE("時間...........:"+String(Current time-$vhTimeStart))

    GOTO XY(2;3)

    MESSAGE("Tick..........:"+String(Tickcount-$vlTicksStart))

    GOTO XY(2;5)

    MESSAGE("ミリ秒...:"+String(Milliseconds-$vrMillisecondsStart))

 Until((Current time-$vhTimeStart)>=?00:01:00?)

 CLOSE WINDOW

参照

Current time
Tickcount