核心代码

 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%>

用法如下:

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