随笔分类 -  QTP

摘要:'************************************'功能:获取当前年月日时分秒的连续数字字符串'参数:无'调用方式: ret = GetCurrentTime()'返回值:返回年月日时分秒的连续数字字符串如:20130808080808'作者:HF'日期:2013-08-19... 阅读全文
posted @ 2014-12-11 15:14 芯树 阅读(651) 评论(0) 推荐(0)
摘要:' Const Reading=1,Writing=2,Appending=8' Set Fso=CreateObject("Scripting.FileSystemObject")' Dim txtPath' a=DATE()' Datetime = date ' Parameter = Array("yyyy","m","d")' For Each P In Parameter' Temp = DatePart(P,Datetime)' I 阅读全文
posted @ 2014-01-20 11:06 芯树 阅读(243) 评论(0) 推荐(0)