核心代码
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 SelectEnd Function%>
用法如下:
更多的可以查看下面的相关文章