Zeitformatisierungsfunktion

<%

"==============================================================================================================================================

'格式化时间 (显示)

'参数 ： n_flag

'1: "yyyy-mm-dd hh: mm: ss"

'2: "yyyy-mm-dd"

'3: "HH: MM: SS"

'4: "yjyy 年 mm 月 dd 日"

"===============================================================================================================================================

Funktion format_time (s_time, n_flag)

Dim Y, M, D, H, Mi, S

Format_time = ""

Wenn isdate (s_time) = false, dann beenden Sie die Funktion beenden

y = cstr (Jahr (s_time))

m = cstr (monat (s_time))

Wenn Len (m) = 1 dann M = "0" & ​​M.

d = cstr (tag (s_time))

Wenn Len (d) = 1 dann d = "0" & ​​d

H = CSTR (Stunde (S_Time))

Wenn len (h) = 1 dann h = "0" & ​​h

mi = cstr (minute (s_time))

Wenn Len (mi) = 1 dann Mi = "0" & ​​mi

S = CSTR (Sekunde (S_Time))

Wenn Len (s) = 1 dann s = "0" & ​​s

Wählen Sie Fall N_flag

Fall 1

'yyyy-mm-dd hh: mm: ss

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

Fall 2

'yyyy-mm-dd

Format_time = y & "-" & m & "-" & d

Fall 3

'HH: MM: SS

Format_time = h & ":" & mi & ":" & s

Fall 4

yyyy 年 mm 月 dd 日

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

Ende auswählen

Endfunktion

%>