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

ник: ShadowOfSun
протестируй еще одну функцию, пожалуйста

Public Function DecToBin(DecNum As Long) As String    Dim BinNum As String    Dim i As Integer        BinNum = ""    i = 0    Do       If DecNum And 2 ^ i Then          BinNum = "1" & BinNum       Else          BinNum = "0" & BinNum       End If       i = i + 1    Loop Until 2 ^ i > DecNum    DecToBin = BinNum End Function

Да к сожалению нельзя в VBA вставить ассемблерную строчку как на Паскале и Си
приходится изгаляться
P.S.
не помогло

ShadowOfSun=204 ms          010011100010000 DecToBin=91 ms              10011100010000 Lukas____(3)=52 ms          10011100010000 ------------------------------------------- ShadowOfSun=205 ms          010011100010000 DecToBin=91 ms              10011100010000 Lukas____(3)=54 ms          10011100010000 ------------------------------------------- ShadowOfSun=205 ms          010011100010000 DecToBin=96 ms              10011100010000 Lukas____(3)=53 ms          10011100010000 ------------------------------------------- ShadowOfSun=204 ms          010011100010000 DecToBin=93 ms              10011100010000 Lukas____(3)=52 ms          10011100010000 ------------------------------------------- ShadowOfSun=204 ms          010011100010000 DecToBin=90 ms              10011100010000 Lukas____(3)=52 ms          10011100010000 ------------------------------------------- ShadowOfSun=204 ms          010011100010000 DecToBin=91 ms              10011100010000 Lukas____(3)=51 ms          10011100010000 ------------------------------------------- ShadowOfSun=205 ms          010011100010000 DecToBin=90 ms              10011100010000 Lukas____(3)=54 ms          10011100010000 ------------------------------------------- ShadowOfSun=204 ms          010011100010000 DecToBin=96 ms              10011100010000 Lukas____(3)=53 ms          10011100010000 ------------------------------------------- ShadowOfSun=204 ms          010011100010000 DecToBin=94 ms              10011100010000 Lukas____(3)=53 ms          10011100010000 ------------------------------------------- ShadowOfSun=204 ms          010011100010000 DecToBin=91 ms              10011100010000 Lukas____(3)=52 ms          10011100010000 -------------------------------------------