(分享)如何生成随机日期

zhuyiwen

生成随机日期

原文：
http://bcd.office-cn.net/article.asp?id=30

1. 启动 Microsoft Access，并打开数据库。
2. 按Alt+F11进入VBA编辑器，点击菜单插入->模块。
3. 键入或粘贴以下代码模块中：

1. Function RandomDateInRange(LowerDate As Date, UpperDate As Date) As Date
   
2.     RandomDateInRange = Int((UpperDate - LowerDate + 1) * Rnd + LowerDate)
   
3. End Function
   
4. 
   
5. Function RandomDate() As Date
   
6.     RandomDate = Int(Rnd() * CDbl(Date + 1))
   
7. End Function

复制代码

4. 按Crtl+S，保存项目。
5. 测试：在立即窗口，键入以下行，在每行后按 ENTER 键：

1. ? RandomDateInRange(#1/1/2001#, #12/31/2001#)
   
2. ? RandomDate()

复制代码

cyber-bobo

look look

huangqinyong

ynjxw

see

轻风

学习[:19]

goto2008

lanchong

ccc

glw

[:50]

红兜兜

[:31]

cangqiong

[:31]