'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 比较好用些。



