ฟังก์ชั่นของเวลาการแปลง การประมวลผลเวลาใน KINGCMS นั้นทรงพลังมากคุณสามารถดูได้
ฟังก์ชั่นวันที่ () ใน PHP นั้นทรงพลังเกินไป
ดังนั้นฟังก์ชั่นนี้ยังไม่ได้รับการจัดรูปแบบเป็นเวลาหลายชั่วโมงในวินาทีวินาทีที่สองและเพิ่ม
-
-
'ชื่อ: ฟังก์ชั่นการประมวลผลเวลา
'ฟังก์ชั่น: FormatDate (Str, DateTime)
'พารามิเตอร์: Strings Strings, DateTime Time
'ผู้แต่ง: Xilou Lengyue
'วันที่: 2006/1/24
'URL: www.xilou.net | www.chinacms.org
'คำอธิบาย: ประเภทการส่งคืนเป็นสตริงไม่ใช่ประเภทเวลาข้อผิดพลาดจะส่งคืนเท็จ
-
Function FormatDate (Str, DateTime)
formatDate = false
ถ้า isdate (dateTime) = false แล้ว
formatDate = false
ฟังก์ชั่นออก
สิ้นสุดถ้า
'// ปี, เดือน, วัน, วัน, ชั่วโมง, นาที, นาที, วินาที
Dim y, m, w, d, h, min, s
'// การแปลงตัวเลขและภาษาจีน
Dim Numtocn, cnstr
CNST
CNST
CNST
CNST
cnstr = cnstr & 54 |
numtocn = split (cnstr, |)
'// การแปลงตัวเลขและภาษาอังกฤษ
สลัว numtoen, stentr
enstr = เดือนมกราคม |
enstr = วันอาทิตย์ |
numtoen = split (enstr, |)
-
'กระบวนการของปีเวลาต้องรวมถึงปี
'แท็ก: 3 {ya}: 2006 {yb}: 06 {yc}: 2006
y = ปี (dateTime) '
ถ้า instr (str, {ya})> 0 จากนั้น str = แทนที่ (str, {ya}, y) '2006
ถ้า instr (str, {yb})> 0 จากนั้น str = แทนที่ (str, {yb}, ขวา (y, 2)) '06
ถ้า instr (str, {yc})> 0 แล้ว
จำนวนหรี่
yy = y
สำหรับ i = 0 ถึง 9
yy = แทนที่ (yy, i, numtocn (i))
ต่อไป
str = แทนที่ (str, {yc}, yy) '2006
สิ้นสุดถ้า
-
'การประมวลผลรายเดือนเวลาวันเวลาจะต้องรวมถึงปีและเดือน
'แท็ก: 5 {ma}: 1 {mb}: 01 {mc}: a {md}: มกราคม {me}: Jan
m = เดือน (dateTime) 'รับเดือน
Dim MM
ถ้า instr (str, {ma})> 0 จากนั้น str = แทนที่ (str, {ma}, m) '1
ถ้า instr (str, {mb})> 0 แล้ว
ถ้า m <10 thatn mm = 0 & m
str = แทนที่ (str, {mb}, mm) '01
สิ้นสุดถ้า
'// จีนมกราคม
ถ้า instr (str, {mc})> 0 แล้ว
mm = m
สำหรับ i = 1 ถึง 12
ถ้า mm = i แล้ว mm = numtocn (i): ออกสำหรับ
ต่อไป
str = แทนที่ (str, {mc}, mm) '
สิ้นสุดถ้า
'// ภาษาอังกฤษมกราคม
ถ้า instr (str, {md})> 0 แล้ว
mm = m
สำหรับ i = 1 ถึง 12
ถ้า mm = i แล้ว mm = numtoen (i-1): ออกสำหรับ
ต่อไป
str = แทนที่ (str, {md}, mm)
สิ้นสุดถ้า
'// คำย่อภาษาอังกฤษ ม.ค.
ถ้า instr (str, {me})> 0 จากนั้น str = แทนที่ (str, {me}, ซ้าย (มม., 3))
-
'ในระหว่างกระบวนการวันที่เวลาจะต้องรวมถึงปีของปี
'แท็ก: 4 {da}: 1 {db}: 01 {dc}: a {dd}: 1st
d = วัน (dateTime) '
DIM DD
'// หมายเลข 1
ถ้า instr (str, {da})> 0 จากนั้น str = แทนที่ (str, {da}, d)
'// หมายเลข 01
ถ้า instr (str, {db})> 0 แล้ว
dd = d
ถ้า dd <10 thatn dd = 0 & dd
str = แทนที่ (str, {db}, dd)
สิ้นสุดถ้า
'// ภาษาจีน 1
ถ้า instr (str, {dc})> 0 แล้ว
dd = d
สำหรับ i = 1 ถึง 31
ถ้า dd = i แล้ว dd = numtocn (i): ออกสำหรับ
ต่อไป
str = แทนที่ (str, {dc}, dd)
สิ้นสุดถ้า
'// ภาษาอังกฤษ 24
ถ้า instr (str, {dd})> 0 แล้ว
dd = d
เลือกเคส DD
กรณีที่ 1, 21, 31
dd = dd & st
กรณีที่ 2, 22
dd = dd & nd
กรณีที่ 3, 23
dd = dd & rd
กรณีอื่น
dd = dd & th
สิ้นสุดเลือก
str = แทนที่ (str, {dd}, dd)
สิ้นสุดถ้า
-
'วันที่หวานเวลาต้องรวมปีของปี
'แท็ก: 4 {wa}: 1 {wb}: วันศุกร์ {wc}: {wd}: tue
W = วันธรรมดา (แป้ง)
สลัว WW
'// หมายเลข 5
ถ้า instr (str, {wa})> 0 จากนั้น str = แทนที่ (str, {wa}, w)
'// ภาษาอังกฤษวันศุกร์
ถ้า instr (str, {wb})> 0 แล้ว
สำหรับ i = 1 ถึง 7
ถ้า w = i แล้ว str = แทนที่ (str, {wb}, numtoen (i+11)): ออกสำหรับ
ต่อไป
สิ้นสุดถ้า
'// ภาษาจีนห้า
ถ้า instr (str, {wc})> 0 แล้ว
ww = w
ถ้า ww = 1 แล้ว
str = แทนที่ (str, {wc}, วัน)
อื่น
สำหรับ i = 2 ถึง 7
ถ้า ww = i แล้ว str = แทนที่ (str, {wc}, numtocn (i-1)): ออกสำหรับ
ต่อไป
สิ้นสุดถ้า
สิ้นสุดถ้า
'// คำย่อภาษาอังกฤษ
ถ้า instr (str, {wd})> 0 แล้ว
สำหรับ i = 1 ถึง 7
ถ้า w = i แล้ว str = แทนที่ (str, {wd}, ซ้าย (numtoen (i+11), 3)): ออกสำหรับ
ต่อไป
สิ้นสุดถ้า
-
'ชั่วโมงของการประมวลผลเวลา dateTime ต้องรวมชั่วโมง
'ฉลาก:
H = ชั่วโมง (DateTime)
หรี่
formatDate = str
ฟังก์ชันสิ้นสุด
-
-
'ตัวอย่าง
'sub br ()
'response.write <br/> & vbcrf
'ปลายย่อย
'ย่อย (str)
'response.write str & vbcrlf
'Br
'ปลายย่อย
'----------- ทดสอบ
'Dim S, T, T
's = ปีนี้คือ {yc} ปีของ {yb} ปี {ya} ปี {ma} เดือน {mb} เดือน {mc} เดือน {md} {me} {da} วัน {db} วันวัน {dd day dd dd dd วัน } สัปดาห์ {wb} | {wd} สัปดาห์ {wc}
't = ตอนนี้ ()
'Out FormatDate (S, T)
-