Salin kode sebagai berikut: yxq = cdate (rdsinfo ("infodate")) // Dapatkan periode validitas
fbsj = formattime (rdsinfo ("createTime"), 8) // Publikasikan waktu
dqsj = dateadd ("d", yxq, fbsj) // waktu kedaluwarsa
sysj = tanggal ("d", tanggal (), dqsj) // menilai waktu yang tersisa atau apakah itu berakhir
ifsysj <0then
sysj = "<fontcolor =#808080> kedaluwarsa </font>"
kalau tidak
sysj = "<fontcolor =#ff0000>" & sysj & "</font> hari"
endif