binToDec

2進数を10進数に変換します。10進数を2進数に変換するにはdecToBin関数を使います。

構文
  1. Double = binToDec( bin )
引数
bin
2進数
戻値
10進数に変換した値

プログラム

////////////////////////////////////////////////// // 【引数】 // bin : 2進数 // 【戻値】 // 10進数に変換した値 ////////////////////////////////////////////////// FUNCTION binToDec(bin) dec = 0 FOR n = 1 TO LENGTH(bin) dec = dec + COPY(bin, n, 1) * POWER(2, LENGTH(bin) - n) NEXT RESULT = dec FEND