'================================================

'函数名：FormatDate
'作 用：格式化日期
'参 数：DateAndTime----原日期和时间
'  para----日期格式
'返回值：格式化后的日期
'================================================
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
 End If
 If Not IsDate(DateAndTime) Then
  Exit Function
 End If
 
 y=CStr(Year(DateAndTime))
 
 m=CStr(Month(DateAndTime))
 If Len(m)=1 Then
  m="0"&m
 End If
 
 d=CStr(Day(DateAndTime))
 If Len(d)=1 Then
  d="0"&d
 End If
 
 h=CStr(Hour(DateAndTime))
 If Len(h)=1 Then
  h="0"&h
 End If
 
 mi=CStr(Minute(DateAndTime))
 If Len(mi)=1 Then
  mi="0"&mi
 End If
 
 s=CStr(Second(DateAndTime))
 If Len(s)=1 Then
  s="0"&s
 End If
 
 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&"年"&m&"月"&d&"日"
 Case "5"
  strDateTime=right(y,2)&"-" &m&"-"&d&" "&h&":"&mi
 Case "6"
  strDateTime=y&m&d&h&mi&s '订单号
 Case Else
  strDateTime=DateAndTime
 End Select
 
 FormatDate=strDateTime
End Function