- <%
- '******************************
- '函数:FormatDate(DateAndTime, para)
- '参数:DateAndTime,要格式化的日期时间;para,样式。
- '作者:阿里西西
- '日期:2007/7/12
- '描述:将日期格式化为需要的格式
- '示例:<%=FormatDate(now(), 3)%>
- '******************************
- Public Function FormatDate(DateAndTime, para)
- On Error Resume Next
- Dim y, m, d, h, mi, s, strDateTime
- FormatDate = DateAndTime
- If Not IsNumeric(para) Then Exit Function
- If Not IsDate(DateAndTime) Then Exit Function
- y = CStr(Year(DateAndTime))
- m = CStr(Month(DateAndTime))
- If Len(m) = 1 Then m = "0" & m
- d = CStr(Day(DateAndTime))
- If Len(d) = 1 Then d = "0" & d
- h = CStr(Hour(DateAndTime))
- If Len(h) = 1 Then h = "0" & h
- mi = CStr(Minute(DateAndTime))
- If Len(mi) = 1 Then mi = "0" & mi
- s = CStr(Second(DateAndTime))
- If Len(s) = 1 Then s = "0" & s
- Select Case para
- Case "1"
- strDateTime = y & "-" & m & "-" & d & " " & h & ":" & mi & ":" & s
- Case "2"
- strDateTime = y & "-" & m & "-" & d
- Case "3"
- strDateTime = y & "/" & m & "/" & d
- Case "4"
- strDateTime = y & "年" & m & "月" & d & "日"
- Case "5"
- strDateTime = m & "-" & d & " " & h & ":" & mi
- Case "6"
- strDateTime = m & "/" & d
- Case "7"
- strDateTime = m & "月" & d & "日"
- Case "8"
- strDateTime = y & "年" & m & "月"
- Case "9"
- strDateTime = y & "-" & m
- Case "10"
- strDateTime = y & "/" & m
- Case "11"
- strDateTime = right(y,2) & "-" &m & "-" & d & " " & h & ":" & mi
- Case "12"
- strDateTime = right(y,2) & "-" &m & "-" & d
- Case "13"
- strDateTime = m & "-" & d
- Case Else
- strDateTime = DateAndTime
- End Select
- FormatDate = strDateTime
- End Function
- %>
asp 将日期格式化为需要的格式
2019-10-12 10:53阿里西西 ASP教程
asp 将日期格式化为需要的格式
延伸 · 阅读
- 2021-12-18深入理解C# DateTime日期格式化
- 2021-10-20关于ASP网页无法打开的解决方案
- 2021-10-14让apache也支持asp环境的方法
- 2021-08-15asp取整数mod 有小数的就自动加1
- 2021-08-15asp与php中定时生成页面的思路与代码
- 2021-06-17SpringBoot2.0整合jackson配置日期格式化和反序列化的
精彩推荐
- ASP教程
字符批量替换程序asp服务器版
字符批量替换程序asp服务器版,安装方法:直接把replace.asp文件放在任意的支持asp+FSO的环境中 ...
- ASP教程
ASP实现文件上传的方法
在基于浏览器/服务器的应用环境中,在浏览器中上传各种类型的文件一直是困扰用户文件管理应用的难题之一。常用的实现方法是利用在RFC1867中引入的一...
- ASP教程
asp删除mssql数据库中没有记录的图片代码
asp删除没有记录的图片需要文件夹(存放图片的文件夹)中的每个图片和数据库中的所有记录进行比较...
- ASP教程
ASP常用函数:HTMLDecode
ASP常用函数:HTMLDecode ...
- ASP教程
ASP GetRef 函数指针试探
近日在学习C++,看到函数指针,由于之前一直搞ASP,所以想ASP里面是否也有这个函数指针的东西,百度了一下,没有太多关于此方面的介绍,于是翻了翻...
- ASP教程
asp读取远程文件并保存到本地代码
asp读取远程文件并保存到本地代码 ...
- ASP教程
ASP 判断是否有中文的代码
其实我上一篇写的js判断中文才是最好的方法,这个是asp的一种,只要是双字节都是当作中文判断...
- ASP教程
asp中一段防SQL注入的通用脚本
asp中一段防SQL注入的通用脚本...