' ============================================
' Format time (display)
' Parameter: N_flag
' 1: "Yyyy-mm-dd hh:mm:ss"
' 2: "Yyyy-mm-dd"
' 3: "Hh:mm:ss"
' 4: "YYYY year mm month DD Day"
' 5: "YYYYMMDD"
' 6: "Yyyymmddhhmmss"
' ============================================
Function formattime (S_time, N_flag)
Dim y, M, D, H, MI, s
Formattime = ""
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
Formattime = y & "-" & M & "-" & D & "" & H & ":" & Mi & ":" & S
Case 2
' Yyyy-mm-dd
Formattime = y & "-" & M & "-" & D
Case 3
' Hh:mm:ss
Formattime = h & ":" & Mi & ":" & S
Case 4
' YYYY year mm month DD Day
Formattime = y & "Year" & M & "Month" & D & "Day"
Case 5
' YYYYMMDD
Formattime = y & M & D
Case 6
' Yyyymmddhhmmss
Formattime= Y & M & D & H & mi & S
End Select
End Function
%>