function | date
'================================================
' Function name: formatdate
' Function: Format date
' Parameters: DateAndTime----Original date and time
' Para----date format
' Return value: the date formatted
'================================================
Public Function formatdate (DateAndTime, para)
On Error Resume Next
Dim y, M, D, H, MI, S, strdatetime
FormatDate = DateAndTime
If not IsNumeric (para) Then Exit Function
If not IsDate (dateandtime) Then Exit Function
y = CStr (year (dateandtime))
m = CStr (Month (DateAndTime))
If Len (m) = 1 Then m = "0" & M
D = CStr (Day (DateAndTime))
If Len (d) = 1 Then D = "0" & D
h = CStr (Hour (DateAndTime))
If Len (h) = 1 Then h = "0" & H
Mi = CStr (Minute (DateAndTime))
If Len (mi) = 1 Then mi = "0" & mi
s = CStr (Second (DateAndTime))
If Len (s) = 1 Then s = "0" & S
Select Case Para
Case "1"
Strdatetime = y & "-" & M & "-" & D & "" & H & ":" & Mi & ":" & S
Case "2"
Strdatetime = y & "-" & M & "-" & D
Case "3"
Strdatetime = y & "/" & M & "/" & D
Case "4"
Strdatetime = y & "Year" & M & "Month" & D & "Day"
Case "5"
Strdatetime = M & "-" & D & "" & H & ":" & mi
Case "6"
Strdatetime = M & "/" & D
Case "7"
Strdatetime = M & "Month" & D & "Day"
Case "8"
Strdatetime = y & "Year" & M & "Month"
Case "9"
Strdatetime = y & "-" & M
Case "10"
Strdatetime = y & "/" & M
Case "11"
Strdatetime = Right (y,2) & "-" &m & "-" & D & "" & H & ":" & mi
Case "12"
Strdatetime = Right (y,2) & "-" &m & "-" & D
Case "13"
Strdatetime = M & "-" & D
Case Else
Strdatetime = DateAndTime
End Select
FormatDate = Strdatetime
End Function