淘先锋技术网

首页 1 2 3 4 5 6 7

VBScript格式化日期


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