Choses à juger l'expiration et la validité de la communication d'informations

Copiez le code comme suit: yxq = cdate (rdsInfo ("infodate")) // Obtenez la période de validité

FBSJ = FormatTime (RDSInfo ("CreateTime"), 8) // Publier Time

dqsj = dataeadd ("d", yxq, fbsj) // temps d'expiration

sysj = DADIFF ("d", date (), dqsj) // juger l'heure restante ou si elle expire

ifsysj <0Then

sysj = "<fontColor = # 808080> Expiré </font>"

autre

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

endire