Rubrik: Variablen/Strings · Sonstiges | VB-Versionen: VB4, VB5, VB6 | 22.07.01 |
Hexadezimal nach Dezimal umwandeln Hex$(...) wandelt eine Dezimalzahl in ihren Hexadezimalwert um - eine Umkehrfunktion sucht man aber vergebens! | ||
Autor: Dieter Otter | Bewertung: | Views: 66.280 |
www.tools4vb.de | System: Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 | Beispielprojekt auf CD |
Die Hex$()-Funktion wandelt bekanntlich eine Dezimalzahl in ihren entsprechenden Hexadezimalwert um. Für das Zurückrechnen von Hexadezimal in den Dezimalwert scheint es jedoch keine entsprechende VB-Funktion zu geben... weit gefehlt!
Mit einem kleinen Trick lässt sich eine Hexadezimalzahl nämlich ganz einfach zurück in ihren Dezimalwert umrechnen.
Hierzu muss man nur wissen, daß die Umwandlungsfunktion CLng(...) nicht nur etwa Strings in einen Longwert umwandelt, sondern eben auch Hexadezimalzahlen - man muss die Hexadezimalzahl nur als String-Parameter angeben!
Beispiel
' Dezimal nach Hexadezimal Dim lngDezimal As Long lngDezimal = 255 MsgBox "Der Hex-Wert lautet: " & Hex$(lngDezimal) ' Hexadezimal nach Dezimal Dim strHex As String strHex = "FF" lngDezimal = CLng("&H" & strHex) MsgBox "Der Dezimalwert von Hex(" & strHex & ") ist: " & _ lngDezimal