VBA Useful Random Functions

gistfile1.vb

Sub Test()
    Debug.Print Random(0, 50)
    Debug.Print RandomDateBetween(#1/1/2001#, #12/31/2001#)
    Debug.Print RandomFrom(Array("cat", "dog"))
    Debug.Print RandomDate
End Sub

Function RandomFrom(A As Variant) As String
    RandomFrom = CStr(A(Random(0, UBound(A))))
End Function

Function RandomDate() As Date
    RandomDate = Int(Rnd() * CDbl(Date + 1))
End Function

Function RandomDateBetween(LowerDate As Date, UpperDate As Date) As Date
    RandomDateBetween = Int((UpperDate - LowerDate + 1) * Rnd + LowerDate)
End Function

Function Random(S As Integer, E As Integer) As Integer
    Random = Int(Rnd * (E - S + 1)) + S
End Function