Milliseconds

4D v16.3

Milliseconds


Milliseconds -> Resultado

Parâmetro	Tipo	Descrição
Resultado	Inteiro longo	Número de milesegundos passados desde que se iniciou o equipo

Descrição

Milliseconds retorna o número de milesegundos ( 1milesegundo = 1 milésima de um segundo) passados desde que se iniciou o equipamento.

Exemplo

O seguinte código mostra a janela “Cronômetro” por um minuto:

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

 $vhHoraInicio:=Current time

 $vlTicsInicio:=Tickcount

 $vrMilesegundosInicio:=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("Milesegundos...:"+String(Milliseconds-$vrMilesegundosInicio))

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

 CLOSE WINDOW

Ver também

Current time
Tickcount