Mit der bereitgestellten Klasse kann ein zufälliges Datum in den angeben (links abeschlossenen) Intervall erzeugt werden.
Beispiel:
Imports System
Namespace GetRandomDate
Public Class Program
Public Shared Sub Main()
Dim minDate As New DateTime(1982, 7, 22)
Dim maxDate As DateTime = DateTime.Now
Dim [date] As DateTime = New gfoidl.Tools.DateAndTime().GetRandomDate(minDate, maxDate)
End Sub
End Class
End Namespace
Eine Anpassung auf Uhrzeiten ist einfach möglich indem zB Days durch Seconds ersetzt wird.
Imports System
Namespace gfoidl.Tools
Public Class DateAndTime
Private _rnd As New Random()
Public Function GetRandomDate(ByVal minDate As DateTime, ByVal maxDate As DateTime) As DateTime
Dim days As Integer = (maxDate - minDate).Days
Dim randomDays As Integer = _rnd.[Next](0, days)
Return minDate.AddDays(randomDays)
End Function
End Class
End Namespace
1 Kommentare zum Snippet