∧,,∧　かんたんですた。>>710
ミ,, ﾟДﾟ彡

Public Sub Check(ByVal A As String, ByVal B As String)
　If A <> B Then
　　MsgBox "エラー" + vbCrLf + _
　　　　　 A + "≠" + B
　End If
End Sub

'↓グリニッジ時を日本時間に修正する関数
Public Function GuriToJapTime(ByVal GuriTime As String) As String
　Dim Time As Date
　
　Mid$(GuriTime, 5, 1) = "/"
　Mid$(GuriTime, 8, 1) = "/"
　Mid$(GuriTime, 11, 1) = " "
　GuriTime = Left$(GuriTime, 19)
　
　Time = CDate(GuriTime)
　GuriTime = DateAdd("h", 9, GuriTime)
　GuriToJapTime = CStr(GuriTime)
End Function

Public Sub testGuriToJapTime()
　Call Check("2002/07/22 21:13:00", GuriToJapTime("2002-07-22T12:13:00Z "))
　Call Check("2002/07/22 21:13:00", GuriToJapTime("2002-07-22T12:13:00Z"))
End Sub