ASP常用日期格式化函数 FormatDate（）

核心代码

<%"功能:多功能日期格式化函数"来源:http://jorkin.reallydo.com/article.asp?id=477Function 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" "//随机字符串RandomizesJorkin = Rnd（）FormatDate = FormatDate（sDateTime, "YYYYMMDDhhmmss"） & _Fix（（9 * 10^6 -1） * sJorkin） + 10^6 Case ElseFormatDate = sReallyDoFormatDate = 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 ThenSetLocale（"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）ElseFormatDate = Replace（FormatDate, "W", WeekdayName（Weekday（sDateTime）, False））FormatDate = Replace（FormatDate, "w", WeekdayName（Weekday（sDateTime）, True））End IfIf InStr（1, FormatDate, "EMM", 1） > 0 ThenSetLocale（"en-gb"）FormatDate = Replace（FormatDate, "EMM", MonthName（Month（sDateTime）, False））FormatDate = Replace（FormatDate, "eMM", MonthName（Month（sDateTime）, True））SetLocale（sJorkin）ElseFormatDate = Replace（FormatDate, "MM", Right（"0" & Month（sDateTime）, 2））FormatDate = Replace（FormatDate, "M", Month（sDateTime））End If End SelectEnd 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"））%>

更多的可以查看下面的相关文章