Copie el código de la siguiente manera: yxq = cdate (rdsinfo ("infodate")) // Obtenga el período de validez
FBSJ = FormatTime (rdsinfo ("CreateTeTime"), 8) // Publicar tiempo
dqsj = dataadd ("d", yxq, fbsj) // tiempo de vencimiento
sysj = fatediff ("d", date (), dqsj) // juzga el tiempo restante o si expira
ifsysj <0then
sysj = "<fontcolor =#808080> expirado </font>"
demás
sysj = "<fontcolor =#ff0000>" & sysj & "</font> día"
endif