< script LANGUAGE="VBScript" > < !-- option explicit dim MyDate '结果日期 dim datesub '时间差 dim dd '相差天数 dim hh '相差小时数 dim mm '相差分数 dim ss '相差秒数 dim strTip '标签提示 mydate=CDate("2000-1-1") dim mytime Sub tmraumen_Timer() datesub=datediff("s",now,mydate) dd=fix(datesub/(60*60*24)) hh=fix((datesub-dd*60*60*24)/(60*60)) mm=fix((datesub-dd*60*60*24-hh*60*60)/60) ss=fix(datesub-dd*60*60*24-HH*60*60-MM*60) strtip="离2000年还有" strtip=strtip + cstr(dd) + "天" strtip=strtip + cstr(HH) + "小时" strtip=strtip + cstr(MM) + "分钟" strtip=strtip + cstr(SS) + "秒" lblaumen.caption=strtip end sub -- >