Código Delphi [-] uses DateUtils; procedure TForm1.Button1Click(Sender: TObject); var aa,mm,dd: word; begin with jvDateTimePicker1 do begin DecodeDate(Date, aa, mm, dd); end; ShowMessage(Format('%d %d %d',[aa,mm,dd])); end;
uses DateUtils; procedure TForm1.Button1Click(Sender: TObject); var aa,mm,dd: word; begin with jvDateTimePicker1 do begin DecodeDate(Date, aa, mm, dd); end; ShowMessage(Format('%d %d %d',[aa,mm,dd])); end;