![]() |
![]() |
|
![]() |
![]() |
|
Programmierung Rat & Tat für Programmierer |
|
Themen-Optionen | Ansicht |
![]() |
#7 | |
Master
![]() |
![]() Zitat:
"Fehler Typen unverträglich!" Und mit den Konvertirungsfunktionen (val, cint, clng,...) gehts leider auch nicht. @Venkman: Dir wird nichts übrig bleiben als selbst umzurechenn. ![]() Hab dir eine Funktion geschrieben: Code:
Private Function lHexToLong(ByVal sValue As String) As Long Const sHexVal As String = "0123456789ABCDEF" Dim iPos As Integer Dim iStellenwert As Integer sValue = UCase(Trim(sValue)) If Left(sValue, 2) = "0X" Then sValue = Trim(Right(sValue, Len(sValue) - 2)) If Right(sValue, 1) = "H" Then sValue = Trim(Left(sValue, Len(sValue) - 1)) For iPos = Len(sValue) To 1 Step -1 iStellenwert = InStr(1, sHexVal, Mid(sValue, iPos, 1)) If iStellenwert = 0 Then MsgBox "Fehler beim Umrechenen!" & vbCrLf & "Illegales Zeichen!", vbOKOnly + vbCritical, "Fehler" Exit Function End If iStellenwert = iStellenwert - 1 HexToLong = HexToLong + iStellenwert * 16 ^ (Len(sValue) - iPos) Next iPos End Function
____________________________________
__________________ |»»»»»SONIC««««««| ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯ |
|
![]() |
![]() |
Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Gäste: 1) | |
|
|