VBS到格式日期日期：星期二，2022年11月18日15:57:11＆＃x2B; 0000

Question

因此，我试图以可读格式正确格式化日期。

这是我的代码。

WScript.Echo(DateDiff("s", "01/01/1970 00:00:00", Now()))

Function sprintf(sFmt, aData)
   With CreateObject("System.Text.StringBuilder")
      .AppendFormat_4 sFmt, (aData)
      sprintf = .ToString()
      .Length = 0
   End With
End Function

Dim CurrTime  : CurrTime = Now()
Dim Elapsed   : Elapsed = Timer()
Dim MilliSecs : MilliSecs = Right("000" & Int((Elapsed - Int(Elapsed)) * 1000), 3)

'echo "Date: " . date("D, d M Y H:i:s O");
'Date: Tue, 18 Nov 2014 15:57:11 +0000

WScript.Echo "Date: ", sprintf( "{0:yyyy/MM/dd HH:mm:ss}", Array(CurrTime)) & "." & MilliSecs

我想实现的输出是这个

Date: Tue, 18 Nov 2022 15:57:11 +0000

，但我缺少分配

Answer 1

Function sprintf(sFmt, aData)
   With CreateObject("System.Text.StringBuilder")
      .AppendFormat_4 sFmt, (aData)
      sprintf = .ToString()
      .Length = 0
   End With
End Function
Dim CurrTime  : CurrTime = Now()
WScript.Echo WeekdayName(Weekday(Now()),True) & ", " & Day(Now()) & " " & MonthName(Month(Now()),True) & " " & sprintf( "{0:yyyy HH:mm:ss}", Array(CurrTime)) & " +0000"

想出了一种方法来获取我想要的输出。