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

sivi · 3. Februar 2017

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

:)

Josef P. · 5. Februar 2017

Hallo!

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

/edit:
Code:

Function hex_test()

Dim HEX_DATEN As String
Dim DEC_DATEN As Variant ' long ist bei 32 bit zu klein für 3958780206

HEX_DATEN = "EBF6312E"
DEC_DATEN = Val("&H" & HEX_DATEN)

If DEC_DATEN < 0 Then
DEC_DATEN = 2 * 2147483648# + DEC_DATEN
End If

Debug.Print DEC_DATEN

End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Oder den Wertebereich außerhalb Long verschieben:
Code:

Function hex_test()

Dim HEX_DATEN As String
Dim DEC_DATEN As Variant ' long ist bei 32 bit zu klein für 3958780206

HEX_DATEN = "EBF6312E"
DEC_DATEN = CDec("&HF" & String(8 - Len(HEX_DATEN), "0") & HEX_DATEN) - CDec("&HF" & String(8, "0"))

Debug.Print DEC_DATEN

End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

mfg
Josef

ebs17 · 5. Februar 2017

CLng?

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

Nouba · 5. Februar 2017

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.

sivi · 5. Februar 2017

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

markusxy · 5. Februar 2017

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

sivi · 6. Februar 2017

Hallo Markusxy,

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

LG, Sivi

sivi · 6. Februar 2017

OK, hab es schon entdeckt!
Nochmals Danke!

LG, Sivi

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

Umrechnen Hex to Dec (RFID Seriennummer)

Umrechnen Hex to Dec (RFID Seriennummer)

Umrechnen Hex to Dec (RFID Seriennummer)

Umrechnen Hex to Dec (RFID Seriennummer)

Umrechnen Hex to Dec (RFID Seriennummer) - Similar Threads - Umrechnen Hex Dec

Umrechnen von Platzierung in Punkte (umgekehrte Reihenfolge)

Gewürfelte Binärzahlen umrechnen (1,2,3,=0 und 4,5,6=1)

MsgBox mit Berechnung und Eintrag in Tabelle

Umrechnung Spaltenbreite und Zeilenhöhe in mm

Stationierungswerte entgegengesetzt umrechnen

Farben VBA: RGB zu HLS umrechnen

Stunden in Arbeitszeit umrechnen