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

本篇文章主要介绍了"delphi ”invalid argument to date encode“的解决方法"，主要涉及到方面的内容，对于Delphijrs看球网直播吧_低调看直播体育app软件下载_低调看体育直播感兴趣的同学可以参考一下： yy,mm,dd:word; // 同比(去年同期) 闰年2月29日无同比，就取去年的2月28日decodedate(dtp1.Date,yy,mm,dd);i...

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

// 环比(上月)  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);

以上就介绍了delphi ”invalid argument to date encode“的解决方法，包括了方面的内容，希望对Delphijrs看球网直播吧_低调看直播体育app软件下载_低调看体育直播有兴趣的朋友有所帮助。

本文网址链接：http://www.codes51.com/article/detail_125305.html