Function Getannual(T_time:TDateTimePicker):word; var t_year,t_month,t_day:word; begin decodedate(t_year,t_year,t_month,t_day); result:=t_year; end; procedure TForm1.BitBtn1Click(Sender: TObject); begin edit1.Text:=inttostr(Getannual(datetimepicker1)); end; 结果并不是datetimepicker1.date的日期. 我这样也就可以. decodedate(datetimepicker1.Date,year,month,day); edit2.Text:=inttostr(year);//这样是正确的. 开始的方法错在哪里?

Function Getannual(T_time: TDateTimePicker): word;
var
  t_year,t_month,t_day:word;
begin
  decodedate(T_time.date, t_year,t_year,t_month,t_day);
  result := t_year;
end;

--- Everything I say is a lie.