求格林威治时间转化成北京时间的函数

Question

Tue, 30 Nov 2004 01:35:29 GMT
这样的字符串转化成
2004-11-30 1:35:29

Answer 1

times = "Tue, 30 Nov 2004 01:35:29 GMT"
times_1 = Replace(times, "GMT", "")  '去掉GMT
times_1 = Right(times_1, Len(times_1) - InStr(1, times_1, ","))
MsgBox Format(times_1, "yyyy-mm-dd hh:mm:ss")

Answer 2

谢谢 northwolves(狼行天下) 的提醒!
格林威治时间转化成北京时间要加 8 小时
times = "Tue, 30 Nov 2004 01:35:29 GMT"
times_1 = Replace(times, "GMT", "")  '去掉GMT
times_1 = Right(times_1, Len(times_1) - InStr(1, times_1, ","))
MsgBox DateAdd("h", 8, Format(times_1, "yyyy-mm-dd hh:mm:ss"))

Answer 3

莫版主，我求函数当然知道是要自己写的了，有现成的怎么要求人家
你多写点经典代码出来让大家学习学习啊 
sunxl(小呆) ，谢谢你，否则我要写一大堆代码去解析字符串了总共才能给100分，真是不好意思