Código Delphi [-] procedure TForm1.Button1Click(Sender: TObject); var fecha: string; begin Fecha := DateTimetoStr(DateTimePicker1.DateTime); ShowMessage(Fecha); end;
procedure TForm1.Button1Click(Sender: TObject); var fecha: string; begin Fecha := DateTimetoStr(DateTimePicker1.DateTime); ShowMessage(Fecha); end;