Bitshift sar/sal ?

[arfgh]

alguien sabe como podemos hacer las operaciones de bitshift que equivalen al asm de SAL y SAR ?

gracias

[Karcrack]

Esto debería funcionar:

Código (vb) [Seleccionar] Expandir

Public Function SAL(ByVal a As Long, ByVal n As Byte) As Long
    SAL = a * (2 ^ (n Mod 32))
End Function

Public Function SAR(ByVal a As Long, ByVal n As Byte) As Long
    SAR = a \ (2 ^ (n Mod 32))
End Function

[arfgh]

ok gracias

no tenemos por aquí alguna recopilación de operaciones de este tipo?

[raul338]

Recopilacion de Funciones con operaciones Binarias.