Função para obter a data atual do sistema.
Existem três exemplos básicos:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
| // Função do Delphi: Today
// Função do Delphi: Date
// Função do Delphi: Now
procedure TForm1.Button1Click(Sender: TObject);
begin
{ É necessário declarar DateUtils,
versões unidoce declare System.DateUtils }
ShowMessage( FormatDateTime('dd.mm.yyyy', Today) );
{ É necessário declarar SysUtils,
versões unidoce declare System.SysUtils }
ShowMessage( FormatDateTime('dd.mm.yyyy', Date) );
{ É necessário declarar SysUtils,
versões unidoce declare System.DateUtils }
// Aqui vem a hora atual também.
ShowMessage( FormatDateTime('dd.mm.yyyy hh:MM:ss', Now) );
end; |
// Função do Delphi: Today
// Função do Delphi: Date
// Função do Delphi: Now
procedure TForm1.Button1Click(Sender: TObject);
begin
{ É necessário declarar DateUtils,
versões unidoce declare System.DateUtils }
ShowMessage( FormatDateTime('dd.mm.yyyy', Today) );
{ É necessário declarar SysUtils,
versões unidoce declare System.SysUtils }
ShowMessage( FormatDateTime('dd.mm.yyyy', Date) );
{ É necessário declarar SysUtils,
versões unidoce declare System.DateUtils }
// Aqui vem a hora atual também.
ShowMessage( FormatDateTime('dd.mm.yyyy hh:MM:ss', Now) );
end;
Post Views: 22.963
-
InfusTec
-
- 0 comentários
- 20 de março de 2015
