Date aléatoire entre 2 dates

Cette fonction permet de retourner une date aléatoire qui sera comprise entre 2 dates spécifiques.

L'argument "dtStart" correspond à la date minimum souhaitée et l'ardument "dtEnd" correspond à la date maximum souhaitée.

Function fDtRnd(dtStart As Date, dtEnd As Date) As Date

DtRnd = CDate(Int((CLng(dtEnd) - CLng(dtStart) + 1) _
    * Rnd + CLng(dtStart)))

End Function

Cette fonction retournera une date comprise entre les 2 dates renseignées dans les arguments de la fonction.

Auteur : Jessy SEMPERE