Fungsi waktu konversi. Pemrosesan waktu di KingCMS juga sangat kuat, Anda dapat melihatnya.
Fungsi Fungsi Tanggal () dalam PHP terlalu kuat.
Oleh karena itu, fungsi ini belum diformat selama berjam -jam, di kedua, kedua, dan kemudian menambahkan.
<%
'********************************
'Nama: Fungsi Pemrosesan Waktu
'Fungsi: formatDate (str, datetime)
'Parameter: string str, waktu datetime
'Penulis: Xilou Lengyue
'Tanggal: 2006/1/24
'URL: www.xilou.net |
'Deskripsi: Jenis pengembalian adalah string, bukan jenis waktu, kesalahan mengembalikan false
'********************************
Fungsi FormatDate (STR, DATETIME)
FormatDate = false
If isDate (datetime) = false maka
FormatDate = false
Fungsi keluar
Akhiri jika
'// tahun, bulan, minggu, hari, jam, menit, detik
Redup y, m, w, d, h, min, s
'// konversi angka dan Cina
Redup numtocn, cnstr
CNST, Nol |
CNSTR & CNST & Twenty -se
CNSTR & Tiga Puluh Tiga Puluh Tiga Puluh Tiga Puluh Tiga Puluh Tiga Puluh Tiga Puluh Tiga Puluh Tiga Puluh Tiga Puluh
Cnstr = CNST & Forty -Three |
CNST = CNST & 54
numtocn = split (cnstr, |)
'// konversi angka dan bahasa Inggris
Redup numtoen, enstr
Enstr = Januari |
Enstr = Sunday |
numtoen = split (enstr, |)
'------------------------------------------------- ----------------------------
'Proses tahun ini, waktu datetime harus mencakup tahun ini
'Tag: 3 {ya}: 2006 {yb}: 06 {yc}: 2006
Y = tahun (datetime) '
If instr (str, {ya})> 0 lalu strep = ganti (str, {ya}, y) '2006
If instr (str, {yb})> 0 lalu str = ganti (str, {yb}, kanan (y, 2)) '06
If instr (str, {yc})> 0 lalu
Jumlah redup dan konversi Cina
Yy = y
Untuk i = 0 hingga 9
Yy = ganti (yy, i, numtocn (i))
Berikutnya
Str = ganti (str, {yc}, yy) '2006
Akhiri jika
'------------------------------------------------- ----------------------------
'Pemrosesan bulanan, waktu datetime harus mencakup tahun dan bulan
'Tag: 5 {ma}: 1 {mb}: 01 {mc}: a {md}: Januari {me}: Jan
M = bulan (datetime) 'dapatkan bulan
Redup mm
If instr (str, {ma})> 0 lalu strep = ganti (str, {ma}, m) '1
If instr (str, {mb})> 0 lalu
Jika m <10 itun mm = 0 & m
Str = ganti (str, {mb}, mm) '01
Akhiri jika
'// Cina Januari
If instr (str, {mc})> 0 lalu
Mm = m
Untuk i = 1 hingga 12
Jika mm = i maka mm = numtocn (i): keluar untuk
Berikutnya
Str = ganti (str, {mc}, mm) '
Akhiri jika
'// Bahasa Inggris Januari
If instr (str, {md})> 0 lalu
Mm = m
Untuk i = 1 hingga 12
Jika mm = i maka mm = numtoen (i-1): keluar untuk
Berikutnya
Str = ganti (str, {md}, mm)
Akhiri jika
'// Singkatan Bahasa Inggris Jan
If instr (str, {me})> 0 lalu strep = ganti (str, {me}, kiri (mm, 3))
'------------------------------------------------- ---------------------------------------
'Selama prosesnya, tanggal waktu harus mencakup tahun tahun ini
'Tag: 4 {da}: 1 {db}: 01 {dc}: a {dd}: 1st
D = hari (datetime) '
Redup dd
'// Nomor 1
If instr (str, {da})> 0 lalu strep = ganti (str, {da}, d)
'// Nomor 01
If instr (str, {db})> 0 lalu
Dd = d
Jika dd <10 itu Dd = 0 & dd
Str = ganti (str, {db}, dd)
Akhiri jika
'// Cina 1
If instr (str, {dc})> 0 lalu
Dd = d
Untuk i = 1 hingga 31
Jika dd = i maka dd = numtocn (i): keluar untuk
Berikutnya
Str = ganti (str, {dc}, dd)
Akhiri jika
'// Bahasa Inggris ke -24
If instr (str, {dd})> 0 lalu
Dd = d
Pilih Kasus DD
Kasus 1, 21, 31
Dd = dd & st
Kasus 2, 22
Dd = dd & nd
Kasus 3, 23
Dd = dd & rd
Kasus lain
Dd = dd & th
Akhiri Pilih
Str = ganti (str, {dd}, dd)
Akhiri jika
'------------------------------------------------- ---------------------------------------
'Manis, waktu datetime harus mencakup tahun dalam setahun
'Tags: 4 {wa}: 1 {wb}: Friday {wc}: {wd}: TUE
W = hari kerja (adonan)
Redup ww
'// Nomor 5
If instr (str, {wa})> 0 lalu strep = ganti (str, {wa}, w)
'// Bahasa Inggris Jumat
If instr (str, {wb})> 0 lalu
Untuk i = 1 hingga 7
Jika w = i maka str = ganti (str, {wb}, numtoen (i+11)): Keluar untuk
Berikutnya
Akhiri jika
'// Chinese Five
If instr (str, {wc})> 0 lalu
Ww = w
Jika ww = 1 maka
Str = ganti (str, {wc}, hari)
Kalau tidak
Untuk i = 2 hingga 7
Jika ww = i maka str = ganti (str, {wc}, numtocn (i-1)): Keluar untuk
Berikutnya
Akhiri jika
Akhiri jika
'// Singkatan Bahasa Inggris Sel
If instr (str, {wd})> 0 lalu
Untuk i = 1 hingga 7
Jika w = i maka str = ganti (str, {wd}, kiri (numtoen (i+11), 3)): Keluar untuk
Berikutnya
Akhiri jika
'------------------------------------------------- ---------------------------------------
'Jam pemrosesan, waktu datetime harus menyertakan jam
'Label:
H = jam (datetime)
Redup HH
FormatDate = str
Fungsi akhir
%>
<%
'contoh
'Sub Br ()
'Response.write <br/> & vbcrf
'Akhir Sub
'Sub out (str)
'Response.write str & vbcrlf
'Br
'Akhir Sub
'----------- tes
'Redup, t
'S = tahun ini adalah {yc} tahun {yb} tahun {ya} tahun {ma} bulan {mb} bulan {mc} bulan {md} {me} {da} hari {db} hari {dd hari dd } Minggu {wb} |
'T = sekarang ()
'Out FormatDate (S, T)
%>