/******************************************************************************/
//函数名: 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