[原创]十六进制字符串转换成十进制数

wangnet · 2005-12-9 16:54:05

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？站点注册

×

/*============================================================*/
// 函数名: f_hex2dec
//
// 作用范围: public
/*------------------------------------------------------------*/
// 描述: 十六进制字符串转换成十进制数
/*------------------------------------------------------------*/
// 参数:
//
// [value] string as_hex
// 被转换的十六进制字符串
/*------------------------------------------------------------*/
// 返回值: LONG 十进制数 ,失败返回-1
/*------------------------------------------------------------*/
// 作者: Wangnet 日期: 2004-2-2
/*============================================================*/
Int i
Long ll_return
Int li_numbit
String ls_bit
Int li_lenth

li_lenth = Len(as_hex)
For i = 1 To li_lenth
ls_bit = Upper(Mid(as_hex,i,1))
Choose Case ls_bit
Case '0' To '9'
li_numbit = Integer(ls_bit)
Case 'A' To 'F'
li_numbit = Asc(ls_bit) -55
Case Else
Return -1
End Choose
ll_return = ll_return + li_numbit*16^(li_lenth -i)
Next

Return ll_return

账号		站点注册	自动登录	找回密码
密码			站点注册