Функция форматизации времени

<%

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

'格式化时间 (显示)

'： ： N_flag

'1: "yyyy-mm-dd HH: MM: SS"

'2: "yyyy-mm-dd"

'3: "HH: MM: SS"

4: "Yyyy 年 мм 月 dd 日"

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

Function format_time (s_time, n_flag)

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

Format_time = ""

If isdate (s_time) = false, затем выход функции

y = cstr (год (s_time))

m = cstr (месяц (s_time))

Если len (m) = 1, то m = "0" & ​​m

d = cstr (day (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 (Second (S_TIME))

Если len (s) = 1, то s = "0" & ​​s

Выберите Case 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 年 мм 月 dd 日

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

Конец выбора

Конечная функция

%>