信息發布中的判斷過期和有效期的東西

復制代碼 代碼如下:yxq=cdate(rdsInfo("InfoDate"))  //得到有效期
fbsj=FormatTime(rdsInfo("CreateTime"),8)  //發布時間
dqsj=DateAdd( "d" ,yxq ,fbsj)  //到期時間
sysj=DateDiff ("d",date(),dqsj)  //判斷剩余時間 或是否過期
 if sysj<0 then 
sysj="<font color=#808080>過期</font>" 
else 
sysj="<font color=#ff0000>"&sysj&"</font> 天" 
end if