TA的每日心情 | 开心 2014-11-27 13:57 |
---|
签到天数: 1 天 连续签到: 1 天 [LV.1]测试小兵
|
测试的功能:选定查询的开始时间和结束时间,时间格式必须是yyyymmdd。
我的实现:
编写了一个函数来完成格式的转换,然后在脚本中调用此函数来获得符合格式的日期。
函数如下:
Function DateFormat(ByVal datenow)
Dim nowArray(3),templen1,templen2,datenow2
nowArray(0)=Cstr(Year(datenow))
nowArray(1)=Cstr(Month(datenow))
nowArray(2)=Cstr(Day(datenow))
templen1=Len(nowArray(1))
if(templen1<2) Then
nowArray(1)=0&nowArray(1)
ElseIf(templen1>2)Then
DateFormat="Error"
Exit Function
End if
templen2=Len(nowArray(2))
if(templen2<2) Then
nowArray(2)=0&nowArray(2)
ElseIf(templen2>2)Then
DateFormat="Error"
Exit Function
End If
DateFormat=nowArray(0)&nowArray(1)&nowArray(2)
End Function
存储为的文件名是:DateFormat.qfl
在文件的Setting中把此函数设定为资源。
脚本中调用的地方是这么写的:
yes=DateAdd("d",-1,Date)'历史明细的结束日期不能是当前日期,故采用了当前日期的前一天
strDate =DateFormat(DateAdd("m",-3,yes))'设置历史明细开始日期
endDate = DateFormat(yes)'设置历史明细结束日期
一运行就会报错,提示:
|
|