VB6 Operatori logici

[Fractals87]

Ciao a tutti,

Dim RigaOttica As Long
Dim Decade12 As Long
Dim Decade34 As Long
Dim Decade56 As Long
Dim decade7 As Long
RigaOttica = ((Decade12 And &HF) / &H1 * 1) + ((Decade12 And &HF0) / &H10 * 10) + ((Decade34 And &HF) / &H1 * 100) + ((Decade34 And &HF0) / &H10 * 1000) + ((Decade56 And &HF) / &H1 * 10000) + ((Decade56 And &HF0) / &H10 * 100000)       ' + ((decade7 And &HF Xor &HF) / &H1 * 1000000)
    
End Function

Ho la sopracitata funzione che non riesco a comprendere bene.
Ho riportato solo le info essenziali.
In pratica le Decadi 12/34/56... vengono valorizzate con intero acquisito tramite scheda proprietaria National Instrument.
Quello che proprio non riesco a capire cosa va a fare con:
Decade12 And &HF
&H1 * 1 ecc ecc.

Ho letto che con l'operatore And vado a fare un confronto dal quale ottengo un boolean... e poi lo vado a confrontate con "F Esadecimale?????" sarà sempre false.
E poi vado a dividerlo per ??? 1Esadecimale per 1???

Non so proprio non capisco.

P.S non ho modo di debuggare il listato.

[oregon]

And &H0F

serve ad isolare i 4 bit meno significativi del numero, azzerando gli altri.

Ad esempio, se il valore iniziale era &HE5 il risultato sarà 5

La divisione per &h10 serve ad effettuare lo shift a destra di 4 bit del valore iniziale.

Ad esempio, se parti dal valore &H9A il risultato sarà 9