一種時間格式為:200406 (年月)

另一種格式為:2004-8-16 (年-月-日)

我現在要將兩個時間進行對比.要怎么樣轉換才行呢?

要求能做到下面的對比:

dim A as date1

dim B as date2

if A=B then

msgbox"時間相同!"

end if

Option Explicit

Private Sub Command1_Click() Dim a As String Dim b As String

a = "200206" b = "2004-8-16"

a = Left(a, 4) & "-" & Right(a, 2)

MsgBox CDate(a) > CDate(b)

End Sub

在不含-号的日期字符中间加上减号

Option Explicit Dim 日期1 As String Dim 日期2 As String Dim 年 As String Dim 月 As String

Private Sub Form_Load() 日期1 = Now 日期2 = "2008年8月8日" '中国奥运举办时间 日期1 = Format(日期1, "YYYYMM") 日期2 = Format(日期2, "YYYYMM") If 日期1 = 日期2 Then MsgBox "今天中国举办奥运" '如果时间是2008/08/08 就提示 Else 年 = Mid(日期2, 1, 4) - Mid(日期1, 1, 4) 月 = Mid(日期2, 5, 2) - Mid(日期1, 5, 2) MsgBox "中国举办奥运还有" & 年 & "年" & 月 & "个月" End If Me.Hide '隐藏本窗体---只是为了好看 ^____^ End Sub