Eine Funktion der Konvertierungszeit. Die zeitliche Verarbeitung in Kingcms ist ebenfalls sehr leistungsfähig, Sie können es sich ansehen.
Die Funktion der Date () in PHP ist zu leistungsfähig.
Daher wurde diese Funktion stundenlang, in der zweiten, zweiten und dann hinzufügen, nicht stundenlang formatiert.
<%
'************************************************
'Name: Zeitverarbeitungsfunktion
'Funktion: Formatdat (STR, DateTime)
'Parameter: Strings, DateTime -Zeit
'Autor: Xilou Lengyue
'Datum: 2006/1/24
'URL: www.xilou.net |
'Beschreibung: Der Rückgabetyp ist eine Zeichenfolge, nicht der Zeitart, der Fehler gibt falsch zurück
'************************************************
Funktionsformatdat (STR, DateTime)
Formatdate = false
Wenn isdate (datetime) = false dann
Formatdate = false
Ausgangsfunktion
Ende wenn
'// Jahre, Monat, Woche, Tag, Stunden, Minuten, Sekunden
Dim Y, M, W, D, H, min, s
'// Die Umwandlung von Zahlen und Chinesen
Dim Numtocn, CNSTR
CNSTR = Null |
CNSTR = CNSTR & TWENDE |
CNSTR = CNSTR & DREIGHEITE -TWO |
CNSTR = CNSTR & Vierundvierzig |
CNSTR = CNSTR & 54 | 55 |
numtocn = split (cnstr, |)
'// Die Umwandlung von Zahlen und Englisch
Dimntoen, enstr
ENSTR = Januar |
ENSTR = ENSTR & SONNtag |
numtoen = split (enstr, |)
'------------------------------------------------- ----------------------------
'Der Prozess des Jahres, das Zeitdatensatz muss das Jahr enthalten
'Tags: 3 {ya}: 2006 {yb}: 06 {yc}: 2006
Y = Jahr (datetime) ''
If instr (str (str, {ya})> 0, dann str = ersetzen (str, {ya}, y) '2006
If instr (str (str, {yb})> 0, dann str = ersetzen (str, {yb}, rechts (y, 2)) '06
If instr (str (str, {yc})> 0 dann
Dim Yy 'Nummer und chinesische Konvertierung
Yy = y
Für i = 0 bis 9
Yy = ersetzen (yy, i, numtocn (i))
Nächste
Str = ersetzen (str, {yc}, yy) '2006
Ende wenn
'------------------------------------------------- ----------------------------
Die monatliche Verarbeitung, Zeitdatensatz muss Jahr und Monat enthalten
'Tags: 5 {ma}: 1 {mb}: 01 {mc}: a {md}: Januar {me}: Jan
M = Monat (DateTime) 'Erhalten Sie den Monat
Dim Mm
If instr (str (str, {ma})> 0, dann str = ersetzen (str, {ma}, m) '1
If instr (str (str, {mb})> 0 dann
Wenn m <10 ist nicht mm = 0 & m
Str = ersetzen (str, {mb}, mm) '01
Ende wenn
'// Chinesischer Januar
If Instr (STR, {MC})> 0 dann
Mm = m
Für i = 1 bis 12
Wenn mm = i dann mm = numtocn (i): Beenden Sie für
Nächste
STR = Ersatz (str, {Mc}, mm) '
Ende wenn
'// Englisch Januar
If instr (str (str, {md})> 0 dann
Mm = m
Für i = 1 bis 12
Wenn mm = i dann mm = numtoen (i-1): beenden Sie für
Nächste
Str = ersetzen (str, {md}, mm)
Ende wenn
'// englische Abkürzung Januar
If instr (str (str, {me})> 0 dann str = ersetzen (str, {me}, links (mm, 3))
'------------------------------------------------- -----------------------------------
'Während des Prozesses müssen Zeitdaten das Jahr des Jahres umfassen
'Tags: 4 {da}: 1 {db}: 01 {dc}: a {dd}: 1st
D = Tag (datetime) ''
Dim dd
'// Nummer 1
If instr (str (str, {da})> 0, dann str = ersetzen (str, {da}, d)
'// Nummer 01
If instr (str, {db})> 0 dann
Dd = d
Wenn dd <10 dh dd = 0 & dd
Str = ersetzen (str, {db}, dd)
Ende wenn
'// Chinese 1
If instr (str (str, {dc})> 0 dann
Dd = d
Für i = 1 bis 31
Wenn dd = i dann dd = numtocn (i): beenden für
Nächste
Str = ersetzen (str, {dc}, dd)
Ende wenn
'// Englisch 24.
If instr (str, {dd})> 0 dann
Dd = d
Wählen Sie Fall DD
Fall 1, 21, 31
Dd = dd & st
Fall 2, 22
Dd = dd & nd
Fall 3, 23
Dd = dd & rd
Fall sonst
Dd = dd & th
Ende auswählen
Str = ersetzen (str, {dd}, dd)
Ende wenn
'------------------------------------------------- -----------------------------------
'Sweetable, Time DateTime muss das Jahr des Jahres einschließen
'Tags: 4 {wa}: 1 {wb}: freitag {wc}: {wd}: Di
W = Wochentag (Teig)
Dim ww
'// Nummer 5
If instr (str (str, {wa})> 0 dann str = ersetzen (str, {wa}, w)
'// Englisch Freitag
If instr (str, {wb})> 0 dann
Für i = 1 bis 7
Wenn w = i dann str = ersetzen (str, {wb}, numtoen (i+11)): Beenden Sie für
Nächste
Ende wenn
'// Chinese Five
If instr (str (str, {wc})> 0 dann
Ww = w
Wenn ww = 1 dann
Str = ersetzen (str, {Wc}, Tag)
Anders
Für i = 2 bis 7
Wenn ww = i dann Str = ersetzen (str, {Wc}, numtocn (i-1)): Beenden Sie für
Nächste
Ende wenn
Ende wenn
'// englische Abkürzung Di
If instr (str, {wd})> 0 dann
Für i = 1 bis 7
Wenn w = i dann str = ersetzen (str, {wd}, links (numtoen (i+11), 3)): Beenden Sie für
Nächste
Ende wenn
'------------------------------------------------- -----------------------------------
Die Stunden der Verarbeitung, Zeitdatensätze müssen Stunden enthalten
'Etikett:
H = Stunde (DateTime)
Dim Hh
Formatdate = str
Endfunktion
%>
<%
'Beispiel
'Sub br ()
'Response.write <br/> & vbcrf
'Ende sub
'Sub out (str)
'Response.write str & vbcrlf
'Br
'Ende sub
'----------- prüfen
'Dim s, t
'S = in diesem Jahr ist {yc} Jahr von {yb} Jahr {ya} Jahr {ma} Monat {Mb} Monat {Mc} Monat {Md} {me} {da} Tag {db} Tag der {dd Tag dd } Woche {wb} | {wd} Woche {WC}
'T = jetzt ()
'Out formatdate (s, t)
%>