version=1.0.0 vdate= fname=udf_andb.bas ns=%NAMESPACE% fpath=/vba/functions ====== [VBA] andB() ====== Führt einen Bitvergleich durch und gibt ein Boolean zurück. ==Version %%version%%== {{%%fname%%|Download %%fname%% (V-%%version%%)}} ===== Beschreibung ===== Um einen wirklich Aussagekräftigen Bit-Vergleich bei VBA zu machen, reicht das AND nicht aus. SOndern es muss das Resultat gegen den gewünschten Wert geprüft werden: ''(haystack AND needle) = needle''. Mir wurde es zu mühsam, das immer auszuschreiben. Darum erstellt ich diese kleine Hilfsfunktion andB() ===== Beispiele ===== ?andB(3, 1) True ?andB(3, 4) False ?andB(6, 1) False ===== Code =====