vbs格式化日期（多种方式）

最新推荐文章于 2022-04-28 13:33:47 发布

转载最新推荐文章于 2022-04-28 13:33:47 发布 · 2.8k 阅读

3 ·

CC 4.0 BY-SA版权

原文链接：https://my.oschina.net/u/2391658/blog/708813

文章标签：

#python

本文介绍了一个用于日期格式转换的VBScript函数FunctionFormateDateTime。该函数支持多种日期格式的转换，包括YYYYMMDDHHmmss、YYYYMMDD、YYYY-MM-DD、YYYY年MM月DD日及YYYY-MM-DD HH:mm:ss等。文章还提供了函数的具体使用方法和示例。

2019独角兽企业重金招聘Python工程师标准>>>

1、源码

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 

MsgBox FormateDateTime(date(), "3")