quarta-feira, 25 de novembro de 2009

Rotina para retornar a hora, minutos, segundos e milisegundos.

Procedure TForm1.Button2Click(Sender: TObject);
var
Hora, Min, Sec, MSec : Word;
begin
DecodeTime(Now, Hora, Min, Sec, MSec);
Label1.Caption := FormatDateTime(‘hh:mm:ss’,Now)+ ’:’+FormatFloat(‘000’,MSec);
end;

Nenhum comentário:

Postar um comentário