GetTickCount

LET var = GetTickCount()

• Retorna a hora atual em milissegundos em formato array com os dados do arquivo de código fonte. Para informações do formato do array, consulte a tabela Formato do array de retorno, na área Observações.

 MAIN
  DEFINE l_texto CHAR(150)
  DEFINE l_tempo_ini INTEGER
  DEFINE l_tempo_fim INTEGER

  LET l_tempo_ini = GetTickCount()
  Sleep(3)
  LET l_tempo_fim = GetTickCount()
  LET l_texto = "INI ",l_tempo_ini," - FIM ", l_tempo_fim CLIPPED, " INTERVALO = ",l_tempo_fim - l_tempo_ini

  CALL CONOUT(l_texto)

 END MAIN