这种格式日期怎么得到

Question

Mon, 15 Nov 2004 07:35:59 GMT
和now格式不一样 有没有函数转化的？

Answer 1

Dim S As String
Select Case Weekday(Date)
    Case 1
        S = "Sun"
    Case 2
        S = "Mon"
    Case 3
        S = "Tue"
    Case 4
        S = "Wed"
    Case 5
        S = "Thu"
    Case 6
        S = "Fri"
    Case 7
        S = "Sat"
End Select
        
S = S & ", " & Format(Now, "dd mmm yyyy hh:mm:ss") & " GMT"'S的表达式即为：Mon, 15 Nov 2004 16:21:55 GMT

Answer 2

Private Sub Command1_Click()
    MsgBox Format(Now, "ddd, dd mmm yyyy hh:mm:ss") & " GMT"
End Sub