ACtually, more sensible is

[vba]

mytime = FormatDateTime(Now + Int(1440 * Rnd + 1) / 1440, 4)
[/vba]