Seite 2 von 2
Verfasst: 25.10.2007 04:14
von Bisonte
Oder man macht es sich opalike
und installiert die droopy userlib
Hex2Dec(HexNumber.s)
Description :
Converts a Hex value ( as String ) to a Decimal value ( as Long )
Example :
Hex2Dec("FF")
Verfasst: 25.10.2007 10:08
von jear
auch "opalike":
Code: Alles auswählen
;- Umwandlung HEX-String zu Quad (dezimal)
Procedure.q Hex2Dec(HexValue.s)
Protected x.s = LCase(HexValue)
Protected l.l = Len(x)
Protected i.l, n.l, result.q
For i = 1 To l
result * 16
n = FindString("0123456789abcdef", Mid(x, i, 1), 1) -1
result + n
Next i
ProcedureReturn result
EndProcedure