Office: (Office 2010) Umrechnen Hex to Dec (RFID Seriennummer)

Hallo,
ich habe folgendes Problem: Ich lese von RFID Transpondern die Seriennummer aus. Diese wird in HEX dargestellt. Wenn ich nun in DEC umrechne habe ich bei einigen Transpondern falsche Ergebnisse:
HEX: "15E3E13A" ergibt "367255866" in DEC (Korrekt)
HEX: "EBF6312E" ergibt "-336187090" in DEC (Falsch)
korrekt wäre "3958780206"

Der VBA Code lautet:

Function hex_test()
HEX_DATEN = "EBF6312E"
DEC_DATEN = Clng("&H" & HEX_DATEN)
Msgbox DEC_DATEN
end function

Wenn ich den HEX Wert "EBF6312E" in einen Rechner eingebe erhalte ich den korrekten Wert "3958780206"

Kann mir hier jemand helfen?

LG, Sivi

:)

 

Hallo!

3958780206 wird für den Long-Datentyp in VBA etwas viel.
Daher wechselt die Typumwandlung in den negativen Bereich.

/edit:
Code:

Oder den Wertebereich außerhalb Long verschieben:
Code:

mfg
Josef

 

CLng?

Long Integer hat einen Wertebereich von +/- 2,14 Mrd.
Du zeigst hier Zahlen > 3 Mrd.

 

Positive lange Ganzzahlen reichen von 0..2147483647 bzw. &H00000000..&H7FFFFFFF - darüber hinaus werden die Werte dann negativ -2147483648..-1, was &H80000000..&HFFFFFFFF entspricht. Beim Datentyp Byte gibt es nur positive Zahlen 0..255, was &H00..&HFF entspricht. Andere Programmiersprachen kennen auch vorzeichenlose 16-Bit und 32-Bit Datentypen - in VBA ist das aber nicht vorgesehen.

 

Hallo und DANKE an Euch alle!!

Ich war von den 9 stelligen Zahlen so geblendet, das ich die 10stelligen übersehen habe! (bin auch davon ausgegangen, das alle RFID Transponder, die ich erhalten habe, die gleiche Länge der Seriennummern haben)

Nochmals vielen Dank!

LG, Sivi

 

Ich hätte eine kleine Funktion um Hex Strings bis 96 Bit (24 Zeichen) zu Decimal umzuwandeln.
Bei Interesse kann ich sie Online stellen.

LG Markus

 

Hallo Markusxy,

habe das Problem gestern gelöst, falls man es irgendwann doch brauchen kann, JA BITTE!

LG, Sivi

 

OK, hab es schon entdeckt!
Nochmals Danke!

LG, Sivi