请教一个VB程序

来源：百度知道 编辑：UC知道 时间：2024/05/17 02:41:10
任意输入一个2000年1月1日到2008年8月7日的日期，输出离奥运会开幕式还有几天。
用select case语句

Private Sub Command1_Click()
Dim a As Integer,b As String
b=CDate(InputBox("请输入一个2000年1月1日到2008年8月7日的日期"))
a=#2008-08-08#-b
MsgBox "离奥运会开幕式还有" & CStr(a) & "天"
End Sub

没必要搞那么麻烦吧，直接用DateDiff 函数来做吧。

返回 Variant (Long) 的值，表示两个指定日期间的时间间隔数目。