VBScript格式化日期

最新推荐文章于 2023-12-12 10:14:39 发布

原创最新推荐文章于 2023-12-12 10:14:39 发布 · 1.6k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#vbscript #function

VBScript 专栏收录该内容

1 篇文章

订阅专栏

本文介绍了一个用于日期格式转换的函数，可以根据不同的参数将日期转换成多种格式，如YYYYMMDDHHmmss、YYYY-MM-DD等。该函数适用于需要灵活处理日期显示的应用场景。

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