转换时间为GMT格式的函数

会说话的博客，点我试试：）

我们在做RSS输出时,通常需要把时间转换成GMT格式,很遗憾,ASP中并没有提供这样的函数,那么就需要我们自定义一个函数了.
代码如下:

'转换时间为GMT格式
Function DateTimeToGMT(sDate)
Dim dWeek,dMonth
Dim strZero,strZone
strZero="00"
strZone="+0800"
dWeek=Array("Sun","Mon","Tue","Wed","Thu","Fri","Sat")
dMonth=Array("Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep","Oct","Nov","Dec")
DateTimeToGMT = dWeek(WeekDay(sDate)-1)&", "&Right(strZero&Day(sDate),2)&" "&dMonth(Month(sDate)-1)&" "&Year(sDate)&" "&Right(strZero&Hour(sDate),2)&":"&Right(strZero&Minute(sDate),2)&":"&Right(strZero&Second(sDate),2)&" "&strZone
End Function

调用实例: DateTimeToGMT(Now())

风易博客

风萧萧兮易水寒, 壮士一去兮不复还。

导航

2007-4-12 17:36:9