[Resolvido] Função que retorna data e horário correntes

[Michele_Duarte 0]

http://forum.imasters.com.br/public/style_emoticons/default/closedeyes.gif

function Now: TDateTime;

 

 

 

procedure TForm1.Button1Click(Sender: TObject);

 

begin

 

Label1.Caption := 'Data e hora atual é ' + Str(Now);

 

end;