简单问题 如何分别得到DateTimePicker中的年月日

Question

year:=copy(DateTimePicker,1,4);
month:=copy(DateTimePicker,6,2);

Answer 1

DecodeDate(DateTimePicker.date, Year, Month, Day);

Answer 2

decodedate(DateTimePicker1.DateTime,y,m,d);

Answer 3

  DateStr:= Copy(Datetostr(TimePicker.date), 9, 2);
  MonthStr:=Copy(Datetostr(TimePicker.date), 6, 2);
  YearStr:=Copy(Datetostr(TimePicker.date), 3, 2);

Answer 4

var
  year,month,day:word;
begin
    DecodeDate(DateTimePicker.date, Year,Month,Day);
    Label1.Caption := inttostr(year);
    Label2.Caption := inttostr(month);
    Label3.Caption := inttostr(day);
end

Answer 5

┬┴┬┌─　●─┬─　　│─┼─┐　●├─┤○
┴┬┴├┬　┌─┼─　│◎　│　│　○└┬┘●
─┼─││　│　│　　││─┴─┴　──┼──
●│○││　┴─┼─　　│○　　●　／　│　＼
 var
  year,month,day:word;
begin
    DecodeDate(DateTimePicker.date, Year,Month,Day);
    Label1.Caption := inttostr(year);
    Label2.Caption := inttostr(month);
    Label3.Caption := inttostr(day);
end