Форумы HiProg.com - MS ACCESS, VBA, VB

ник: Lukas
Проверим:

Public Sub ftest()     Dim i As Long     For i = 0 To 10         Debug.Print i, dec2bin$(i)     Next i End Sub Рез-ты:  0              1            1  2            01  3            11  4            001  5            101  6            011  7            111  8            0001  9            1001  10           0101

Ладно, поправим так:

Function dec3bin$(a&)     If a = 0 Then         Exit Function     End If     dec3bin = dec3bin((a \ 2)) & (a Mod 2) End Function Рез-ты:  0              1            1  2            10  3            11  4            100  5            101  6            110  7            111  8            1000  9            1001  10           1010

Уже лучше.
Проверим скорость:

ToBinary3___=500 ms         11000011010100000 dec3bin$____=1000 ms        11000011010100000 ------------------------------------------- ToBinary3___=407 ms         11000011010100000 dec3bin$____=1015 ms        11000011010100000 ------------------------------------------- ToBinary3___=406 ms         11000011010100000 dec3bin$____=1000 ms        11000011010100000 ------------------------------------------- ToBinary3___=407 ms         11000011010100000 dec3bin$____=1000 ms        11000011010100000 ------------------------------------------- ToBinary3___=406 ms         11000011010100000 dec3bin$____=1000 ms        11000011010100000 ------------------------------------------- ToBinary3___=390 ms         11000011010100000 dec3bin$____=1000 ms        11000011010100000 ------------------------------------------- ToBinary3___=406 ms         11000011010100000 dec3bin$____=1000 ms        11000011010100000 ------------------------------------------- ToBinary3___=391 ms         11000011010100000 dec3bin$____=1000 ms        11000011010100000 ------------------------------------------- ToBinary3___=406 ms         11000011010100000 dec3bin$____=1016 ms        11000011010100000 ------------------------------------------- ToBinary3___=390 ms         11000011010100000 dec3bin$____=1000 ms        11000011010100000 -------------------------------------------

А идея хорошая.