Los que utilizan un lenguaje como VB, que no tienen una forma muy conveniente de deshabilitar comprobaciones de desbordamiento durante la conversión, podría usar algo como:
Shared Function unsToSign64(ByVal val As UInt64) As Int64
If (val And &H8000000000000000UL) 0 Then Return CLng(val Xor &H8000000000000000UL) Xor &H8000000000000000 Else Return CLng(val)
End Function
Shared Function signToUns64(ByVal val As Int64) As UInt64
If val < 0 Then Return CULng(val Xor &H8000000000000000) Xor &H8000000000000000UL Else Return CULng(val)
End Function
o
Shared Function unsToSign(ByVal val As UInt64) As Int64
Return CLng(val And &H7FFFFFFFFFFFFFFFUL) + (CLng(-((val And &H8000000000000000UL) >> 1)) << 1)
End Function
Shared Function signToUns(ByVal val As Int64) As UInt64
Return CULng(val And &H7FFFFFFFFFFFFFFF) + (CULng(-((val And &H8000000000000000) >> 1)) << 1)
End Function
Las versiones para 32 bits serían muy similares. No estoy seguro de qué enfoque sería más rápido. Los cambios son un poco tontos, pero evitan la necesidad de pruebas 'si'.
¡agradable! justo lo que estaba buscando ... ¡gracias! – thalm