Vbscript月和秒函数到小数点后3位

我正在尝试编写一个vbscript，以特定的方式将日期和时间写入配置文件。我一直在研究网络，但无法找到如何正确设置秒函数的格式。甚至不确定这是否可能。如有任何帮助或推荐，将不胜感激。我的问题是，是否有一种方法来格式化月和秒函数，以便如果单个数字月和秒将显示3位小数，则月将显示为MM

这是我到目前为止试过的，但无效

myDate = (Year(Now) & "-" & Month(date) & "-" & day(date) & "T" & Hour(Time) & ":" & Minute(time) & ":" & Second(time) ' Displays as YYYY-MM-DDTHH:MM:SS

second = FormatNumber(Second, 3)

write.write(myDate)

我需要它显示为YYYY-MM-DDTHH:MM:SS.SSS。提前谢谢

在vbscript中，似乎可以将“Now（）”函数转换为double以提供这种精度。

CStr(Year(Date())) & "-" & Right("0" & CStr(Month(Date())), 2) & "-" & Right("0" & CStr(Day(Date())), 2)

在vbscript中，似乎可以将“Now（）”函数转换为double以提供这种精度

CStr(Year(Date())) & "-" & Right("0" & CStr(Month(Date())), 2) & "-" & Right("0" & CStr(Day(Date())), 2)

此代码将创建YYYY-MM-DD

我想你明白了，你可以自己添加时间部分

此代码将创建YYYY-MM-DD

---

我想你明白了，可以自己添加时间成分了

使用pad函数来填充额外的零。使用计时器捕获毫秒

Option Explicit
Dim timerNow, myNow, myDate

timerNow = cStr(cdbl(timer))
myNow = now()

myDate = (Year(myNow) & "-" & _
    zeropad(Month(myNow),2) & "-" & _
    zeroPad(day(myNow),2) & "T" & _
    zeroPad(Hour(myNow),2) & ":" & _
    zeroPad(Minute(myNow),2) & ":" & _ 
    zeroPad(Second(myNow),2) & "." & _
    left(split(timerNow, ".")(1),3)) ' Displays as YYYY-MM-DDTHH:MM:SS.SSS


Private Function zeroPad(byval strInput, byval padCount)
    If len(strInput) < padCount Then
        zeroPad = string(padCount - len(strInput), "0") & strInput
    Else
        zeroPad = strInput
    End If
End Function

选项显式
暗淡的时间现在，我的现在，我的日期
timerNow=cStr（cdbl（定时器））
myNow=now（）
myDate=（年份（myNow）&“-”和_
zeropad（月份（myNow），2）和“-”和_
zeroPad（日期（myNow），2）和“T”以及_
zeroPad（小时（myNow），2）和“&”_
zeroPad（分钟（myNow），2）和“&”
zeroPad（第二个（myNow），2）和“&”_
左侧（拆分（timerNow，“.”（1），3））'显示为YYYY-MM-DDTHH:MM:SS.SSS
专用函数zeroPad（byval strInput、byval padCount）
如果len（strInput）

---

这里有一件事可能出错：当检索到

myNow

和

timerNow

时，时间从n.999跳到n+1.000。理想化您可以从timerNow中提取myNow，但这是留给读者的练习。

使用pad函数来填充额外的零。使用计时器捕获毫秒

Option Explicit
Dim timerNow, myNow, myDate

timerNow = cStr(cdbl(timer))
myNow = now()

myDate = (Year(myNow) & "-" & _
    zeropad(Month(myNow),2) & "-" & _
    zeroPad(day(myNow),2) & "T" & _
    zeroPad(Hour(myNow),2) & ":" & _
    zeroPad(Minute(myNow),2) & ":" & _ 
    zeroPad(Second(myNow),2) & "." & _
    left(split(timerNow, ".")(1),3)) ' Displays as YYYY-MM-DDTHH:MM:SS.SSS


Private Function zeroPad(byval strInput, byval padCount)
    If len(strInput) < padCount Then
        zeroPad = string(padCount - len(strInput), "0") & strInput
    Else
        zeroPad = strInput
    End If
End Function

选项显式
暗淡的时间现在，我的现在，我的日期
timerNow=cStr（cdbl（定时器））
myNow=now（）
myDate=（年份（myNow）&“-”和_
zeropad（月份（myNow），2）和“-”和_
zeroPad（日期（myNow），2）和“T”以及_
zeroPad（小时（myNow），2）和“&”_
zeroPad（分钟（myNow），2）和“&”
zeroPad（第二个（myNow），2）和“&”_
左侧（拆分（timerNow，“.”（1），3））'显示为YYYY-MM-DDTHH:MM:SS.SSS
专用函数zeroPad（byval strInput、byval padCount）
如果len（strInput）

这里有一件事可能出错：当检索到

myNow

和

timerNow

时，时间从n.999跳到n+1.000。理想的情况是，您可以从timerNow中提取myNow，但这是留给读者的练习