自定义函数：十六进制转十进制 - blitzbasic吧

level 14

起帆远航楼主

Function Dec(h$)
t2$=Upper$(Trim$(h$))
d=0
For z=1 To Len(t2$)
i=Instr("0123456789ABCDEF",Mid$(t2$,z,1))
If i>0 Then d=d*16+i-1
Next
Return d
End Function

2013年02月11日 13点02分 1

level 12

命幽

赞一个！

2014年05月09日 11点05分 2