Kerncode
<%'Funktion: Multifunktionsdatum -Formatierungsfunktionsource: http://jorkin.reallydo.com/article.asp?id=477Function Formatdat (sdatetime, sreallydo) dim sjorkin sjorkin = getlocale (), wenn nicht isDate (sdatetime) dann sdatetimale (sdatetime) dann sdatetime = Jetzt () sdatetime = cdate (sdatetime) Wählen Sie Fall uCase (sreallydo &) case 0, 1, 2, 3, 4 formatdate = formatDatetime (sdatetime, sreallydo) Fall 00 FormatDate = FormatDate(sDateTime, YYYY-MM-DD hh:mm:ss) Case 01 FormatDate = FormatDate(sDateTime, YYYYYYYYYYYYYYYY-MM-DD) Case 02 FormatDate = FormatDate(sDateTime, YYYY-MM-DD) Case 03 FormatDate = FormatDate (SDATETIME, HH: MM: SS) Fall 04 Formatdat = Formatdat (SDATETIME, HH: MM) Fall ISO8601, Google, Sitemap '// ISO8601 Format, Im Allgemeinen für GoogleSitemap verwendet, ist +08: 00 die Zeitzone. Für RSS ist +0800 die Zeitzone. '// Randomize String randomisieren randomisieren sjorkin = rnd () formatdate = formatdate (sdatetime, yyyymmddhhmms) & _ fix ((9 * 10^6 -1) * Sjorkin) + 10^6 Fall sonst formatdate = sReallyDo Formatdate = FormatDate, Yjyy, Jahr (sdatetime)) formatdate = ersetzen (formatdat, dd, rechts (0 & tag (sdatetime), 2)) formatdate = ersetzen (formatdat, HH, rechts (0 & Stunde (sdatetime), 2)) formatdate = ersetzen (formatdat, mm, rechts (0 & minute , 2)) formatdate = ersetzen (formatdat, yy, rechts (Jahr (sdatetime), 2)) Formatdat = Ersetzen (Formatdat, D, Tag (sdatetime)) formatdate = ersetzen (formatdat, H, Stunde (sdatetime)) formatdate = ersetzen (formatdat, m, minute (sdatetime)) formatdate = ersetzen (formatdat, s, zweite (sdatetime)) Wenn Instrum -GB) formatDate = Ersetzen (Formatdat, EW, UCase (Wochentagname (Wochentag) (SDATETIME), Falsch)) FormatDate = Ersetzen (Formatdat, EW, WeekdayName(Weekday(sDateTime), False)) FormatDate = Replace(FormatDate, Ew, UCase(WeekdayName(Weekday(sDateTime), True))) FormatDate = Replace(FormatDate, ew, WeekdayName(Weekday(sDateTime), True)) SetLocale . Ersetzen Sie (Formatdat, W, Wochentagname (Wochentag (SDATETIME))). sdatetime), falsch)) formatdate = ersetzen (formatdate, emm, monatname (monat (sdatetime), true)) setlocale (sjorkin) else formatdate = Ersetzen (Formatdat, MM, Recht
Die Verwendung ist wie folgt:
<%'Formatdatum zu ISO8601 Formatantwort. , RSS)) 'Formatdatum für (englische Woche, englischer Monat/Tag/YJJJ))' Antwort Monat, Tag, Stunde, Minute und zweite Antwort.
Weitere Informationen finden Sie in den folgenden verwandten Artikeln