QTP的那些事---时间格式转换函数

*******************************************************************************************

'功能：时间字符串格式转换

'参数：str代表时间字符串，formatdata代表需要截取的字符

'返回值：获取你所需指定的单元格的值

'作者：

'*******************************************************************************************

Function dateFormat(str,formatdata)

t=Split(str,formatdata,-1,1)

newstr=join(t,"")

dateFormat=newstr

End function

'时间格式转换

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 

本文转自hcy's workbench博客园博客，原文链接：http://www.cnblogs.com/alterhu/archive/2011/12/31/2308963.html ，如需转载请自行联系原作者。