คัดลอกรหัสดังนี้: yxq = cdate (rdsinfo ("infodate")) // รับช่วงเวลาที่ถูกต้อง
fbsj = formattime (rdsinfo ("createTime"), 8) // เผยแพร่เวลา
dqsj = dateadd ("d", yxq, fbsj) // เวลาหมดอายุ
sysj = datediff ("d", วันที่ (), dqsj) // ตัดสินเวลาที่เหลือหรือว่ามันจะหมดอายุ
ifsysj <0 แล้ว
sysj = "<fontcolor =#808080> หมดอายุ </font>"
อื่น
sysj = "<fontcolor =#ff0000>" & sysj & "</font> วัน"
endif