'YYYY-MM-DD、YY-M-D、YYYY/MM/DD、YY/M/D
Function DateTimeFormat(dateTime, format)
   Select Case format
       Case "YYYY-MM-DD"
           DateTimeFormat = Year(dateTime) & "-" & Right("0" & Month(dateTime), 2) & "-" & Right("0" & Day(dateTime), 2)
       Case "YY-M-D"
           DateTimeFormat = Right(Year(dateTime), 2) & "-" & Month(dateTime) & "-" & Day(dateTime)
       Case "YYYY/MM/DD"
           DateTimeFormat = Year(dateTime) & "/" & Right("0" & Month(dateTime), 2) & "/" & Right("0" & Day(dateTime), 2)
       Case "YY/M/D"
           DateTimeFormat = Right(Year(dateTime), 2) & "/" & Month(dateTime) & "/" & Day(dateTime)
       Case Else
           DateTimeFormat = dateTime
   End Select
End Function


有一个系统自带的函数 FormatDateTime(Now, 1)，第二个参数可以指定样式，但种类不多，写一个自定义的DateTimeFormat 比较好用些。