Code de base
<% 'Fonction: Fonction de formatage de la date multifonction'source: http://jorkin.reallodo.com/article.asp?id=477Fonction Formatdate (sdatetime, sreallodo) dim sjorkin sjorkin = getlocale () Si non isdate (sdatetime) puis sdatetime = Maintenant () sdateTime = cdate (sdatetime) SELECT case ucase (sreallodo &) cas 0, 1, 2, 3, 4 formatdate = formatdatetime (sdatetime, sreallo) cas 00 00 00 Formatdate = formatdate (sdatetime, yyyy-mm-dd hh: mm: ss) cas 01 formatdate = formatdate (sdatetime, yyyyyyyyyyyyyyy-mm-dd) cas 02 formatdate = formatdate = foratdime, yyyym-dd) cas 03 foratdate = foratdtime, yyyym-dd) cas 03 foratdate = foratdtime, yyyym-dd) cas 03 foratdate = foratdtime, yyyym-dd) cas 03 Formatdate = FORMATDET (sdatetime, hh: mm: ss) cas 04 formatdate = formatdate (sdatetime, hh: mm) case iso8601, google, sitemap '// iso8601 format, Généralement utilisé pour GoogleSiteMap, +08: 00 est le fuseau horaire. Pour RSS, +0800 est le fuseau horaire. '// randomiser la chaîne randomiser sjorkin = rnd () formatdate = formatdate (sdatetime, yyyymmddhhmss) & _ fixe ((9 * 10 ^ 6 -1) * sjorkin) + 10 ^ 6 case formatdate = sreallydo Formatdate = Remplac Yyyy, année (sdatetime)) formatdate = remplacer (formatdate, dd, droit (0 et jour (sdatetime), 2)) formatdate = remplacer (formatdate, HH, à droite (0 & hour (sdatetime), 2)) formatdate = remplacer (formatdate, mm, à droite (0 et minute (sdatetime), 2)) formatdate = remplacter (formatdate, ss, droit (0 & second (sdatetime) , 2)) formatdate = remplacer (formatdate, yy, à droite (année (sdatetime), 2)) formatdate = remphier (formatdate, d, day (sdatetime)) formatdate = remphier (formatdate, h, hour (sdatetime)) formatdate = remphal -gb) formatdate = Remplacer (Formatdate, EW, ucase (WeekdayName (Weekday (sdateTime), false))) formatdate = remphier (formatdate, ew, WeekdayName (Weekday (sdateTime), false)) formatdate = Remplace (formatdate, ew, ucase (weekdayname (weekday (sdateTime), true))) formatdate = remplac (sjorkin) else formatdate = Remplacer (formatdate, w, weekdayname (weekday (sdatetime), false)) formatdate = Remplacer (formatdate, w, weekdayname (weekday (sdatetime), true)) end if if instlin (1, formatdate, emm, 1)> 0 alors setlocale (en-gb) formatdate = remplac sdateTime), false)) formatdate = remplacer (formatdate, emm, mousname (mois (sdatetime), true)) setLocale (sjorkin) else formatdate = Remplacer (formatdate, mm, droit (0 et mois (sdatetime), 2)) formatdate = remplacer (formatdate, m, mois (sdateTime)) fin si fin function%%>
L'utilisation est la suivante:
<% 'Date de format vers ISO8601 Format Response.Write (Formatdate (2008-03-06 08:03:06, sitemap))' Date de format vers RFC822 Format Response.Write (Formatdate (2008-03-06 08: 03: 06 , RSS)) 'Date de format vers (semaine anglaise, mois anglais / jour / yyyy))' Response.Write (formatdate (maintenant (), ew, emm / dd / yyyy)) 'générera une chaîne an de nombre aléatoire de nombres aléatoires de nombres aléatoires de nombres aléatoires de nombres aléatoires de mois, jour, heure, minute et deuxième réponse.Write (formatdate (maintenant (), rnd))%>
Pour plus d'informations, veuillez consulter les articles connexes suivants