TKSoft-Online

Unter MS-Access eine Zufallszahl erzeugen PDF Drucken E-Mail
( 0 Votes )
MS-Access Codes - Codeschnipsel Zahlen
  
Donnerstag, den 27. Dezember 2007 um 01:00 Uhr

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.

DatumKlicks
Total3813
Mi. 236
Di. 224
Mo. 214
So. 201
Sa. 193
Fr. 184
Do. 172
Aktualisiert ( Freitag, den 02. Juli 2010 um 08:30 Uhr )
 

Kommentar schreiben


Sicherheitscode
Aktualisieren

Login

Latest Comments

Latest Forum Posts

Mehr »

Download Statistik

41 Kategorien
187 Dateien
173460 Downloads