Une fonction du temps de conversion. Le traitement du temps dans KingCMS est également très puissant, vous pouvez y jeter un œil.
La fonction date () dans PHP est trop puissante.
Par conséquent, cette fonction n'a pas été formatée depuis des heures, dans la deuxième, la seconde, puis l'ajout.
<%
'********************************
'Nom: fonction de traitement du temps
«Fonction: Formatdate (Str, Datetime)
'Paramètres: chaînes STR, temps datetime
'Auteur: Xilou Lengyue
'Date: 2006/1/24
'URL: www.xilou.net |
'Description: le type de retour est une chaîne, pas le type de temps, l'erreur renvoie false
'********************************
Fonction Formatdate (Str, DateTime)
Formatdate = false
Si isdate (datetime) = false alors
Formatdate = false
Fonction de sortie
Terminer si
'// ans, mois, semaine, jour, heures, minutes, secondes
Dim y, m, w, d, h, min, s
'// La conversion des nombres et chinois
Dim numtocn, cnstr
CNST = zéro |
Cnstr = Cnstr & Vingt-One |
Cnstr = Cnstr & trente-trente |
Cnstr = Cnstr & quarante-trois |
Cnstr = Cnstr & 54 |
numTocn = Split (Cnstr, |)
'// La conversion des nombres et de l'anglais
Dim numtoen, entr
ENSTR = janvier | Février |
ENSTR = ENSTR et dimanche |
numtoen = Split (Entr, |)
'------------------------------------------------- ----------------------------
`` Le processus de l'année, le temps que DateTime doit inclure l'année
'Tags: 3 {ya}: 2006 {yb}: 06 {yc}: 2006
Y = année (datetime) '
Si instr (str, {ya})> 0 alors str = remplace (str, {ya}, y) '2006
Si instr (str, {yb})> 0 alors str = remplace (str, {yb}, droit (y, 2)) '06
Si instr (str, {yc})> 0 alors
Numéro dim yy et conversion chinoise
Yy = y
Pour i = 0 à 9
Yy = remplacer (yy, i, numtocn (i))
Suivant
Str = remplacer (str, {yc}, yy) '2006
Terminer si
'------------------------------------------------- ----------------------------
«Traitement mensuel, Time Datetime doit inclure l'année et le mois
'Tags: 5 {ma}: 1 {MB}: 01 {MC}: A {MD}: janvier {Me}: Jan
M = mois (datetime) 'Obtenez le mois
Mm de faiblesse
Si instr (str, {ma})> 0 alors str = remplace (str, {ma}, m) '1
Si instr (str, {mb})> 0 alors
Si m <10 thatn mm = 0 & m
Str = remplacer (str, {mb}, mm) '01
Terminer si
'// chinois janvier
Si instr (str, {mc})> 0 alors
Mm = m
Pour i = 1 à 12
Si mm = i alors mm = numtocn (i): sortir pour
Suivant
Str = remplacer (str, {mc}, mm) '
Terminer si
'// anglais janvier
Si instr (str, {md})> 0 alors
Mm = m
Pour i = 1 à 12
Si mm = i alors mm = numtoen (i-1): sortir pour
Suivant
Str = remplacer (str, {md}, mm)
Terminer si
'// Abréviation anglaise Jan
Si instr (str, {me})> 0 alors str = remplace (str, {me}, gauche (mm, 3))
'------------------------------------------------- ---------------------------------------
'Pendant le processus, les dates de temps doivent inclure l'année de l'année
'Tags: 4 {da}: 1 {db}: 01 {dc}: a {dd}: 1er
D = jour (datetime) '
DIM DD
'// numéro 1
Si instr (str, {da})> 0 alors str = remplace (str, {da}, d)
'// numéro 01
Si instr (str, {db})> 0 alors
Dd = d
Si dd <10 thatn dd = 0 & dd
Str = remplacer (str, {db}, dd)
Terminer si
'// chinois 1
Si instr (str, {dc})> 0 alors
Dd = d
Pour i = 1 à 31
Si dd = i alors dd = numtocn (i): sortir pour
Suivant
Str = remplacer (str, {dc}, dd)
Terminer si
'// anglais 24e
Si instr (str, {dd})> 0 alors
Dd = d
Sélectionner le cas DD
Cas 1, 21, 31
Dd = dd & st
Cas 2, 22
Dd = dd & nd
Cas 3, 23
Dd = dd & rd
Cas d'autre
Dd = dd & th
Fin de sélection
Str = remplacer (str, {dd}, dd)
Terminer si
'------------------------------------------------- ---------------------------------------
`` Sweetable, Time Datetime doit inclure l'année de l'année
'Tags: 4 {wa}: 1 {wb}: vendredi {wc}: {wd}: mar
W = jour de semaine (pâte)
Sombre ww
'// numéro 5
Si instr (str, {wa})> 0 alors str = remplace (str, {wa}, w)
'// Vendredi anglais
Si instr (str, {wb})> 0 alors
Pour i = 1 à 7
Si w = i alors str = remplacer (str, {wb}, numtoen (i + 11)): sortir pour
Suivant
Terminer si
'// chinois cinq
Si instr (str, {wc})> 0 alors
Ww = w
Si ww = 1 alors
Str = remplacer (str, {wc}, jour)
Autre
Pour i = 2 à 7
Si ww = i alors str = remplacer (str, {wc}, numtocn (i-1)): sortir pour
Suivant
Terminer si
Terminer si
'// Abréviation anglaise
Si instr (str, {wd})> 0 alors
Pour i = 1 à 7
Si w = i alors str = remplacer (str, {wd}, à gauche (numtoen (i + 11), 3)): sortir pour
Suivant
Terminer si
'------------------------------------------------- ---------------------------------------
«Les heures de traitement, la date du temps doit inclure des heures
'Étiquette:
H = heure (datetime)
Talent HH
Formatdate = str
Fonction finale
%>
<%
'exemple
'Sub br ()
'Response.write <br/> & vbcrf
'End Sub
'Sub out (str)
'Response.Write Str & VBCRLF
'Br
'End Sub
'----------- test
'Dim S, T
'S = cette année est {yc} année de {yb} année {ya} année {ma} mois {MB} mois {MC} Mois {md} {me} {da} jour {db} day the {dd Day dd dd } Semaine {WB} |
'T = maintenant ()
'Out Formatdate (S, T)
%>