Function FormateDateTime(sendTime,Para) select case Para rem YYYYMMDDHHmmss case "1" sendTime = year(sendTime) & right( "00" & month(sendTime),2) & right( "00" & day(sendTime),2) & right( "00 " & hour(sendTime),2) & right( "00" & minute(sendTime),2) & right( "00" & second(sendTime),2) rem YYYYMMDD case "2" sendTime = year(sendTime) & right( "00" & month(sendTime),2) & right( "00" & day(sendTime),2) rem YYYY-MM-DD case "3" sendTime = year(sendTime) & "-"& right( "00" & month(sendTime),2) & "-"& right( "00" & day(sendTime),2) rem YYYY年MM月DD日 case "4" sendTime = year(sendTime) & "年"& right( "00" & month(sendTime),2) & "月"& right( "00" & day(sendTime),2)& "日" rem YYYY-MM-DD HH:mm:ss case "5" sendTime = year(sendTime) & "-"& right( "00" & month(sendTime),2) & "-"& right( "00" & day(sendTime),2) & " "& right( "00" & hour(sendTime),2) & ":"& right( "00" & minute(sendTime),2) & ":"& right( "00" & second(sendTime),2) end select FormateDateTime = SendTime end Function
