第1个回答 2013-06-05
Private Sub Command1_Click()
Dim a As Date
Dim b As Date
Dim c As Date
Dim d As Long
Dim e As Long
a = Text2.Text & "/" & Text3.Text & "/" & Text1.Text
b = DateAdd("d", 10000, a)
Label1.Caption = "生日10000天后是" & b
c = Date
d = DateDiff("d", c, b)
e = d * 24 - DateDiff("h", Now(), b & " 00:00:00")
Label2.Caption = "还有" & d & "天" & e & "小时"
End Sub本回答被提问者和网友采纳