Función de formatización de tiempo

<%

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

'格式化时间 (显示)

'参数 ： n_flag

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

'2: "aaa yyy-mm-dd"

'3: "HH: MM: SS"

'4: "Yyyy 年 mm 月 dd 日"

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

Format_time de función (S_Time, N_FLAG)

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

Format_time = ""

If isDate (s_time) = false entonces salir de la función

y = cstr (año (s_time))

M = CSTR (mes (S_Time))

Si len (m) = 1 entonces m = "0" & ​​m

d = cstr (día (s_time))

Si len (d) = 1 entonces d = "0" & ​​D

h = cstr (hora (s_time))

Si len (h) = 1 entonces h = "0" & ​​H

MI = CSTR (minuto (s_time))

Si len (mi) = 1 entonces mi = "0" y mi

S = CSTR (segundo (S_Time))

Si len (s) = 1 entonces s = "0" & ​​s

Seleccionar el caso n_flag

Caso 1

'aaaa-mm-dd hh: mm: ss

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

Caso 2

'aaa-mm-dd

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

Caso 3

'HH: MM: SS

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

Caso 4

'aaa 年 mm 月 dd 日

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

Final seleccionar

Función final

%>