如何获取两个时间段内的随机时间

zhuyongzhao 2009-11-12 03:21:25
如何获取两个时间段内的随机时间?
例如一个时间段:2009-11-12 14:10:53到2009-11-12 15:10:53
如何获取这段时间内的随机时间?
...全文
370 7 打赏 收藏 转发到动态 举报
写回复
用AI写文章
7 条回复
切换为时间正序
请发表友善的回复…
发表回复
zhuyongzhao 2009-11-12
  • 打赏
  • 举报
回复
问题解决
Function TT()
randomize
Dim D1,D2,LenDate,MyRnd
D1="2006-8-17"
D2="2006-4-27"
LenDate=DateDiff("s",D1,D2)
MyRnd=CLng(Rnd()*LenDate)
TT=DateAdd("s",MyRnd,D1)
End Function
ayouori 2009-11-12
  • 打赏
  • 举报
回复
DateDiff("s",CDate("2009-11-12 14:10:53"),CDate("2009-11-12 15:10:53"))取得秒差
取0到秒着的随机整数
将随机数转换为如str = "00:11:11"样式的字符串
CDate("2009-11-12 14:10:53")+CDate(str)即结果
anbs01 2009-11-12
  • 打赏
  • 举报
回复
观望楼下!
Rotel-刘志东 2009-11-12
  • 打赏
  • 举报
回复
用函数random()
suxiuhai 2009-11-12
  • 打赏
  • 举报
回复
没试过,不知道可不可以这样去试想
生成一个时间,判断这个时间是否处于这个范围,是的话,结束循环
不是的话,重新生成一个时间
呵呵,不过自己感觉这种效果不好,因为时间段很短,要真正得到这个时间段内的数,也许要很久...
dean8828 2009-11-12
  • 打赏
  • 举报
回复
没做过,观望楼下
我自己这样理解
可以试下自定义变量,生成一个指定范围的随机数
用FUNCTION定义一个起始值和终点值

然后RESPONSE。WRITE(范围)





zhuyongzhao 2009-11-12
  • 打赏
  • 举报
回复
顶上去

28,406

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧