UFT - 随机日期

Question

我创建此代码确实会在一个范围内获得一个随机日期。我从一些站点支持它，并在其他站点的堆栈中提供了答案。这没有问题，但是当我尝试在一个函数上传递时，会一直出错。

StartDate = "01-01-1950"
EndDate= "31-12-2000"

StartDate = CDate(StartDate)
EndDate= CDate(EndDate)

Randomize
dtmRandomDate = DateValue((EndDate- StartDate + 1) * Rnd + StartDate )


Browser("DashBoard_2").Page("DashBoard").WebEdit("txtBornDate").Set dtmRandomDate

错误：

功能：

Function DataRandom(StartDate, EndDate)

    Dim StartDate, EndDate

    StartDate = CDate(StartDate)
    EndDate= CDate(EndDate)

    Randomize
    dtmRandomDate = EndDate((dtmEndDate - StartDate+ 1) * Rnd + StartDate)

End Function

我认为问题在于我传递变量的方式。关于日期函数的一些事情，我错过了它来声明，使变量接受日期？是 UFT 系统本身的问题吗？

已经尝试过，但没有成功。

谢谢你， 最好的问候

Answer 1

从测试中可以看出它在第 130 行失败；

a = DataRandom(01-02-2020, 03-04-2022)

这里有两个问题：

1. 函数DateRandom() 期望返回一个值，但函数定义不包含返回结果的语句，并且其行为更像是子过程而不是函数。要解决此问题，请将函数定义更改为；

   Function DataRandom(StartDate, EndDate)
       Dim StartDate, EndDate
   
       StartDate = CDate(StartDate)
       EndDate = CDate(EndDate)
   
       Randomize 'Should be initialised once rather than with each call to the function.
       dtmRandomDate = DateValue((EndDate - StartDate + 1) * Rnd + EndDate)
   
       DateRandom = dtmRandomDate 'This line returns the result.
   End Function
   

2. 传递给函数的参数在语法上存在问题，因为您使用 CDate() 将值转换为正确的 Date 您应该将值作为字符串传递。这只需要在测试中将每个参数封装在双引号中。

   a = DataRandom("01-02-2020", "03-04-2022")
   

---

正如out in the comments 所指出的，Randomize 语句应该只运行一次，而不是在每次调用函数时运行。理想情况下，您应该有一个处理脚本设置和初始化的Init() 过程。

Answer 2

所以得到 Lankymart 的帮助，这是 libray 的最后一个功能。 更改变量，或根据需要声明。

Public StartDate, EndDate

Function DateRandom(StartDate, EndDate)


    Dim dtmRandomDate, dtmStartDate, dtmEndDate

    dtmStartDate = CDate(StartDate)
    dtmEndDate = CDate(EndDate)

    dtmRandomDate = DateValue((dtmEndDate - dtmStartDate + 1) * Rnd + dtmStartDate)

    DateRandom = dtmRandomDate 'Returning the result

End Function