Keskustelu: Koodit: VB6: Binääri > decimaali > binääri

Function BinToDes(Bin As String) As Integer

Dim Des As Integer

For i = Len(Bin) To 1 Step -1
  Des = Des + Val(Mid$(Bin, i, 1)) * (2 ^ (Len(Bin) - i))
Next i

BinToDes = Des

End Function

Function DesToBin(Des As Integer) As String

Dim Bin As String

Do

  Bin = Trim(Str$(Des Mod 2)) + Bin
  Des = Des - ((Des \ 2) + Des Mod 2)

Loop Until Des < 1

DesToBin = Bin

End Function