Does anybody know of a way to generate a series of random dates in Access? I want to generate, through VBA a random date between today and two weeks ago.

Thanks.

Public Function RandomDate() As Date
Dim rndNum As Integer
rndNum = Int((14 * Rnd) + 1)
RandomDate = Date - rndNum
End Function

Actually, this is relatively easy using the DateAdd() and Rnd() functions.

DateAdd("y", -(Rnd([SeedField])*14 + 1), Date())

FedcDAD and Jerry,

Thanks!

This site is really getting to be my "Easy Button."

Rich,

See Attached

You're welcome.

Good Luck!

John,

I added your attachment to my 'MustSave' USB Drive.

Aqua

Good Deal Aqua, Glad to help out problem I have in doing that is

1. Remembering I have it
2. Remembering the name
3. Remembering where I placed it

John,



....me too! Thanks!!!