I have problem in converting fraction binary to decimal

[naveen5856]

I'am Unable to convert 1.00000110001001001101111 this fraction Binary Value to Decimal in Excel.
Help me with proper function to convert the above value.

 

[Dermot]

Try this

Function BinaryToDecimal(b)
  Dim i, x, n, d, b1, b2
  n = InStr(b, ".")
  b1 = Left(b, n - 1)
  b2 = Mid(b, n + 1)
  x = 1
  d = 0
  For i = Len(b1) To 1 Step -1
    d = d + x * Mid(b1, i, 1)
    x = x * 2
  Next i
  x = 0.5
  For i = 1 To Len(b2)
    d = d + x * Mid(b2, i, 1)
    x = x / 2
  Next i
  BinaryToDecimal = d
End Function

 

[naveen5856]

Try this

Function BinaryToDecimal(b)
  Dim i, x, n, d, b1, b2
  n = InStr(b, ".")
  b1 = Left(b, n - 1)
  b2 = Mid(b, n + 1)
  x = 1
  d = 0
  For i = Len(b1) To 1 Step -1
    d = d + x * Mid(b1, i, 1)
    x = x * 2
  Next i
  x = 0.5
  For i = 1 To Len(b2)
    d = d + x * Mid(b2, i, 1)
    x = x / 2
  Next i
  BinaryToDecimal = d
End Function

No Not Working.

 

[Dermot]

I get 1.02400004863739
What are you expecting?

 

[naveen5856]

I get 1.02400004863739
What are you expecting?

same answer i'm expecting

 

[Dermot]

This

same answer i'm expecting

formula gives it

=binarytodecimal("1.00000110001001001101111")

you may have to format the cell as text to stop Excel truncating the number
eg

=TEXT(binarytodecimal("1.00000110001001001101111"),"0.00000000000000")