Este comando retorna o tempo em milissegundos a partir do início da sessão Progress.
Se passado um valor Lógio Positivo (YES ou TRUE) à função o seu timer é zerado.
DEF VAR d-segundos AS DEC. /* variavel para mostrar o tempo em segundos */
pause 0 before-hide.
ETIME(yes). /* Zera o Timer */
for each (tabela) :
DISP (tabela) with 1 columns.
end.
ASSIGN d-segundos = ETIME / 1000. /* transformando milisegundo em segundo */
message "Este codigo foi executado em " d-segundos " segundos" view-as alert-box.
Nenhum comentário:
Postar um comentário