Office: logische Vergleichsoperation OR / AND

Hallo,

aus einem Quellcode habe ich folgenden Code versucht nachzustellen um die Logik dahinter zu verstehen, leider Fehlanzeige.

Hier der Ursprung "allen Übels"

Code:

CByte((v Or t) And &HFF)

Hierbei geht es mir nur um die OR und AND Passagen, nicht um den Hexwert danach!

Ich habe mir einen kurzen Code mit dem Vergleich geschrieben, um daraus vielleicht die Logik zu erkennen..., immer noch keine Idee, was genau damit wie erreicht wird.
Hier mein Code dazu:

Code:

Option Explicit

Sub Test_Logical_OR_And_AND()
Dim intZaehlerA As Integer, intZaehlerB As Integer
With ThisWorkbook.Sheets(1)
    .Cells.ClearContents
        ' OR
                .Cells(1, 1) = "Wert A"
                .Cells(1, 2) = "Wert B"
                .Cells(1, 3) = "Formel"
                .Cells(1, 4) = "Ergebnis"
        ' AND
                .Cells(1, 6) = "Wert A"
                .Cells(1, 7) = "Wert B"
                .Cells(1, 8) = "Formel"
                .Cells(1, 9) = "Ergebnis"
   intZaehlerA = 47
        For intZaehlerB = 0 To 255
        ' OR
                .Cells(intZaehlerB + 2, 1) = intZaehlerA
                .Cells(intZaehlerB + 2, 2) = intZaehlerB
                .Cells(intZaehlerB + 2, 3) = CStr("(" & intZaehlerA & " OR " & intZaehlerB & ")")
                .Cells(intZaehlerB + 2, 4) = (intZaehlerA Or intZaehlerB)
        ' AND
                .Cells(intZaehlerB + 2, 6) = intZaehlerA
                .Cells(intZaehlerB + 2, 7) = intZaehlerB
                .Cells(intZaehlerB + 2, 8) = CStr("(" & intZaehlerA & " AND " & intZaehlerB & ")")
                .Cells(intZaehlerB + 2, 9) = (intZaehlerA And intZaehlerB)
        Next intZaehlerB
'    Next intZaehlerA
End With
MsgBox ("Fertig"), vbInformation
End Sub

Vielleicht ist da ja wer, der mir das Tiefere dieser Sache erklären kann.
Das wäre echt Klasse!

Vielen Dank!!

 

Hallo,

es handelt sich bei "OR" bzw. "AND" um die bitweise OR- bzw. AND-Funktion, die auf 2 numerische Operanden angewandt werden:
Du musst Operand1 und Operand2 jeweils in einen Bitstring umwandeln und dann auf jede Bitstelle der beiden Operanden die OR- bzw. AND-Operation ausführen. Dadurch erhältst du als Ergebnis wieder einen Bitstring, den du in eine Dezimalzahl rückverwandeln kannst, sodass schließlich das Ergebnis, wie von deinem Makro produziert, erscheint.

Als Demobeispiel:

Code:

Operanden   Op-Bitstring1   Op.Bitstring2   Operation  Ergebnis-Bitstring  Ergebnis-Zahl
 47     2         101111       000010           OR            101111                47
 47     2         101111       000010           AND           000010                 2
 47    16         101111       010000           OR            111111                63
 46    16         101111       010000           AND           000000                 0