在 VBScript 中,是否 FormatDateTime
有 ISO 8601 支持吗?
如果没有,我将如何用它编写这样的函数?
例如:
Response.Write FormatAsISO8601(#05/04/2011#)
Function FormatAsISO8601(datetime)
...
End Function
最佳答案
这是我需要从 Chris 的类(class)中获得的特定代码,稍微优化了一下:
Public Function ToIsoDateTime(datetime)
ToIsoDateTime = ToIsoDate(datetime) & "T" & ToIsoTime(datetime) & CurrentTimezone
End Function
Public Function ToIsoDate(datetime)
ToIsoDate = CStr(Year(datetime)) & "-" & StrN2(Month(datetime)) & "-" & StrN2(Day(datetime))
End Function
Public Function ToIsoTime(datetime)
ToIsoTime = StrN2(Hour(datetime)) & ":" & StrN2(Minute(datetime)) & ":" & StrN2(Second(datetime))
End Function
Private Function StrN2(n)
If Len(CStr(n)) < 2 Then StrN2 = "0" & n Else StrN2 = n
End Function
关于datetime - VBScript ISO8601,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/6900045/