28,408
社区成员
发帖
与我相关
我的任务
分享
Function GetGMT(dat)
dim y,m,d,h,mm,s,r
week=split("Sun,Mon,Tue,Wed,Thu,Fri,Sat",",")
mon=split("Jan,Feb,Mar,Apr,May,Jun,Jul,Aug,Sep,Oct,Nov,Dec",",")
y=year(dat)
m=mon(month(dat)-1)
d=day(dat):if d<10 then d="0"&d
h=hour(dat):if h<10 then h="0"&h
mm=minute(dat):if mm<10 then mm="0"&mm
s=second(dat):if s<10 then s="0"&s
w=week(weekday(dat)-1)
GetGMT=w&", "&d&" "&m&" "&y&" "&h&":"&mm&":"&s&" +0800"
End Function