title image


Smiley Re: genau das ist es ... nur wie rechnet man dezimal in dual um ???
Hallo Stefan,



ich dachte eigentlich ursprünglich, dass es dafür eine VBA-Funktion gibt, aber wenn ich nicht vollkommen blind bin, gibt es tatsächlich keine. In "weiser Voraussicht" habe ich mal eine geschrieben, ich hoffe das hilft Dir.

Das Ergebnis ist ein Stringwert, den Du mit den üblichen Stringoperationen bearbeiten kannst oder auch in einen Integerwert konvertieren »CInt()«.





Function DecToBin(pDecimal As Double) As String

  Dim x, i As Integer

  Dim vDual As String

  Dim vVorzeichen As Boolean

  

  If pDecimal = 0 Then

    DecToBin = "0"

    Exit Function

  End If



  If pDecimal >= 0 Then

    vVorzeichen = True

  Else

    vVorzeichen = False

  End If

  

  x = 0

  pDecimal = Abs(pDecimal)



  x = Fix(WorksheetFunction.Log(pDecimal, 2))



  For i = x To 0 Step -1

    If 2 ^ i <= pDecimal Then

      vDual = vDual & 1

      pDecimal = pDecimal - 2 ^ i

    Else

      vDual = vDual & 0

    End If

  Next i

  

  If Not vVorzeichen Then vDual = "-" & vDual

  DecToBin = vDual

End Function Code eingefügt mit Syntaxhighlighter 1.16



Gruß Uwe


Gruß Uwe

amolip.de



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: