Dim?s?As?String,?d?As?Date
s?=?InputBox("請輸入妳的出生年月日"?&?vbCrLf?_
&?"格式為yyyy-m-d"?&?vbCrLf?&?"如：1990-6-5")
If?IsDate(s)?Then
d?=?CDate(s)
MsgBox?"妳的生日是"?&?d?&?vbCrLf?_
&?"這個日期起往後10000天是"?&?d?+?10000?&?vbCrLf?_
&?"今天離這個日期有"?&?DateDiff("d",?Now,?d?+?10000)?&?_
"天，合"?&?DateDiff("h",?Now,?d?+?10000)?&?"小時"
Else
MsgBox?"日期輸入錯誤！"
End?If
End?Sub