如何从win32的DateTimePicker中分别取出年，月，日

Question

我想从DateTimePicker中分别取出年，月，日。进行分别存储。如何作？

Answer 1

var
  year,month,day:word;
decodedate(form1.DateTimePicker1.DateTime,year,month,day);

Answer 2

var
  Y,M,D:string
longdateformat:='yyyymmdd';
shortdateformat:='yyyymmdd';
Y:=copy(datetostr(DateTimePicker1.date),1,4);
M:=copy(datetostr(DateTimePicker1.date),5,2);
D:=copy(datetostr(DateTimePicker1.date),7,2);

Answer 3

var
   Pyear,PMonth,PDay:word;decodedate(frmjftzd.DTPPrintDate.Date,Pyear,PMonth,PDay);