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

ник: ShadowOfSun
Еще один вариант
Не фонтан, но забавный а хотел преобразовывать без цикла
Ускорял по методу Lukas'а константами

Public Function dec2bin(ByVal DecNum As Long, Optional Digits As Long = 24) As String    Dim i As Long    Const ZERO As String = "0"    Const ONE As String = "1"    Const LOG2 As Double = 0.693147180559945        dec2bin = String(Digits, ZERO)        Do Until DecNum = 0       i = Fix(Log(DecNum) / LOG2)       Mid$(dec2bin, Digits - i, 1) = ONE       DecNum = DecNum - 2 ^ i    Loop End Function