Postada em 17/08/2006 08:28 hs
Que fique claro que vc não pode converter letras em binário, apenas números, se for esse o caso:
Private Function DecParaBin(ByVal Dec As Double) As Double
Dim Temp As String, Retrn As String 'em string para não ter limitações de número
Do
Temp = Str(Dec Mod 2)
Retrn = Temp & Retrn
Dec = IIf(Right(Str(Dec), 2) = ".5", Dec - 0.5, IIf(Dec Mod 2 > 0, Dec - 1, Dec)) / 2
Loop Until Dec = 0
DecParaBin = Val(Retrn)
End Function
|
