不同格式的時間.如何對比?
一種時間格式為:200406 (年月)
另一種格式為:2004-8-16 (年-月-日)
我現在要將兩個時間進行對比.要怎么樣轉換才行呢?
要求能做到下面的對比:
dim A as date1
dim B as date2
if A=B then
msgbox"時間相同!"
end if
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