Office: Dezimal in Binär

Hey,

ich habe ein Problem und zwar möchte ich die Zahl 2200256567 in binär umwandeln. Habe jedoch das Problem das mit den Funktionen die ich gefunden habe:

Private Function Dec2Bin(ByVal Dec As String) As String
' Von Dezimal in Binaer
Dim Rest As String
Do
Rest = Dec Mod 2 ' Den Rest bei einer Division durch 2 errechnen
Dec2Bin = Rest & Dec2Bin ' Rest und bishereige Binaer Zahl zusammentun
Dec = Dec \ 2 ' Dezimal Zahl durch 2 Teilen
Loop Until Dec = 0 ' Solange bis Dezimal-Zahl = 0 ist
End Function

bekomme ich einen Overflow. Die Zahl ist in binär 32 bit lang und die Funktion kann glaub ich nur 31 bit ausgeben.

Hat jemand eine Lösung?

:)

 

Hallo,
der Overflow wird schon durch die MOD-Funktion hervorgerufen.
Code:

Gruß
Rudi

 

Danke hat funktioniert!

 

Habe ein weiteres Problem und zwar möchte ich von der Binärzahl nur die untersten 29 bit haben. Habe das jetzt mit einer binär Operation versucht und zwar so :

d = 2200256567 And 536870911 (Ist die Dezimalzahl für 29 1en)

Jedoch schmeißt er mir dabei auch eine Overflow raus.