string - VB 脚本日期格式 "YYYYMMDDHHMMSS"

Question

作为标题激增，我需要格式化 now () 函数以显示格式“YYYYMMDDHHMMSS”

我确实尝试过将其拆分，但这会降低我需要保留的前导零

mydt 下面的例子是“27/02/2015 13:02:27”

mydt = now() 

MSGBOX Year(mydt)& Month(mydt)& Day(mydt)& Hour(mydt)& Minute(mydt)& second(mydt)

这将返回“201522713227”

我需要它返回“2015 0 22713 0 227”我可以使用 if < 10 但必须有一个更灵活的方式

Answer 1

感谢@Ekkehard.Horner 和@Bagger

我已经查看了您的建议，并选择了以下建议，以满足我的需求。

我选择了这个，因为它更有用/适应性更强，我可以根据需要交换和更改日期格式。

Dim g_oSB : Set g_oSB = CreateObject("System.Text.StringBuilder")

Function sprintf(sFmt, aData)
   g_oSB.AppendFormat_4 sFmt, (aData)
   sprintf = g_oSB.ToString()
   g_oSB.Length = 0
End Function

'-------------------------------------------------------------------

Dim dt : dt = now()

WScript.Echo sprintf("{0:yyyyMMddhhmmss}", Array(dt))

这将返回所需格式的值 yyyyMMddhhmmss

20150302110727

如果您只需要日期，您只需更改 sprintf

sprintf("{0:yyyyMMdd}", Array(dt))

只想要时间

sprintf("{0:hhmmss}", Array(dt))

等等.....