用EncodeDate出错在线等待!

[dichun]

var
yy, yy1, mm, mm1, dd, dd1: string;
begDate,edDate:tdatetime

mm :=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?

[sunzhiquan]

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

[sunzhiquan]

错了
data改为date 当前日期

[dichun]

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

[pandarus]

u