冰峰雪晴

格式化输出日期时间新版本[VBS]

时间：2016-09-20 ┊ 阅读：5,602 次 ┊ 标签: 开发 , 编程 , 设计

格式化输出日期时间新版本：
'format the datetime string, overload the internal function FormatDateTime
代码如下：

Function FormatDateTime(dateTime, NamedFormat)
    Dim y, m, d, h, n, s
    FormatDateTime = ""
    If IsDate(dateTime) = False Then
        dateTime = Now
    End If
    y = Cstr(Year(dateTime))
    m = Cstr(Month(dateTime))
    If Len(m) = 1 Then
        m = "0" & m
    End If
    d = Cstr(Day(dateTime))
    If Len(d) = 1 Then
        d = "0" & d
    End If
    h = Cstr(Hour(dateTime))
    If Len(h) = 1 Then
        h = "0" & h
    End If
    n = Cstr(Minute(dateTime))
    If Len(n) = 1 Then
        n = "0" & n
    End If
    s = Cstr(Second(dateTime))
    If Len(s) = 1 Then
        s = "0" & s
    End If
    Select Case NamedFormat
        Case 0
            ' yyyymmdd
            FormatDateTime = y & m & d
        Case 1
            ' yyyy-mm-dd hh:mm:ss
            FormatDateTime = y & "-" & m & "-" & d & " " & h & ":" & n & ":"  & s
        Case 2
            ' yyyy-mm-dd
            FormatDateTime = y & "-" & m & "-" & d
        Case 3
            ' hh:mm:ss
            FormatDateTime = h & ":" & n & ":" & s
        Case 4
            'yyyy-mm-dd hh.mm.ss
            FormatDateTime = y & "-" & m & "-" & d & " " & h & "." & n & "."  & s
        Case 5
            'mmm ddth, e.g. Sep 13th
            Select Case m
                Case 01 m = "Jan"
                Case 02 m = "Feb"
                Case 03 m = "Mar"
                Case 04 m = "Apr"
                Case 05 m = "May"
                Case 06 m = "Jun"
                Case 07 m = "Jul"
                Case 08 m = "Aug"
                Case 09 m = "Sep"
                Case 10 m = "Oct"
                Case 11 m = "Nov"
                Case 12 m = "Dec"
            End Select
            Select Case d
                Case 01, 21, 31 d = d + "st"
                Case 02, 22 d = d + "nd"
                Case 03, 23 d = d + "rd"
                Case else d = d + "th"
            End Select
            FormatDateTime = m & " " & d
    End Select
End Function

本文固定链接: https://www.amkevin.com/120.html｜冰峰雪晴｜转载请注明出处,谢谢