用EncodeDate出错在线等待!

Question

 var
 yy, yy1, mm, mm1, dd, dd1: string;
begDate,edDate:tdatetimemm :=inttostr(firbm-3);
dd:='1';
                  mm1 :=FormatDateTime('MM',date);
                  dd1:= FormatDateTime('DD',date);
                  yy1 := FormatDateTime('YYYY',date);
begDate := EncodeDate(strtoint(yy),StrToint(mm), 1);
edDate := EncodeDate(StrToint(yy1),StrToint(mm1), StrToint(dd1));firbm//是取月涵数
程序执行到begDate是出错。
错误为： is not a vaild integer value?

Answer 1

我自己解决了，
   不能FormatDateTime用他取得YYYY，
   取得的格式不同，
     我用DecodeDate来去的年才正确。

Answer 2

var
    yy,mm,dd:word;
begin
decodedate(data,yy,mm,dd);
showmessage(inttostr(yy)):年
showmessage(inttostr(mm));月
showmessage(inttostr(dd));日

Answer 3

错了
data改为date 当前日期