Things to judge expiration and validity in information release

Copy the code as follows: yxq=cdate(rdsInfo("InfoDate"))//Get the validity period

fbsj=FormatTime(rdsInfo("CreateTime"),8)//Publish time

dqsj=DateAdd("d",yxq,fbsj)//Expiration time

sysj=DateDiff("d",date(),dqsj)//Judge the remaining time or whether it expires

ifsysj<0then

sysj="<fontcolor=#808080>Expired</font>"

else

sysj="<fontcolor=#ff0000>"&sysj&"</font>day"

endif