核心代码
<% '功能:多功能日期格式化函数 '来源:http://jorkin.reallydo.com/article.asp?id=477 Function FormatDate(sDateTime, sReallyDo) Dim sJorkin sJorkin = GetLocale() If Not IsDate(sDateTime) Then sDateTime = Now() sDateTime = CDate(sDateTime) Select Case UCase(sReallyDo & "") Case "0", "1", "2", "3", "4" FormatDate = FormatDateTime(sDateTime, sReallyDo) Case "00" FormatDate = FormatDate(sDateTime, "YYYY-MM-DD hh:mm:ss") Case "01" FormatDate = FormatDate(sDateTime, "YYYY年MM月DD日") Case "02" FormatDate = FormatDate(sDateTime, "YYYY-MM-DD") Case "03" FormatDate = FormatDate(sDateTime, "hh:mm:ss") Case "04" FormatDate = FormatDate(sDateTime, "hh:mm") Case "ISO8601", "GOOGLE", "SITEMAP" '//ISO8601格式, 一般用于GoogleSiteMap, "+08:00" 为时区. FormatDate = FormatDate(sDateTime, "YYYY-MM-DDThh:mm:ss.000+08:00") Case "RFC822", "RSS", "FEED" '//RFC822格式, 一般用于RSS, "+0800" 为时区. SetLocale("en-gb") FormatDate = FormatDate(sDateTime, "ew, DD eMM YYYY hh:mm:ss +0800") SetLocale(sJorkin) Case "RND", "RAND", "RANDOMIZE" '//随机字符串 Randomize sJorkin = Rnd() FormatDate = FormatDate(sDateTime, "YYYYMMDDhhmmss") & _ Fix((9 * 10^6 -1) * sJorkin) + 10^6 Case Else FormatDate = sReallyDo FormatDate = Replace(FormatDate, "YYYY", Year(sDateTime)) FormatDate = Replace(FormatDate, "DD", Right("0" & Day(sDateTime), 2)) FormatDate = Replace(FormatDate, "hh", Right("0" & Hour(sDateTime), 2)) FormatDate = Replace(FormatDate, "mm", Right("0" & Minute(sDateTime), 2)) FormatDate = Replace(FormatDate, "ss", Right("0" & Second(sDateTime), 2)) FormatDate = Replace(FormatDate, "YY", Right(Year(sDateTime), 2)) FormatDate = Replace(FormatDate, "D", Day(sDateTime)) FormatDate = Replace(FormatDate, "h", Hour(sDateTime)) FormatDate = Replace(FormatDate, "m", Minute(sDateTime)) FormatDate = Replace(FormatDate, "s", Second(sDateTime)) If InStr(1, FormatDate, "EW", 1) > 0 Then SetLocale("en-gb") FormatDate = Replace(FormatDate, "EW", UCase(WeekdayName(Weekday(sDateTime), False))) FormatDate = Replace(FormatDate, "eW", WeekdayName(Weekday(sDateTime), False)) FormatDate = Replace(FormatDate, "Ew", UCase(WeekdayName(Weekday(sDateTime), True))) FormatDate = Replace(FormatDate, "ew", WeekdayName(Weekday(sDateTime), True)) SetLocale(sJorkin) Else FormatDate = Replace(FormatDate, "W", WeekdayName(Weekday(sDateTime), False)) FormatDate = Replace(FormatDate, "w", WeekdayName(Weekday(sDateTime), True)) End If If InStr(1, FormatDate, "EMM", 1) > 0 Then SetLocale("en-gb") FormatDate = Replace(FormatDate, "EMM", MonthName(Month(sDateTime), False)) FormatDate = Replace(FormatDate, "eMM", MonthName(Month(sDateTime), True)) SetLocale(sJorkin) Else FormatDate = Replace(FormatDate, "MM", Right("0" & Month(sDateTime), 2)) FormatDate = Replace(FormatDate, "M", Month(sDateTime)) End If End Select End Function %>
用法如下:
<% '将日期格式化为ISO8601格式 Response.Write(FormatDate("2008-03-06 08:03:06", "SITEMAP")) '将日期格式化为RFC822格式 Response.Write(FormatDate("2008-03-06 08:03:06", "RSS")) '将日期格式化为(英星期, 英月/日/年) Response.Write(FormatDate(Now(), "eW, EMM/DD/YYYY")) '将生成一个以年月日时分秒随机数的字符串 Response.Write(FormatDate(Now(), "RND")) %>
更多的可以查看下面的相关文章
函数名称:格式化日期 函数功能:格式化日期 函数方法 str = os.date(format,timeout) 参数 类型 必填 说明 format string 是 格式化字符串/格式符 timeout string 否 指定格式化的时间, 不写默认为当前时间 格式化字符串 格式符 类型 类型 %a 一星期中天数的简写 (Fri) %A 一星期中天数的全称 (Wednesday) %b 月份的
本文向大家介绍MySQL日期函数与日期转换格式化函数大全,包括了MySQL日期函数与日期转换格式化函数大全的使用技巧和注意事项,需要的朋友参考一下 Mysql作为一款开元的免费关系型数据库,用户基础非常庞大,本文列出了MYSQL常用日期函数与日期转换格式化函数 1、DAYOFWEEK(date) 2、WEEKDAY(date) 3、DAYOFMONTH(date) 4、DAYOFYEAR(da
问题内容: 如何格式化: 作为JavaScript / jQuery中的常规查找日期? 问题答案: 这就是我所说的“ Microsoft Date”,以下函数会将编码日期转换为javascript日期时间
问题内容: 我有以下字符串: 我需要将其格式化为这样的字符串: 我如何用Java做到这一点? 问题答案: 使用(单击javadoc链接以查看模式)将一个模式中的字符串解析为完全值,并使用另一模式将解析出的字符串格式化为另一模式中的字符串。
本文向大家介绍js时间日期格式化封装函数,包括了js时间日期格式化封装函数的使用技巧和注意事项,需要的朋友参考一下 js虽然提供了各种获取时间Date对象的不同属性方法,如:getDate 方法 | getDay 方法 | getFullYear 方法 | getHours 方法 ... ... 等等,但是却没有像java那样提供一个方法来供用户来根据自身提供的模板(pattern),来格式化