delphi ”invalid argument to date encode“的解决方法

<pre name="code" class="delphi">yy,mm,dd:word; 

// 同比(去年同期) 闰年2月29日无同比，就取去年的2月28日
 decodedate(dtp1.Date,yy,mm,dd);
  if MonthDays[IsLeapYear(yy - 1), mm] < dd then  
    QnDate := FormatDateTime('yyyy.mm.dd',EncodeDate(yy-1,mm,dd-1))
  else
    QnDate := FormatDateTime('yyyy.mm.dd',EncodeDate(yy-1,mm,dd));

// 环比(上月)  1月不取环比
 decodeDate(dtp1.Date,yy,mm,dd);
  if MonthOf(dtp1.Date)=1 then      //判断是否是1月份，或者是 if IntToStr(mm)='1' then  
    sy:=EncodeDate(yy,mm,1)         
  else
    sy:=EncodeDate(yy,mm-1,1);