ä¸è¬æ
åµä¸ç´æ¥ç¨replace("2011-9-9","-","/")å°±è¡äº,
æ¶åæ°æ®è½¬æ¢æ¶ç¨ä»¥ä¸ä¸¤ä¸ª:
CStr(åé) å
¶å®ç±»å转为å符串å
CDate(åé) å
¶å®ç±»å转为æ¥æå
å¦:ååédate1为æ¥æå,
date1=date
obj=replace(cstr(date1),"-","/")
æ¤æ¶objä¸å°±æ¯ä½ è¦çæ ¼å¼äº.
å¦å¤ä¹å¯ä»¥åç¨ä»¥ä¸èªå®ä¹å½æ°æ¥è½¬æ¢.
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"))
温馨提示:答案为网友推荐,仅供参考