Zufälliges Datum erzeugen

Mit der bereitgestellten Klasse kann ein zufälliges Datum in den angeben (links abeschlossenen) Intervall erzeugt werden. Beispiel: [code] 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 [/code] 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