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

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

格式化输出日期时间新版本:
'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

文章评论

添加新评论

温馨提醒:如果您是第一次在本站留言,需要审核后才能显示哦!

相关文章

如何绕过登录抓取js动态加载网页数据[Python]

如何绕过登录抓取js动态加载网页数据[Python]

今天经历了一翻折腾,把一个需要登录网站并js动态加载的数据一一给抓下来了。 首先,登录时有cookie,我们需要把cookie保存下来,用urllib2构建request时加入header信息,这时还多了一点,虚构了浏览器信息,让服务器以为是正常的浏览器发起的请求,这样可以绕过简单的反爬虫策略...
阅读全文>>
终于用上了专业版的PyCharm含激活方法链接[Python]

终于用上了专业版的PyCharm含激活方法链接[Python]

就直接上图片吧: 激活方法链接:https://www.cnblogs.com/pupilheart/p/9734124.html
阅读全文>>
如何使SyntaxHighlighter长代码自动换行[js/css]

如何使SyntaxHighlighter长代码自动换行[js/css]

用SyntaxHighlighter高亮代码,最近发现下面有个滚动条不好看, 代码太长造成的,去掉滚动条让长代码能自动换行,就好了。 打开样式表shCoreDefault.css 22行,把white-space: pre !important;改为white-space: pre-wrap ...
阅读全文>>
简易中英小词典iDict v1.0发布[Github开源]

简易中英小词典iDict v1.0发布[Github开源]

用wpf写了一个小词典,方便自己使用。 功能: 简易查词 最小化系统托盘 设置开机启动 本站下载 Github下载 Github 源码 词典是用python爬的iciba词库,基本够用了。 下面是python抓取词典源码,现学现用。python上手就是简单。 # -*- codin...
阅读全文>>
为AS/400命令创建帮助页面[GENCMDDOC]

为AS/400命令创建帮助页面[GENCMDDOC]

用到命令: Generate Command Documentation (GENCMDDOC) command. GENCMDDOC CMD(MYLIB/mycmd) TODIR('/qsys.lib/mylib.lib/qpnlsrc.file') ...
阅读全文>>