Veröffentlicht 31. Oktober 200124 j Sorry für so eine selten doofe Frage, aber ich habe mit VB noch nie gearbeietet und dachte, hier bekomme ich eine Schnelle Lösung. Also mein Bruder will werte von Dezimal nach Hexadezimal und umgekert verwandeln. Gibt es dafür Befehle ?
31. Oktober 200124 j <BLOCKQUOTE><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Zitat:</font><HR> Mit der Hex-Funktion in Visual Basic können Sie eine Dezimalzahl in eine Hex(adezimal)zahl konvertieren. Eine Funktion zur Konvertierung in umgekehrter Richtung, also von einer Hexadezimalzahl in eine Dezimalzahl, werden Sie jedoch nicht finden. Im Prinzip ist dazu auch keine gesonderte Funktion notwendig. Denn mit der bereits vorhandene "Allerwelts"-Funktion Val können Sie die Konvertierung erledigen. Die Val-Funktion erkennt allerdings nur dann einen String als Hexadezimalzahl, wenn er mit den VB-typischen Zeichen "&H" beginnt, also etwa "&H0D" lautet. Fehlen diese "Vor"zeichen, müssen Sie diese zuerst davor setzen. Die Hilfsfunktion HexToDec erledigt dies automatisch. Ihr können Sie eine Hexadezimalzahl sowohl mit oder ohne "&H"-Kennung übergeben. Und falls der Hexadezimal-String mit der in vielen anderen Programmiersprachen üblichen Zeichenfolge "0x" beginnen sollte, kann diese Funktion das auch verarbeiten und den korrekten Wert als Datentyp Long zurückgeben. Public Function HexToDec(HexValue As String) As Long On Error Resume Next If UCase$(Left$(HexValue, 2)) = "0X" Then HexToDec = Val("&H" & Mid$(HexValue, 3)) ElseIf UCase$(Left$(HexValue, 2)) <> "&H" Then HexToDec = Val("&H" & HexValue) Else HexToDec = Val(HexValue) End If End Function Hier gefunden!
Archiv
Dieses Thema wurde archiviert und kann nicht mehr beantwortet werden.