类似
2010-6-6 14:31:08
这种格式的怎么转换成
Sun, 06 Jun 2010 06:31:08 GMT

貌似是这样：
Format(
#2010-6-6 14:31:08#
, "ddd,dd mmm yyyy hh:nn:ss") & " GMT"

Sorry，忘了GMT是格林尼治时间了，修改了一下：
Format(DateAdd("h", -8,
#2010-6-6 14:31:08#
), "ddd,dd mmm yyyy hh:nn:ss") & " GMT"
这是VB6的写法，其他的可能不同。

@youbest2013 感谢，成功

这个是我写的，没想到这么简单啊
Function GetDate(sTime As Date) As String
Dim I As Integer
I = Weekday(sTime)
If I = 1 Then
GetDate = "Sun,"
ElseIf I = 2 Then
GetDate = "Mon,"
ElseIf I = 3 Then
GetDate = "Tue,"
ElseIf I = 4 Then
GetDate = "Wed,"
ElseIf I = 5 Then
GetDate = "Thu,"
ElseIf I = 6 Then
GetDate = "Fri,"
ElseIf I = 7 Then
GetDate = "Sat,"
End If
GetDate = GetDate & Str(Day(sTime)) + "-"
I = Month(sTime)
If I = 1 Then
GetDate = GetDate + "Jan" & "-"
ElseIf I = 2 Then
GetDate = GetDate + "Feb" & "-"
ElseIf I = 3 Then
GetDate = GetDate + "Mar" & "-"
ElseIf I = 4 Then
GetDate = GetDate + "Apr" & "-"
ElseIf I = 5 Then
GetDate = GetDate + "May" & "-"
ElseIf I = 6 Then
GetDate = GetDate + "Jun" & "-"
ElseIf I = 7 Then
GetDate = GetDate + "Jul" & "-"
ElseIf I = 8 Then
GetDate = GetDate & "Aug" & "-"
ElseIf I = 9 Then
GetDate = GetDate + "Sep" & "-"
ElseIf I = 10 Then
GetDate = GetDate + "Oct" & "-"
ElseIf I = 11 Then
GetDate = GetDate + "Nov" & "-"
ElseIf I = 12 Then
GetDate = GetDate + "Dec" & "-"
End If
GetDate = GetDate & Trim(Str(Year(sTime))) & Str(Hour(sTime)) & ":" & Str(Minute(sTime)) & ":" & Str(Second(sTime)) & " GMT"
End Function

@youbest2013
其实我需要的，不用-8 啥也不说了，谢谢