Uma função do tempo de conversão. O processamento de tempo em Kingcms também é muito poderoso, você pode dar uma olhada nele.
A função DAT () no PHP é muito poderosa.
Portanto, essa função não foi formatada por horas, no segundo, segundo e depois adicione.
<%
'**********************************
'Nome: função de processamento de tempo
'Função: formatdate (str, datetime)
Parâmetros: Strings, tempo de dados
'Autor: Xilou Lengyue
Data: 2006/1/24
'URL: www.xilou.net |
'Descrição: o tipo de retorno é uma string, não o tipo de tempo, o erro retorna false
'**********************************
Função FormatDate (STR, DateTime)
FormatDate = false
Se Isdate (DateTime) = Falso então
FormatDate = false
Função de saída
Final se
'// anos, mês, semana, dia, horas, minutos, segundos
Dim y, m, w, d, h, min, s
'// A conversão de números e chineses
Dim numTocn, CNSTR
CNST = Zero |
CNST = CNST e vinte
CNST = CNST e Trinta -Two |
CNST = CNST e quarenta
CNST = CNST e 54 |
NumTocn = Split (CNSTR, |)
'// A conversão de números e inglês
Dim numtoen, enstr
Enstr = Janeiro |
Enstr = Enstr e domingo |
Numtoen = Split (Enstr, |)
'--------------------------------------------------- ------------------------------
'O processo do ano, o tempo de tempo deve incluir o ano
'Tags: 3 {ya}: 2006 {yb}: 06 {yc}: 2006
Y = ano (DateTime) '
Se Instr (str, {ya})> 0 então str = substituir (str, {ya}, y) '2006
Se Instr (str, {yb})> 0 então str = substituir (str, {yb}, direita (y, 2)) '06
Se Instr (str, {yc})> 0 então
Dim, número e conversão chinesa
Yy = y
Para i = 0 a 9
Yy = substituir (yy, i, numTocn (i))
Próximo
Str = substituir (str, {yc}, yy) '2006
Final se
'--------------------------------------------------- ------------------------------
'Processamento mensal, o tempo de tempo deve incluir ano e mês
'Tags: 5 {ma}: 1 {mb}: 01 {mc}: a {md}: janeiro {me}: Jan
M = mês (DateTime) 'Obtenha o mês
Dim mm
Se Instr (str, {ma})> 0 então str = substituir (str, {ma}, m) '1
Se Instr (str, {mb})> 0 então
Se m <10 thatn mm = 0 & m
Str = substituir (str, {mb}, mm) '01
Final se
'// Janeiro chinês
Se Instr (str, {mc})> 0 então
Mm = m
Para i = 1 a 12
Se mm = i então mm = numTocn (i): saia para
Próximo
Str = substituir (str, {mc}, mm) '
Final se
'// Inglês em janeiro
Se Instr (str, {md})> 0 então
Mm = m
Para i = 1 a 12
Se mm = i então mm = numtoen (i-1): saia para
Próximo
Str = substituir (str, {md}, mm)
Final se
'// Abreviação inglesa Jan
Se Instr (str, {me})> 0 então str = substituir (str, {me}, esquerda (mm, 3))
'--------------------------------------------------- -----------------------------------------
'Durante o processo, as datas do tempo devem incluir o ano do ano
'Tags: 4 {da}: 1 {db}: 01 {dc}: a {dd}: 1st
D = dia (DateTime) '
Dim dd
'// Número 1
Se Instr (str, {da})> 0 então str = substituir (str, {da}, d)
'// Número 01
Se Instr (str, {db})> 0 então
Dd = d
Se dd <10 thatn dd = 0 & dd
Str = substituir (str, {db}, dd)
Final se
'// chinês 1
Se Instr (str, {dc})> 0 então
Dd = d
Para i = 1 a 31
Se dd = i então dd = numTocn (i): saia para
Próximo
Str = substituir (str, {dc}, dd)
Final se
'// Inglês 24º
Se Instr (str, {dd})> 0 então
Dd = d
Selecione o caso DD
Caso 1, 21, 31
Dd = dd & st
Caso 2, 22
Dd = dd & nd
Caso 3, 23
Dd = dd & rd
Caso mais
Dd = dd & th
Final Selecione
Str = substituir (str, {dd}, dd)
Final se
'--------------------------------------------------- -----------------------------------------
'Saberável, o tempo de tempo deve incluir o ano do ano
'Tags: 4 {wa}: 1 {wb}: sexta -feira {wc}: {wd}: ter
W = dia da semana (massa)
Dim WW
'// Número 5
Se Instr (str, {wa})> 0 então str = substituir (str, {wa}, w)
'// Inglês sexta -feira
Se Instr (STR, {WB})> 0 então
Para i = 1 a 7
Se w = i então str = substituir (str, {wb}, numtoen (i+11)): saia para
Próximo
Final se
'// chinês cinco
Se Instr (str, {wc})> 0 então
Ww = w
Se ww = 1 então
Str = substituir (str, {wc}, dia)
Outro
Para i = 2 a 7
Se ww = eu então str = substituir (str, {wc}, numTocn (i-1)): saída para
Próximo
Final se
Final se
'// Abreviação inglesa Ter
Se Instr (STR, {WD})> 0 então
Para i = 1 a 7
Se w = eu então str = substituir (str, {wd}, esquerda (numtoen (i+11), 3)): saída para
Próximo
Final se
'--------------------------------------------------- -----------------------------------------
'Horas de processamento, o tempo de tempo deve incluir horas
'Rótulo:
H = hora (datetime)
Dim hh
Formatdate = str
Função final
%>
<%
'exemplo
'Sub -br ()
'Response.write <br/> & vbcrf
'Final sub
'Sub Out (STR)
'Response.write str & vbcrlf
'Br
'Final sub
'----------- teste
'Dim s, t
'S = este ano é {yc} ano de {yb} ano {ya} ano {ma} mês {mb} mês {mc} mês {md} {me} {da} dia {db} dia o dia {dd dia dd dd } Semana {wb} |
'T = agora ()
'Out Formatdate (S, T)
%>