Time formatization function

<%

’ ============================================

’ 格式化时间(显示)

’ 参数：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 = ""

If IsDate(s_Time) = False Then Exit Function

y = cstr(year(s_Time))

m = cstr(month(s_Time))

If len(m) = 1 Then m = "0" & m

d = cstr(day(s_Time))

If len(d) = 1 Then d = "0" & d

h = cstr(hour(s_Time))

If len(h) = 1 Then h = "0" & h

mi = cstr(minute(s_Time))

If len(mi) = 1 Then mi = "0" & mi

s = cstr(second(s_Time))

If len(s) = 1 Then s = "0" & s

Select Case n_Flag

Case 1

’ yyyy-mm-dd hh:mm:ss

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

Case 2

’ yyyy-mm-dd

Format_Time = y & "-" & m & "-" & d

Case 3

’ hh:mm:ss

Format_Time = h & ":" & mi & ":" & s

Case 4

’ yyyy年mm月dd日

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

End Select

End Function

%>