PARADOX的数据库了的字段问题

Question

您如果想得到日期数据为什么不这样：
var
 Present:Tdate;
 Year,Month,day :Word;
 StrYear,strMonth,StrDay :String;
begin
 Present:=DBEdit1.Text;
 DecodeDate(Present,Year,Month,Day);
 //StrToDateTime(present)
 if Day<10  then
  StrDay :='0'+IntToStr(Day)
 else
  StrDay :=IntToStr(Day);
 if Month<10  then
  StrMonth :='0'+IntToStr(Month)
 else
 StrMonth :=IntToStr(Month);
 StrYear :=IntToStr(Year);
 DayLabel.Caption :=StrYear +'年'+StrMonth +'月' + StrDay + '日';