| 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 |
|---|
