Калькулятор для перевода из 10-ой в 2-ую с/сч

[Night Wolf92]

Помогите пожалуйста сделать калькулятор для перевода из 10-ой в 2-ую с/сч в VBA.

[motorway]

Готовая функция, ищется в Гугле за минуту:

Private Function CBin(Number As Integer) As String
Dim Temp As Variant
Temp = 1 'Can't fouble nothing
Do Until Temp > Number 'sets starting point for Len
    Temp = Temp * 2
Loop
Do Until Temp < 1
    If Number >= Temp Then
       CBin = CBin + "1"
       Number = Number - Temp
    Else
        CBin = CBin + "0"
    End If
    Temp = Temp / 2
Loop 'Loop until string is complete
CBin = CStr(Val(CBin))
End Function

Осталось проверить

[MCH]

Function dec2bin(dec As Long) As String
Do
    dec2bin = dec Mod 2 & dec2bin
    dec = dec \ 2
Loop While dec > 0
End Function

[IgorGO]

Function D2B(d As Long) As String
  If d > 0 Then D2B = D2B(d \ 2) & d Mod 2 else D2B = ""
End Function

если Вас рекурсии не смущают)
старшие разряды принято слева писать:
dec2bin = dec2bin & dec Mod 2

[MCH]

Сообщение от IgorGO

старшие разряды принято слева писать:
dec2bin = dec2bin & dec Mod 2

Игорь, это адресовонно мне?
Так у меня в функции они (старшие разряды) добавляются слева, см. вложение.

PS: на мой взгляд рукурсии съедают значительно больше памяти чем простой цикл do loop, хотя для данного примера это не принципиально.

[IgorGO]

)))
писал тебе, не проверяя (оказалось - напрасно не проверил). извини, забираю свои слова взад.
вот так номер:
это
D2B = D2B(d \ 2) & d Mod 2
и это
dec2bin = dec Mod 2 & dec2bin

дают одинаковый результат???
визуально строка нулей-единиц накапливается с разных сторон, а результат одинаковый... мистика...
это НочномуВолку задание на дом.