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);



                
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值