我会定期把我的测试心得和体会发表在这里,希望来阅览的每位朋友都有所获。即使没有,有一点启发,我也心满意足。我也欢迎您的留言,哪怕是对我的批评,或者是指出我的错误。

如何得到一个唯一的ID

上一篇 / 下一篇  2008-04-01 18:26:39

测试某些应用程序的功能时,code或Name 要求必须唯一。于是,如何得到一个唯一的值呢? 可以使用 随机数,但产生的随机数到底是什么,不好控制。另外,我们可以利用每天都变化的日期作为这个唯一的值。下面的代码就得到了8位数的今天的日期。

today = CStr(date)
MyArray = Split(today,"/",-1,1)

temp= MyArray(0)
If len(temp)=1  Then
 temp = "0"&temp
End If

For inter = 1 to UBound(MyArray)
 If len(MyArray(inter)) = 1 Then
  MyArray(inter) = "0"& MyArray(inter)
 End If
    temp = temp&MyArray(inter)
Next


TAG:

 

评分:0

我来说两句

日历

« 2024-03-20  
     12
3456789
10111213141516
17181920212223
24252627282930
31      

数据统计

  • 访问量: 35683
  • 日志数: 47
  • 建立时间: 2006-12-15
  • 更新时间: 2013-09-06

RSS订阅

Open Toolbar