空间是美国时间。QQ登陆总是出错。有什么办法把系统时间改成北京的？

'生成时间戳

Function ToUnixTime(strTime, intTimeZone)

If IsEmpty(strTime) or Not IsDate(strTime) Then strTime = Now

If IsEmpty(intTimeZone) or Not isNumeric(intTimeZone) Then

intTimeZone = 0

ToUnixTime = DateAdd("h",-intTimeZone,strTime)

ToUnixTime = DateDiff("s","1970-1-1 0:0:0", ToUnixTime)

End Function

可否在这里面转化一呀？