vbs格式化日期(多种方式)

原创
2016/07/09 11:20
阅读数 4.1K

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")   

2、使用方法

FormateDateTime(date(), "3")  指定对应编码即可。

支持以下方式:

YYYYMMDDHHmmss 

YYYYMMDD

YYYY-MM-DD

YYYY年MM月DD日

YYYY-MM-DD   HH:mm:ss 

3、演示

如:FormateDateTime(date(), "4"),结果如下:

 

 

展开阅读全文
加载中
点击引领话题📣 发布并加入讨论🔥
打赏
0 评论
0 收藏
0
分享
返回顶部
顶部