Como obter a data atual do Sistema?
Utilize a função disponível no Delphi: Date.
1
2
3
4
5
6
7
8
9
10
11
| // É necessário estar declarado SysUtils na seção uses.
// Em versões mais recentes, declare System.SysUtils.
// Exemplo de uso com a data atual do sistema
procedure TForm1.Button1Click(Sender: TObject);
var
vDate : TDate;
begin
vDate := Date();
ShowMessage(DateToStr(vDate));
end; |
// É necessário estar declarado SysUtils na seção uses.
// Em versões mais recentes, declare System.SysUtils.
// Exemplo de uso com a data atual do sistema
procedure TForm1.Button1Click(Sender: TObject);
var
vDate : TDate;
begin
vDate := Date();
ShowMessage(DateToStr(vDate));
end;
Post Views: 14.886
-
InfusTec
-
- 0 comentários
- 11 de março de 2015
