Como codificar o TTime a partir de números inteiros?
1
2
3
4
5
6
7
8
9
10
| { É necessário declarar SysUtils,
em versões unicode declare System.SysUtils. }
// Função do Delphi: EncodeTime(Horas, minutos, segundos, milésimos)
// Exemplo
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(FormatDateTime('hh:MM:ss', EncodeTime(15, 30, 55, 0) ));
end; |
{ É necessário declarar SysUtils,
em versões unicode declare System.SysUtils. }
// Função do Delphi: EncodeTime(Horas, minutos, segundos, milésimos)
// Exemplo
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(FormatDateTime('hh:MM:ss', EncodeTime(15, 30, 55, 0) ));
end;
Post Views: 1.952
-
InfusTec
-
- 0 comentários
- 20 de março de 2015
