Paolo Mantovani ha scritto:
ecco, vorrei dare un occhiata al codice delle funzioni che hai già
reimplementato. è possibile?
sono semplicissime, fatte tutte sulla falsariga della bitNOT. Eccole:
Function BitNOT (val)
BitNOT = NOT (val)
End Function
Function BitAND (val1, val2)
BitAND = val1 AND val2
End Function
Function BitOR (val1, val2)
BitOR = val1 OR val2
End Function
Function BitXOR (val1, val2)
BitXOR = val1 XOR val2
End Function
Function BitRShift (val, bit)
if (bit > len(val)) then end
BitRShift = LEFT (val, len(val)-bit)
End Function
Funzionano bene (nel senso che danno il risultato corretto in binario)
se la cella di ingresso è già in binario (testo).
Alle altre domande rispondo con mail separata.
grazie intanto,
Valerio
