Cita de: raul338 en 13 Noviembre 2011, 19:57 PMCódigo (vb) [Seleccionar]
Private Sub lSwap(ByRef lVal1 As Long, ByRef lVal2 As Long)
' // Intercambia {lVal1} por {lVal2} y {lVal2} a {lVal1} sin variable temporal
lVal1 = lVal1 Xor lVal2
lVal2 = lVal2 Xor lVal1
lVal1 = lVal1 Xor lVal2
End Sub
Fuente: http://foro.elhacker.net/vb/recopilacion_de_funciones_con_operaciones_binarias-t329680.0.html
Ah, muchísimas gracias, ya lo entiendo.
Saludos.
P.D.: También he sacado la fórmula de
a=a+b
b=a-b
a=a-b
Muchas gracias.