Hexadezimal nach Dezimal umwandeln Hex$(...) wandelt eine Dezimalzahl in ihren Hexadezimalwert um - eine Umkehrfunktion sucht man aber vergebens!
Autor:   Dieter Otter	Bewertung:     [ Jetzt bewerten ]	Views:  67.399
https://www.tools4vb.com	System:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 97 Bewertung insgesamt: gut Durchschnittliche Bewertung: 3.6 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

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