按日期区间生成随机日期。

实现代码:

Function GetRndDate(dtStartDate As Date, dtEndDate As Date) As Date

'Designed by Daniel Pineault, CARDA Consultants Inc.
    Dim dtTmp                 As Date
    '若起始日期大于截止日期则调换两者顺序
    If dtStartDate > dtEndDate Then
        dtTmp = dtStartDate
        dtStartDate = dtEndDate
        dtEndDate = dtTmp
    End If
    Randomize  ' 对随机数生成器做初始化的动作
    GetRndDate = DateAdd("d", Int((DateDiff("d", dtStartDate, dtEndDate) + 1) * Rnd), dtStartDate)  '生成区间随机日期
End Function

附   件:

点击下载此附件

示例演示:

相关文章：

【Access基础】随机数函数--Rnd函数