Convertir Decimal-Hexadecimal en VB
- Iniciador del tema DieX
- Start date
safito
VERIFICADO
Code:
' convert from decimal to hexadecimal
' if you pass the Digits argument, the result is truncated to that number of
' digits
'
' you should always specify Digits if passing negative values
Function Hex(ByVal value As Long, Optional ByVal digits As Short = -1) As String
' convert to base-16
Dim res As String = Convert.ToString(value, 16).ToUpper()
' truncate or extend the number
If digits > 0 Then
If digits < res.Length Then
' truncate the result
res = res.Substring(res.Length - digits)
ElseIf digits > res.Length Then
' we must extend the result to the left
If value >= 0 Then
' extend with zeroes if positive
res = res.PadLeft(digits, "0"c)
Else
' extend with "F"s if negative
res = res.PadLeft(digits, "F"c)
End If
End If
End If
' return to caller
Return res
End Function
Cargando...
"El Podcast"
⚖️
¡El Derecho discutido como
nunca antes!
nunca antes!
Escuche a la
⭐ Firma Legal de Prestigio ⭐
ahora en Spotify 🔊
📑 Evite Multas y Sanciones: Ofrecemos servicios de presentación de declaraciones de IVA (D104), alquileres (D125) y la anual de renta (D101)
TicosLand is now also available on Android and iOS
¡Tendencia!
-
-
-
-
-
-
-
-
-
-
-
-
-
-
Tema 'Masajes Vivanti - Disfrute de hermosas y profesionales mujeres'- MasajesVivanti01
Respuestas: 878 -
-
-
-
-
-
-
-
-
-
🚀 FACTURATica.com la #1 sin Mensualidades ni Anualidades. Inscripción gratis en Hacienda.
