Visual Basic Rastgele Tarih Yaratmak

Visual Basic programlama dilinde rastgele (random) bir tarih yaratmak için aşağıdaki örnek kod kullanılabilir..

Private Function RastgeleTarih() As Date

    Dim start As Date = New DateTime(1900, 1, 1)
    Dim gen As Random = New Random()

    Dim range = (Date.Today - start).Days

    Return start.AddDays(gen.Next(range))

End Function


İlginizi Çekebilir

Visual Basic Dosya Boyutunu Öğrenme

Visual Basic Bir Stringin Ortadaki Üç Karakterini Bulma Örneği

Visual Basic Bir Dizideki Tek Sayıların Adetini Bulma Örneği

Visual Basic Bir Dizindeki Tüm Dosyaların Silinmesi

Visual Basic Fibonacci Serisinde N'inci Terimi Bulma Örneği