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

如何得到一个唯一的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: