Una función del tiempo de conversión. El procesamiento del tiempo en KingCMS también es muy poderoso, puedes echarle un vistazo.
La función de la función Date () en PHP es demasiado potente.
Por lo tanto, esta función no se ha formateado durante horas, en el segundo, segundo y luego agregar.
<%
'**********************************
'Nombre: función de procesamiento de tiempo
'Función: FormatDate (STR, DateTime)
'Parámetros: cadenas STR, tiempo de fecha y hora
'Autor: Xilou Lengyue
'Fecha: 2006/1/24
'URL: www.xilou.net |
'Descripción: El tipo de retorno es una cadena, no el tipo de tiempo, el error devuelve falso
'**********************************
FormatDate de la función (STR, DateTime)
FormatDate = falso
If isDate (dateTime) = false entonces
FormatDate = falso
Función de salida
Final si
'// años, mes, semana, día, horas, minutos, segundos
Dim Y, M, W, D, H, Min, S
'// La conversión de números y chinos
Dim numTocn, CNSTR
CNSTR = cero
CNSTR = CNSTR & TWIND -UNA
CNSTR = CNSTR & THIRY
CNSTR = CNSTR y cuarenta años |
CNSTR = CNSTR & 54 |
numTocn = Split (CNSTR, |)
'// La conversión de números e inglés
Dim NUMTOEN, ENSTR
Enero = Febrero de marzo |
Enstr = Domingo del domingo |
numToen = Split (Enstr, |)
'------------------------------------------------- ----------------------------
'El proceso del año, el tiempo de fecha y hora debe incluir el año
'Etiquetas: 3 {ya}: 2006 {yb}: 06 {yc}: 2006
Y = año (DateTime) '
If Instr (str, {ya})> 0 luego str = reemplazar (str, {ya}, y) '2006
If instr (str, {yb})> 0 luego str = reemplazar (str, {yb}, derecha (y, 2)) '06
If instr (str, {yc})> 0 entonces
Dim yy 'número y conversión china
Yy = y
Para i = 0 a 9
Yy = reemplazar (yy, i, numTocn (i))
Próximo
Str = reemplazar (str, {yc}, yy) '2006
Final si
'------------------------------------------------- ----------------------------
'Procesamiento mensual, tiempo de fecha y hora debe incluir año y mes
'Etiquetas: 5 {ma}: 1 {mb}: 01 {mc}: a {md}: enero {me}: jan
M = mes (dateTime) 'Obtenga el mes
Tenue mm
If instr (str, {ma})> 0 luego str = reemplazar (str, {ma}, m) '1
If instr (str, {mb})> 0 entonces
Si m <10 thatn mm = 0 & m
Str = reemplazar (str, {mb}, mm) '01
Final si
'// enero chino
If Instr (str, {MC})> 0 entonces
Mm = m
Para i = 1 a 12
Si mm = i entonces mm = numTocn (i): salga para
Próximo
Str = reemplazar (str, {mc}, mm) '
Final si
'// Enero inglés
If instr (str, {md})> 0 entonces
Mm = m
Para i = 1 a 12
Si mm = i entonces mm = numtoen (i-1): salga para
Próximo
Str = reemplazar (str, {md}, mm)
Final si
'// Abreviatura de inglés Jan
Si instr (str, {me})> 0 luego str = reemplazar (str, {me}, izquierda (mm, 3))
'------------------------------------------------- ---------------------------------------
'Durante el proceso, las fechas de tiempo deben incluir el año del año
'Etiquetas: 4 {da}: 1 {db}: 01 {dc}: a {dd}: 1st
D = día (dateTime) '
DD DD
'// número 1
If Instr (str, {da})> 0 luego str = reemplazar (str, {da}, d)
'// número 01
If instr (str, {db})> 0 entonces
DD = D
Si dd <10 thatn dd = 0 & dd
Str = reemplazar (str, {db}, dd)
Final si
'// chino 1
If instr (str, {dc})> 0 entonces
DD = D
Para i = 1 a 31
Si dd = i entonces dd = numTocn (i): salga para
Próximo
Str = reemplazar (str, {dc}, dd)
Final si
'// inglés 24
If Instr (str, {dd})> 0 entonces
DD = D
Seleccionar Case DD
Caso 1, 21, 31
Dd = dd & st
Caso 2, 22
Dd = dd & nd
Caso 3, 23
Dd = dd & rd
Caso
Dd = dd & th
Final seleccionar
Str = reemplazar (str, {dd}, dd)
Final si
'------------------------------------------------- ---------------------------------------
'Sweetable, Time DateTime debe incluir el año del año
'Etiquetas: 4 {wa}: 1 {wb}: viernes {wc}: {wd}: mar
W = día de la semana (masa)
Dim WW
'// número 5
If instr (str, {wa})> 0 luego str = reemplazar (str, {wa}, w)
'// Viernes inglés
If instr (str, {wb})> 0 entonces
Para i = 1 a 7
Si w = i entonces str = reemplazar (str, {wb}, numToen (i+11)): Salir para
Próximo
Final si
'// chino cinco
If instr (str, {wc})> 0 entonces
Ww = w
Si ww = 1 entonces
Str = reemplazar (str, {wc}, día)
Demás
Para i = 2 a 7
Si ww = i entonces str = reemplazar (str, {wc}, numTocn (i-1)): salga para
Próximo
Final si
Final si
'// abreviatura inglesa martes
If instr (str, {wd})> 0 entonces
Para i = 1 a 7
Si w = i entonces str = reemplazar (str, {wd}, izquierda (numToen (i+11), 3)): Salir para
Próximo
Final si
'------------------------------------------------- ---------------------------------------
'Horas de procesamiento, el tiempo de fecha y hora debe incluir horas
'Etiqueta:
H = hora (fecha de fecha)
Dim HH
FormatDate = str
Función final
%>
<%
'ejemplo
'Sub BR ()
'Response.write <br/> y VBCRF
'End Sub
'Sub out (str)
'Response.WRITE STR & VBCRLF
'BR
'End Sub
'----------- prueba
'Dim S, T
'S = este año es {yc} año de {yb} año {ya} año {ma} mes {mb} mes {mc} mes {md} {me} {da} día {db} el día el {dd día dd dd } Semana {WB} |
'T = ahora ()
'Formatdate (s, t)
%>