Milliseconds

Home

4D v16.3

Milliseconds


Milliseconds -> Function result

Parameter	Type	Description
Function result	Longint	Number of milliseconds elasped since the machine was started

Description

Milliseconds returns the number of milliseconds (1000th of a second) elapsed since the machine was started.

Example

The following code displays the “Chronometer” window for one minute:

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

 $vhTimeStart:=Current time

 $vlTicksStart:=Tickcount

 $vrMillisecondsStart:=Milliseconds

 Repeat

    GOTO XY(2;1)

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

    GOTO XY(2;3)

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

    GOTO XY(2;5)

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

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

 CLOSE WINDOW