وظيفة تنسيق الوقت

<٪

'============================================

'格式化时间 (显示)

'： n_flag

'1: "Yyyy-MM-DD HH: MM: SS"

'2: "yyyy-mm-dd"

3: "HH: MM: SS"

4: "Yyyy 年 mm 月 dd 日"

'============================================

Function Format_time (S_Time ، N_FLAG)

Dim Y ، M ، D ، H ، Mi ، S

format_time = ""

إذا كان ISDate (S_TIME) = FALSE ثم الخروج وظيفة

y = cstr (السنة (s_time))

M = CSTR (شهر (S_TIME))

إذا len (m) = 1 ثم m = "0" & ​​m

D = CSTR (اليوم (S_TIME))

إذا كان len (d) = 1 ثم d = "0" & ​​d

H = CSTR (ساعة (S_TIME))

إذا كان len (h) = 1 ثم h = "0" و h

MI = CSTR (دقيقة (S_TIME))

إذا len (mi) = 1 ثم mi = "0" & ​​mi

S = CSTR (الثاني (S_TIME))

إذا len (s) = 1 ثم s = "0" & ​​s

حدد الحالة n_flag

الحالة 1

'yyyy-mm-dd hh: mm: ss

format_time = y & "-" & m & "-" & d & "" & h & ":" & mi & ":" & s

الحالة 2

yyyy-mm-dd

format_time = y & "-" & m & "-" & d

الحالة 3

'HH: MM: SS

format_time = h & ":" & mi & ":" & s

الحالة 4

'yyyy 年 mm 月 dd 日

format_time = y & "年" & m & "月" & d & "日"

نهاية الاختيار

وظيفة النهاية

٪>