Unter MS-Access eine Zufallszahl erzeugen

Codes Zahlen 18. August 2026 Zugriffe: 28

Für 32Bit und 64Bit Office Versionen

Problemstellung:

Wie kann ich eine Zufallszahl erzeugen?

Function ZufallszahlAusgeben(lngUntergrenze As Long, lngObergrenze As Long)
    
  Randomize Timer
  ZufallszahlAusgeben = Int((lngObergrenze - lngUntergrenze + 1) _
                               * Rnd + lngUntergrenze)
End Function

Aufruf:

Dim x As Long
x = ZufallszahlAusgeben(1, 100)

x würde ein Zufallszahl zwischen 1 und 100 annehmen.

Home

Unter MS-Access eine Zufallszahl erzeugen

Wir verwenden Cookies