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

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

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

要求能做到下面的對比:

dim A as date1

dim B as date2

if A=B then

msgbox"時間相同!"

end if