您的位置:首页 > 其它

2进制转化成10进制

2008-06-18 15:42 302 查看
/******************************************************************************/

//函数名: bin_to_dec

//功能说明:2进制转化成10进制

//输入参数:1、as_bin 呆转化2进制数

//return:转化后的10进制

//函数完成:woods

/******************************************************************************/

Long i

long ll_dec

For i = 1 To Len(as_Bin)   

      ll_dec = ll_dec * 2 + long(Mid(as_Bin, i, 1))

Next return ll_dec
内容来自用户分享和网络整理,不保证内容的准确性,如有侵权内容,可联系管理员处理 点击这里给我发消息
标签: