vollnoob
Goto Top

Hex zu dezimal umwandlung fehler wenn höchste stelle 8 oder 9

Hallo zusammen,
habe im Grunde überhaupt keine Ahnung von Programmieren und mir mehr oder weniger einen vbs code für meine Zwecke zusammen gesucht und stehe grad vor einem Problem:
habe mir über Eval("&H" & "eineMeinerHexZahlen" ) versucht diverse Zahlen von hex nach dezimal umzuwandlen, hat auch wunderbar geklappt, nur bei hex Zahlen, die als höchste stelle ne 8 oder 9 haben kommen irgendwie negative falsche Werte bei heraus, glaub zumindest, dass es an den Stellen liegt.
hoffe es findet sich jemand, der mir das Problem dabei erklären kann.
besten Dank im voraus !
Mfg
Vollnoob ^^

Content-ID: 148050

Url: https://administrator.de/forum/hex-zu-dezimal-umwandlung-fehler-wenn-hoechste-stelle-8-oder-9-148050.html

Ausgedruckt am: 21.04.2025 um 04:04 Uhr

bastla
bastla 31.07.2010 um 19:20:52 Uhr
Goto Top
Hallo Vollnoob!

Hab's mir zwar nicht genauer angesehen, aber vermutlich tritt dieses Verhalten nur für 8-stellige Hexwerte von &H8000000 bis &HFFFFFFFF auf. Der Datentyp "Long" bietet einen Wertebereich von -2.147.483.648 bis 2.147.483.647 - ist das höchste Bit gesetzt, wird dieses als Vorzeichen interpretiert.

BTW: Zur Konvertierung kannst Du anstelle von "Eval()" auch "CLng()" oder zB "CDbl()" verwenden ...

... und folgender Workaround (die Hex-Zahl steht in der Variablen H) sollte eigentlich klappen:
Dez = CDbl("&H1" & H) - CDbl("&H1" & String(Len(H),"0"))
Das Voranstellen von "1" sollte die Hex-Zahl auf jeden Fall in den positiven Bereich bringen und das Subtrahieren von "&H1" + der entsprechenden Anzahl von Nullen rechnerisch die String-Manipulation wieder rückgängig machen ...

Grüße
bastla
Vollnoob
Vollnoob 31.07.2010 um 19:24:54 Uhr
Goto Top
Hallo Bastla,
ah, cool, das dürfte es gewesen sein, sind auch 8 stellige Werte^^.
Mit CLng() klappts einwandfrei, besten Dank face-smile
Mfg
Vollnoob
Vollnoob
Vollnoob 31.07.2010 um 19:46:59 Uhr
Goto Top
Hab deine Methode mit dem CDbl() mit der 1 Voranstellen auch mal eben noch ausprobiert, funktioniert face-smile.
Hat also daran gelegen, was du vermutet hast.
Danke nochmal
Mfg
Vollnoob
76109
76109 01.08.2010 um 08:38:25 Uhr
Goto Top
Hallo bastla!

Der Trick mit CDbl (64Bit) funktioniert super, aber wie bekomme ich auf einfachem Wege den Hex-String wieder zurück. Mit Hex funktioniert es nicht?
H = "FFFFFFFF"  
    
D = CDbl("&H1" & H) - CDbl("&H1" & String(Len(H), "0"))  

X = Hex(D)  'Überlauffehler  

Gruß Dieter
bastla
bastla 01.08.2010, aktualisiert am 18.10.2012 um 18:43:00 Uhr
Goto Top
Hallo Dieter!

Einen einfachen Weg kenne ich leider auch nicht, und eine passende selbst geschriebene Function hast Du ja sicher schon oder bekommst Du auf jeden Fall selbst hin face-smile (in Batch hatten wir das Thema übrigens auch schon mal: Dezimal zu Hexadezimal ) ...

Grüße
bastla
76109
76109 01.08.2010 um 11:10:37 Uhr
Goto Top
Hallo bastla!

Zitat von @bastla:
Einen einfachen Weg kenne ich leider auch nicht, und eine passende selbst geschriebene Function hast Du ja sicher schon oder
bekommst Du auf jeden Fall selbst hin face-smile ....
Yepp, so etwas ähnliches, wie in dem Batch-Link habe ich auch in VB (Bits L/R-Rotieren und L/R-Schieben), aber auf den den Trick mit CDbl ("&H1 & ....) bin ich noch nicht gekommen und dachte, dass Du dafür eventuell auch eine einfache Lösung hastface-smile

Noch einen schönen Sonntag!

Gruß Dieter
bastla
bastla 01.08.2010 um 13:40:18 Uhr
Goto Top
Hallo Dieter!

Tatsächlich hatte ich mich bis gestern mit diesem Thema eigentlich überhaupt nicht beschäftigt - der Workaround ist ein "Abfallprodukt" von Batch-Lösungen zum Thema "Interpretation von mit Null beginnenden Zahlen als Oktalwerte" (was dort dann tatsächlich bei "08" und "09" zu Fehlern führt) ...

Auch Dir einen schönen Rest des Sonntags!
bastla