وظيفة وقت التحويل. الوقت المعالج في KingCMS قوي للغاية ، يمكنك إلقاء نظرة عليه.
وظيفة التاريخ () في PHP قوية للغاية.
لذلك ، لم يتم تنسيق هذه الوظيفة لساعات ، في الثانية ، والثانية ، ثم إضافة.
<٪
'********************************
'الاسم: وظيفة معالجة الوقت
"الوظيفة: FormatDate (STR ، DateTime)
'المعلمات: سلاسل STR ، وقت DateTime
المؤلف: Xilou Lengyue
التاريخ: 2006/1/24
'URL: www.xilou.net |
الوصف: نوع الإرجاع هو سلسلة ، وليس نوع الوقت ، وإرجاع الخطأ خطأ
'********************************
تنسيق الوظيفة (STR ، DateTime)
formatdate = false
إذا isDate (dateTime) = false ثم
formatdate = false
وظيفة الخروج
إنهاء إذا
'// سنوات ، شهر ، أسبوع ، يوم ، ساعات ، دقائق ، ثواني
Dim Y ، M ، W ، D ، H ، Min ، S
'// تحويل الأرقام والصينية
خافت Numtocn ، Cnstr
CNST
CNST
CNST
CNST
Cnstr = Cnstr & 54 |
numTocn = تقسيم (cnstr ، |)
'// تحويل الأرقام والإنجليزية
خافت نومتون ، enstr
enstr = يناير |
Enstr & Sunday Monday |
numtoen = انقسام (enstr ، |)
'------------------------------------------- -----------------------------
'عملية العام ، يجب أن تتضمن وقت DateTime العام
'العلامات: 3 {ya}: 2006 {yb}: 06 {yc}: 2006
y = السنة (DateTime) ''
if Instr (str ، {ya})> 0 ثم str = استبدال (str ، {ya} ، y) '2006
if Instr (str ، {yb})> 0 ثم str = استبدال (str ، {yb} ، يمين (y ، 2)) '06
if Instr (str ، {yc})> 0 ثم
رقم خافت YY والتحويل الصيني
yy = y
لأني = 0 إلى 9
yy = استبدال (yy ، i ، numtocn (i))
التالي
str = استبدال (str ، {yc} ، yy) '2006
إنهاء إذا
'------------------------------------------- -----------------------------
"المعالجة الشهرية ، يجب أن تشمل وقت الوقت العام والشهر
'العلامات: 5 {ma}: 1 {mb}: 01 {mc}: a {md}: January {Me}: Jan
M = الشهر (DateTime) "احصل على الشهر
DIM MM
if Instr (str ، {ma})> 0 ثم str = استبدال (str ، {ma} ، m) '1
if Instr (str ، {mb})> 0 ثم
إذا كان m <10 thatn mm = 0 & m
str = استبدال (str ، {mb} ، mm) '01
إنهاء إذا
'// الصينية يناير
if Instr (str ، {mc})> 0 ثم
مم = م
لأني = 1 إلى 12
إذا mm = i ثم mm = numTocn (i): خروج من أجل
التالي
str = استبدال (str ، {mc} ، mm) '
إنهاء إذا
'// الإنجليزية يناير
if instr (str ، {md})> 0 ثم
مم = م
لأني = 1 إلى 12
إذا mm = i ثم mm = numtoen (i-1): الخروج من أجل
التالي
str = استبدال (str ، {md} ، mm)
إنهاء إذا
'// اختصار اللغة الإنجليزية يناير
if Instr (str ، {me})> 0 ثم str = استبدال (str ، {me} ، اليسار (mm ، 3))
'------------------------------------------- -----------------------------------
'خلال هذه العملية ، يجب أن تشمل تواريخ الوقت سنة السنة
'العلامات: 4 {da}: 1 {db}: 01 {dc}: a {dd}: 1st
د = اليوم (DateTime) ''
قاتمة DD
'// الرقم 1
if Instr (str ، {da})> 0 ثم str = استبدال (str ، {da} ، d)
'// الرقم 01
if Instr (str ، {db})> 0 ثم
DD = د
إذا كان dd <10 thatn dd = 0 & dd
str = استبدال (str ، {db} ، dd)
إنهاء إذا
'// الصينية 1
if Instr (str ، {dc})> 0 ثم
DD = د
لأني = 1 إلى 31
إذا كان dd = i ثم dd = numtocn (i): الخروج من أجل
التالي
str = استبدال (str ، {dc} ، dd)
إنهاء إذا
'// الإنجليزية 24
if Instr (str ، {dd})> 0 ثم
DD = د
حدد CASE 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}: الثلاثاء
ث = أيام الأسبوع (العجين)
خافت WW
'// الرقم 5
if Instr (str ، {wa})> 0 ثم str = استبدال (str ، {wa} ، w)
'// الجمعة الإنجليزية
if Instr (str ، {wb})> 0 ثم
لأني = 1 إلى 7
إذا كان w = i ثم str = استبدال (str ، {wb} ، numtoen (i+11)): خروج من أجل
التالي
إنهاء إذا
'// الصينية خمسة
if instr (str ، {wc})> 0 ثم
WW = W.
إذا WW = 1 ثم
str = استبدال (str ، {wc} ، اليوم)
آخر
لأني = 2 إلى 7
إذا كان ww = i ثم str = استبدال (str ، {wc} ، numtocn (i-1)): الخروج من أجل
التالي
إنهاء إذا
إنهاء إذا
'// الإنجليزية الاختصار الثلاثاء
if Instr (str ، {wd})> 0 ثم
لأني = 1 إلى 7
إذا كان w = i ثم str = استبدال (str ، {wd} ، اليسار (numtoen (i+11) ، 3)): الخروج من أجل
التالي
إنهاء إذا
'------------------------------------------- -----------------------------------
"ساعات المعالجة ، يجب أن تتضمن وقت الوقت ساعات
'ملصق:
H = ساعة (DateTime)
قاتمة HH
formatdate = str
وظيفة نهاية
٪>
<٪
'مثال
'sub br ()
'Response.write <br/> & vbcrf
'نهاية الفرعية
'sub out (str)
'Response.write str & vbcrlf
'بر
'نهاية الفرعية
'----------- امتحان
'Dim S ، ر
's = هذا العام هو {yc} سنة {yb} السنة {ya} السنة {ma} month {mb} month {mc} month {md} {me} {da} day {db} day the {dd day dd dd } الأسبوع {wb} |
't = الآن ()
'Formatdate (s ، t)
٪>