Private Sub Command1_Click()
Dim a As Date
a = "2014-1-1 00:00:00"
Label1.Caption = "2014年1月1日距离现在" & DateDiff("d", a, Now) - 1 & "天" & _
DateDiff("h", a, Now) Mod 24 & "小时" & _
DateDiff("n", a, Now) Mod 60 & "分" & _
DateDiff("s", a, Now) Mod 60 & "秒"
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024