أشياء للحكم على انتهاء الصلاحية والصلاحية في إصدار المعلومات

انسخ الرمز كما يلي: yxq = cdate (rdsinfo ("infodate")) // احصل على فترة الصلاحية

fbsj = formattime (rdsinfo ("createTime") ، 8) // publish time

dqsj = dateadd ("d" ، yxq ، fbsj) // وقت انتهاء الصلاحية

Sysj = Datediff ("D" ، Date () ، DQSJ)

ifsysj <0then

sysj = "<fontcolor =#808080> انتهت صلاحية </font>"

آخر

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

Endif