Vbscript 日期格式功能，用于将日期显示为"；2014年1月13日“；

是否有任何函数可以在VBScript中以

mmm dd yyy

格式显示日期？ 今天的日期是2014年1月22日

我试着使用这个函数

FormatDateTime(Now(), 2)

我是在2014年1月16日拿到的

---

是否有任何函数/格式可以作为2014年1月16日的

获取？
使用.NET Stringbuilder-对于所有的格式需求-您可以获得最大的回报：

Option Explicit

Class cFormat
  Private m_oSB
  Private Sub Class_Initialize()
    Set m_oSB = CreateObject("System.Text.StringBuilder")
  End Sub ' Class_Initialize
  Public Function formatOne(sFmt, vElm)
    m_oSB.AppendFormat sFmt, vElm
    formatOne = m_oSB.ToString()
    m_oSB.Length = 0
  End Function ' formatOne
  Public Function formatArray(sFmt, aElms)
    m_oSB.AppendFormat_4 sFmt, (aElms)
    formatArray = m_oSB.ToString()
    m_oSB.Length = 0
  End Function ' formatArray
End Class ' cFormat

Dim oFmt : Set oFmt = New cFormat
WScript.Echo oFmt.FormatOne("Today: {0:MMM dd yyyy}", Date())
WScript.Echo oFmt.FormatOne("Today: {0:yyyy-MM-dd [MMMM]}", Date())

输出：

cscript 21279700.vbs
Today: Jan 22 2014
Today: 2014-01-22 [Januar]

查看背景。
FormatDate

根据系统区域设置中配置的格式格式化日期。如果需要使用VBScript内置的自定义日期格式，请执行以下操作：

WScript.Echo MonthName(Month(Now), True) & " " & Day(Now) & " " & Year(Now)

---

下面的函数将帮助以“dd-mmm-yyyy-hh:mm:ss”格式返回。 您可以根据需要自定义格式

Function timeStampForLogging(t)
    Dim Months

    Months = Array("Jan", "Feb", "Mar", "Apr", "May", "Jun", _ 
                   "Jul", "Aug", "Sep", "Oct", "Nov", "Dec") 


    timeStampForLogging =  Right("0" & Day(t),2)& "-" & _
    Months(Month(t)-1)  & "-" & _
    Year(t) & " " & _  
    Right("0" & Hour(t),2) & ":" & _
    Right("0" & Minute(t),2) & ":" & _
    Right("0" & Second(t),2) 
End Function

---

这里有大量的例子-哦，显然一般来说，至少在ASP中，您必须执行

MonthName（Month（myDate））

。您是对的。显然，我是从（失败的）记忆中键入答案中的片段，而不是实际查找答案。谢谢你的提醒。现在已修复。

月（对（“0”和月（t），2））

-不严重？@Ekkehard.Horner我仍在处理vbscript文件和与上述相同的解决方案。并更新了答案，因为得到了错误的输出，但希望这一个是好的