格式化日期收藏

Function DateFormat(DateStr,Types)
    Dim DateString
if IsDate(DateStr) = False then
   DateString = ""
end if
Select Case Types
   Case "1"
    DateString = Year(DateStr)&"-"&Month(DateStr)&"-"&Day(DateStr)
   Case "2"
    DateString = Year(DateStr)&"."&Month(DateStr)&"."&Day(DateStr)
   Case "3"
    DateString = Year(DateStr)&"/"&Month(DateStr)&"/"&Day(DateStr)
   Case "4"
    DateString = Month(DateStr)&"/"&Day(DateStr)&"/"&Year(DateStr)
   Case "5"
    DateString = Day(DateStr)&"/"&Month(DateStr)&"/"&Year(DateStr)
   Case "6"
    DateString = Month(DateStr)&"-"&Day(DateStr)&"-"&Year(DateStr)
   Case "7"
    DateString = Month(DateStr)&"."&Day(DateStr)&"."&Year(DateStr)
   Case "8"
    DateString = Month(DateStr)&"-"&Day(DateStr)
   Case "9"
    DateString = Month(DateStr)&"/"&Day(DateStr)
   Case "10"
    DateString = Month(DateStr)&"."&Day(DateStr)
   Case "11"
    DateString = Month(DateStr)&"月"&Day(DateStr)&"日"
   Case "12"
    DateString = Day(DateStr)&"日"&Hour(DateStr)&"时"
   case "13"
    DateString = Day(DateStr)&"日"&Hour(DateStr)&"点"
   Case "14"
    DateString = Hour(DateStr)&"时"&Minute(DateStr)&"分"
   Case "15"
    DateString = Hour(DateStr)&":"&Minute(DateStr)
   Case "16"
    DateString = Year(DateStr)&"年"&Month(DateStr)&"月"&Day(DateStr)&"日"
   Case Else
      DateString = DateStr
End Select
DateFormat = DateString
End Function