[ecfisa]

Empezado por ContraVeneno

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;

Mucho más sencillo. Siempre olvido a DecodeDate...

Saludos.