【www.gdgbn.com--中文酷站】

Public Function DateToStr(DateTime,ShowType) 
  Dim DateMonth,DateDay,DateHour,DateMinute,DateWeek,DateSecond
  Dim FullWeekday,shortWeekday,Fullmonth,Shortmonth,TimeZone1,TimeZone2
  TimeZone1="+0800"
  TimeZone2="+08:00"
  FullWeekday=Array("Sunday","Monday","Tuesday","Wednesday","Thursday","Friday","Saturday")
  shortWeekday=Array("Sun","Mon","Tue","Wed","Thu","Fri","Sat")
  Fullmonth=Array("January","February","March","April","May","June","July","August","September","October","November","December")
  Shortmonth=Array("Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep","Oct","Nov","Dec")
 
  DateMonth=Month(DateTime)
  DateDay=Day(DateTime)
  DateHour=Hour(DateTime)
  DateMinute=Minute(DateTime)
  DateWeek=weekday(DateTime)
  DateSecond=Second(DateTime)
  If Len(DateMonth)<2 Then DateMonth="0"&DateMonth
  If Len(DateDay)<2 Then DateDay="0"&DateDay
  If Len(DateMinute)<2 Then DateMinute="0"&DateMinute
  Select Case ShowType
  Case "Y-m-d" 
   DateToStr=Year(DateTime)&"-"&DateMonth&"-"&DateDay
  Case "Y-m-d H:I A"
   Dim DateAMPM
   If DateHour>12 Then
    DateHour=DateHour-12
    DateAMPM="PM"
   Else
    DateHour=DateHour
    DateAMPM="AM"
   End If
   If Len(DateHour)<2 Then DateHour="0"&DateHour 
   DateToStr=Year(DateTime)&"-"&DateMonth&"-"&DateDay&" "&DateHour&":"&DateMinute&" "&DateAMPM
  Case "Y-m-d H:I:S"
   If Len(DateHour)<2 Then DateHour="0"&DateHour 
   If Len(DateSecond)<2 Then DateSecond="0"&DateSecond
   DateToStr=Year(DateTime)&"-"&DateMonth&"-"&DateDay&" "&DateHour&":"&DateMinute&":"&DateSecond
  Case "YmdHIS"
   DateSecond=Second(DateTime)
   If Len(DateHour)<2 Then DateHour="0"&DateHour 
   If Len(DateSecond)<2 Then DateSecond="0"&DateSecond
   DateToStr=Year(DateTime)&DateMonth&DateDay&DateHour&DateMinute&DateSecond 
  Case "ym"
   DateToStr=Right(Year(DateTime),2)&DateMonth
  Case "d"
   DateToStr=DateDay
  Case "ymd"
   DateToStr=Right(Year(DateTime),4)&DateMonth&DateDay
  Case "mdy"
   Dim DayEnd
   select Case DateDay
    Case 1
     DayEnd="st"
    Case 2
     DayEnd="nd"
    Case 3
     DayEnd="rd"
    Case Else
     DayEnd="th"
   End Select
   DateToStr=Fullmonth(DateMonth-1)&" "&DateDay&DayEnd&" "&Right(Year(DateTime),4)
  Case "w,d m y H:I:S"
   DateSecond=Second(DateTime)
   If Len(DateHour)<2 Then DateHour="0"&DateHour 
   If Len(DateSecond)<2 Then DateSecond="0"&DateSecond
   DateToStr=shortWeekday(DateWeek-1)&","&DateDay&" "& Left(Fullmonth(DateMonth-1),3) &Right(Year(DateTime),4)&" "&DateHour&":"&DateMinute&":"&DateSecond&" "&TimeZone1
  Case "y-m-dTH:I:S"
   If Len(DateHour)<2 Then DateHour="0"&DateHour 
   If Len(DateSecond)<2 Then DateSecond="0"&DateSecond
   DateToStr=Year(DateTime)&"-"&DateMonth&"-"&DateDay&"T"&DateHour&":"&DateMinute&":"&DateSecond&TimeZone2
  Case Else
   If Len(DateHour)<2 Then DateHour="0"&DateHour
   DateToStr=Year(DateTime)&"-"&DateMonth&"-"&DateDay&" "&DateHour&":"&DateMinute
  End Select
 End Function

本文来源：http://www.gdgbn.com/kuzhan/24055/