Új hozzászólás Aktív témák

• #25277 Delila_1 veterán DasBoot #25262

  Új Válasz 2015-02-01 07:36:05 #25277

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz DasBoot #25262 üzenetére

  Nézd meg ezt:

  Function LongDec2Bin(ByVal nIn As Long, Optional nBits As Long = 0&) As Variant
  'J.E. McGimpsey műve, és Harlan Grove módosítása
  Dim nReqBits As Long
  Dim sOut As String
  Dim sBit As String
  Dim bNeg As Boolean
  Dim i As Long
  If nIn < 0& Then
  bNeg = True
  nIn = -(nIn + 1&)
  End If
  If nIn = 0& Then
  nReqBits = 1&
  Else
  nReqBits = Int(Log(nIn) / Log(2&)) + 1& - bNeg
  End If
  If nBits <= 0& Then nBits = nReqBits
  If nBits >= nReqBits Then
  If bNeg Then
  sOut = String(nBits, "1")
  sBit = "0"
  Else
  sOut = String(nBits, "0")
  sBit = "1"
  End If
  For i = nBits To (nBits - nReqBits + 1&) Step -1
  If (nIn - 2& * (nIn \ 2&)) > 0 _
  Then Mid(sOut, i, 1&) = sBit
  nIn = nIn \ 2&
  Next i
  LongDec2Bin = sOut
  Else
  LongDec2Bin = CVErr(xlErrNum)
  End If
  End Function

Új hozzászólás Aktív témák