Como codificar uma data a partir de números inteiros?
1
2
3
4
5
6
7
8
9
10
11
| { É necessário declarar SysUtils.
Em versões mais recentes declare System.SysUtils. }
// Função própria do Delphi : EncodeDate( Ano, mês, dia)
// Retorno: TDateTime
// Exemplo de uso
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage( FormatDateTime('dd.mm.yyyy', EncodeDate(2011, 9, 15) ));
end; |
{ É necessário declarar SysUtils.
Em versões mais recentes declare System.SysUtils. }
// Função própria do Delphi : EncodeDate( Ano, mês, dia)
// Retorno: TDateTime
// Exemplo de uso
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage( FormatDateTime('dd.mm.yyyy', EncodeDate(2011, 9, 15) ));
end;
Post Views: 2.212
-
InfusTec
-
- 0 comentários
- 12 de março de 2015
