Date

Retorna a data atual do sistema. No exemplo, a descrição do componente Label1 assumirá a data atual do sistema assim que o Button1 receber um clique.

Exemplo:

procedure TForm1.Button1Click(Sender: TObject);
begin
 Label1.Caption := 'Hoje é: '+ DateToStr(Date);
end;

Revisão #1
Criado 23 December 2021 17:12:59 por Nicolly Andrielly
Atualizado 30 December 2021 17:18:27 por Nicolly Andrielly