| 1 | MsgBox(0, "16 bit", "HEX ABAB = DEC " & Dec("ABAB"))
|
|---|
| 2 | MsgBox(0, "32 bit", "HEX ABABABAB = DEC " & Dec("ABABABAB", 1))
|
|---|
| 3 | MsgBox(0, "64 bit", "HEX ABABABABABABABAB = DEC " & Dec("ABABABABABABABAB", 2))
|
|---|
| 4 | MsgBox(0, "double", "HEX ABABABABABABABABABABABABABABABAB = DEC" & Dec("ABABABABABABABABABABABABABABABAB", 3))
|
|---|
| 5 |
|
|---|
| 6 | MsgBox(0, "16 bit", "HEX ABAB = DEC " & _Dec("ABAB"))
|
|---|
| 7 | MsgBox(0, "32 bit", "HEX ABABABAB = DEC " & _Dec("ABABABAB"))
|
|---|
| 8 | MsgBox(0, "64 bit", "HEX ABABABABABABABAB = DEC " & _Dec("ABABABABABABABAB"))
|
|---|
| 9 | MsgBox(0, "double", "HEX ABABABABABABABABABABABABABABABAB = DEC " & _Dec("ABABABABABABABABABABABABABABABAB"))
|
|---|
| 10 |
|
|---|
| 11 | Func _Dec($value)
|
|---|
| 12 | Dim $return
|
|---|
| 13 | For $z = 1 To StringLen($value)
|
|---|
| 14 | $return += Dec(StringMid($value, $z, 1)) * 0x10 ^ (StringLen($value) - $z)
|
|---|
| 15 | Next
|
|---|
| 16 | Return $return
|
|---|
| 17 | EndFunc
|
|---|
