2進制轉化成10進制

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

//函數名： 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