Ticket #2581: RealDec.au3

File RealDec.au3, 802 bytes (added by DutchCoder, 7 years ago)
Line 
1MsgBox(0, "16 bit", "HEX ABAB = DEC " & Dec("ABAB"))
2MsgBox(0, "32 bit", "HEX ABABABAB = DEC " & Dec("ABABABAB", 1))
3MsgBox(0, "64 bit", "HEX ABABABABABABABAB = DEC " & Dec("ABABABABABABABAB", 2))
4MsgBox(0, "double", "HEX ABABABABABABABABABABABABABABABAB = DEC" & Dec("ABABABABABABABABABABABABABABABAB", 3))
5
6MsgBox(0, "16 bit", "HEX ABAB = DEC " & _Dec("ABAB"))
7MsgBox(0, "32 bit", "HEX ABABABAB = DEC " & _Dec("ABABABAB"))
8MsgBox(0, "64 bit", "HEX ABABABABABABABAB = DEC " & _Dec("ABABABABABABABAB"))
9MsgBox(0, "double", "HEX ABABABABABABABABABABABABABABABAB = DEC " & _Dec("ABABABABABABABABABABABABABABABAB"))
10
11Func _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
17EndFunc