我们在开发过程中,经常需要用到时间字符串。这个字符串可以用于生成临时文件名、随机文件名、加密校验的指纹等。年月日时分秒组合起来的时间字符串一共14位,不足两位要在前面补上一个零以凑足两位。

Public Function FormatDate(datetime)

 Dim y, m, d, h, i, s

 y = CStr(Year(datetime))

 m = CStr(Month(datetime))

 If Len(m) = 1 Then m = "0" & m

 d = CStr(Day(datetime))

 If Len(d) = 1 Then d = "0" & d

 h = CStr(Hour(datetime))

 If Len(h) = 1 Then h = "0" & h

 i = CStr(Minute(datetime))

 If Len(i) = 1 Then i = "0" & i

 s = CStr(Second(datetime))

 If Len(s) = 1 Then s = "0" & s

 FormatDate = y & "-" & m & "-" & d & " " & h & ":" & i & ":" & s

End Function

关于ASP获取年月日时分秒的14位时间字符串的函数,本文就介绍这么多,希望对您有所帮助,谢谢!

03-14 12:21