Bitmuster - mehr als ein Bit gesetzt?

[Axel Richter]

Hallo,

Bit   Recht

1     Recht1
2     Recht2
4     Recht3
8     Recht4
16    Recht5
32    Recht6
64    Recht7
...   ...

Eigenschaft des Benutzers:
rechte_var = 7
--> Benutzer hat Recht1, Recht2 und Recht3

recht = Array(1, 2, 4, 8, 16, 32, 64)

rechte_var = 7

anz_rechte = 0

For i = 1 To 7
   If (rechte_var And recht(i-1)) <> 0 Then
     MsgBox ("Nutzer hat Recht " & i)
     anz_rechte = anz_rechte + 1
   End If
 Next

msgbox("Nutzer hat " & anz_rechte & " Rechte.")

viele Grüße

Axel