✔ Random Zahl zwischen X & Y ABER teilbar durch

[GodWar]

Guten Tag!

Noch ein kleinen Denkanstoß bitte!

Ich brauche eine Zahl zwischen z.B. 16 und 400 die aber auch durch 16 teilbar ist!

Dies hier:

Private Function GetRandomNum(Min As Long, Max As Long) As Long
    GetRandomNum = Int((Max - Min + 16) * Rnd + Min)
End Function

Randomize
Start = GetRandomNum(16, 400)

Funktioniert nicht richtig! Die Zahlen sind NIE durch 16 teilbar!

DANKE

 

[DrSoong]

Hier eine Funktion, die funktioniert:

Private Function GetRandomNum(Teiler As Long, Max As Long) As Long
 GetRandomNum = Int((Int(Max / Teiler) + 1) * Rnd) * Teiler
End Function

Aufruf geht wie bisher:

 Randomize
 Start = GetRandomNum(16, 400)

Im oa Beispiel ist der Teiler variabel, da die Zahl ja durch ihn teilbar sein soll ersparst du dir ein fixes Minimum.


Der Doc!

 

[GodWar]

Merci