Código Delphi [-]procedure TForm1.Button1Click(Sender: TObject); var fecha : string; begin fecha:= FormatDateTime('yyyy/mm/dd',DateTimePicker1.Date); ShowMessage(fecha); end;
procedure TForm1.Button1Click(Sender: TObject); var fecha : string; begin fecha:= FormatDateTime('yyyy/mm/dd',DateTimePicker1.Date); ShowMessage(fecha); end;