Скопируйте код следующим образом: yxq = cdate (rdsinfo ("Infodate")) // Получить период достоверности
fbsj = formattime (rdsinfo ("createTime"), 8) // публикация времени
DQSJ = DateAdd ("D", YXQ, FBSJ) // Время истечения
sysj = datefiff ("d", date (), dqsj) // судить оставшееся время или срок
ifsysj <0then
sysj = "<fontcolor =#808080> истек </font>"
еще
sysj = "<fontcolor =#ff0000>" & sysj & "</font> day"
эндиф