Milliseconds

4D v15.4

Milliseconds


Milliseconds -> Resultado

Parámetro	Tipo	Descripción
Resultado	Entero largo	Número de milisegundos transcurridos desde que se inició el equipo

Descripción

Milliseconds devuelve el número de milisegundos ( 1milisegundo = 1 milesima de un segundo) pasados desde que se inició el equipo.

Ejemplo

El siguiente código muestra la ventana “Cronómetro” por un minuto:

 Open window(100;100;300;200;0;"Cronómetro")

 $vhHoraInicio:=Current time

 $vlTicsInicio:=Tickcount

 $vrMilisegundosInicio:=Milliseconds

 Repeat

    GOTO XY(2;1)

    MESSAGE("Hora...........:"+String(Current time-$vhHoraInicio))

    GOTO XY(2;3)

    MESSAGE("Tics..........:"+String(Tickcount-$vlTicsInicio))

    GOTO XY(2;5)

    MESSAGE("Milisegundos...:"+String(Milliseconds-$vrMilisegundosInicio))

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

 CLOSE WINDOW

Ver también

Current time
Tickcount