Código central
<%'Função: Função de formatação de data multifuncional Função: http://jorkin.reallylydo.com/article.asp?id=477Function FormatDate (sdateTime, sredallydo) Dim sjorkin sjorkin = getlocale () se não é isdato (sdatetime) = Agora () sdateTime = cdate (sdateTime) Selecione 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, YYYYYYYYYYYYYYYY-MM-DD) Case 02 FormatDate = FormatDate(sDateTime, YYYY-MM-DD) Case 03 FormatDate = FormatDate (sdateTime, hh: mm: ss) caso 04 formatdate = formatdate (sdateTime, hh: mm) case iso8601, google, sitemap '// iso8601 formato, Geralmente usado para Googlesitemap, +08: 00 é o fuso horário. Para RSS, +0800 é o fuso horário. '// randomize string randomize sjorkin = rnd () formatdate = formatdate (sdateTime, yyyymmddhhmmss) & _ corrigir ((9 * 10^6 -1) * sjorkin) + 10^6 case formatdate = seriado formatdate = substituto (formatdate AAA AYYY, Ano (SDATETIME)) formatDate = Substituir (formatdate, dd, direita (0 & dia (sdateTime), 2)) formatdate = reply (formatdate, hh, direita (0 & hour (sdateTime), 2)) formatdate = reply (formatdate, mm, direita (0 e minuto (sdateTime), 2)) formatdate = reply (formatdate, ss, direita (0 e segundo (sdateTime) , 2)) formatdate = substituir (formatdate, yy, direita (ano (sdateTime), 2)) formatdate = reply (formatdate, d, dia (sdateTime)) formatdate = reply (formatdate, h, hora (sdateTime)) formatdate = reply (formatdate, m, minuto (sdateTime)) formatdate = reply (formatdate, s, segundo (sdateTime)) se instrum (1, formatdate, ew, 1)> 0 se setlocale (en. -gb) formatdate = reply (formatdate, ew, ucase (dia da semana (dia da semana (sdateTime), false))) formatdate = reply (formatdate, ew, Seanname (dia da semana (sdateTime), false)) formatdate = reply (formatdate, ew, ucase (dia da semana (dia da semana (sdateTime), true))) formatdate = reply (formatdate, ew, dia -dias (sjorkin) else formatdate = reply (formatdate, w, dia da semana (dia da semana (sdateTime), false)) formatdate = Substitua (formatdate, w, dia da semana (dia da semana (sdateTime), true)) termina se Instr (1, formatdate, emm, 1)> 0 então setLocale (EN-GB) formatdate = substituir (formatdate, eMM, MonthName (mês (mês (mês (mês sdateTime), false)) formatdate = reply (formatdate, emm, mês nome (mês (sdateTime), true)) setLocale (sjorkin) elses formatdate = Substitua (formatdate, mm, direita (0 e mês (sdateTime), 2)) formatdate = reply (formatdate, m, mês (sdateTime)) final se a função final setendo%>
O uso é o seguinte:
<%'Data do formato para ISO8601 Resposta do formato.Write (Formatdate (2008-03-06 08:03:06, Sitemap)' Data do formato RFC822 Response.Write (Formatdate (2008-03-06 08: 03: 06 , RSS)) 'Data de formato para (semana em inglês, mês inglês/dia/aaaa))' Response.write (formatdate (agora (), ew, emm/dd/yyyy) '' ' mês, dia, hora, minuto e segunda resposta.write (formatdate (agora (), rnd))%>
Para mais informações, consulte os seguintes artigos relacionados