比如判断考试结束时间是否到达？

Rem 格式化指定秒数
'人口参数： TSecond－需要格式化的秒数 Color－数字显示的颜色 ；结果－ [y年][m月][d日]h时n分s秒
function FormatTime(TSecond,Color)
dim TempSec
TempSec = TSecond '总秒数
if TempSec \ 31536000 > 0 then '一年按 365 天计算
FormatTime = FormatTime &"<font color="""&Color&""">"& TempSec \ 31536000 & "</font>年 "
TempSec = TempSec mod 31536000
end if
if TempSec \ 86400 > 0 then '一天按 24 小时计算
FormatTime = FormatTime &"<font color="""&Color&""">"& TempSec \ 86400 &"</font>天 "
TempSec = TempSec mod 86400
end if
FormatTime = FormatTime &"<font color="""&Color&""">"& TempSec \ 3600 & "</font>小时 "
TempSec = TempSec mod 3600
FormatTime = FormatTime &"<font color="""&Color&""">"& TempSec \ 60 &"</font>分钟 "
TempSec = TempSec mod 60
FormatTime = FormatTime &"<font color="""&Color&""">"& TempSec &"</font>秒"
end function
以前收集的，希望能有所帮助