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

ник: ShadowOfSun
А можно и быстрее

Public Function LongToBin(ByVal Number As Long) As String     Const ZERO As String * 4 = "0000"     Const ONE As String * 4 = "0001"     Const TWO As String * 4 = "0010"     Const THREE As String * 4 = "0011"     Const FOUR As String * 4 = "0100"     Const FIVE As String * 4 = "0101"     Const SIX As String * 4 = "0110"     Const SEVEN As String * 4 = "0111"     Const EIGHT As String * 4 = "1000"     Const NINE As String * 4 = "1001"     Const TEN As String * 4 = "1010"     Const ELEVEN As String * 4 = "1011"     Const TWELVE As String * 4 = "1100"     Const THIRTEEN As String * 4 = "1101"     Const FOURTEEN As String * 4 = "1110"     Const FIFTEEN As String * 4 = "1111"          LongToBin = ""     Do         Select Case Number Mod 16             Case Is = 0: LongToBin = ZERO & LongToBin             Case Is = 1: LongToBin = ONE & LongToBin             Case Is = 2: LongToBin = TWO & LongToBin             Case Is = 3: LongToBin = THREE & LongToBin             Case Is = 4: LongToBin = FOUR & LongToBin             Case Is = 5: LongToBin = FIVE & LongToBin             Case Is = 6: LongToBin = SIX & LongToBin             Case Is = 7: LongToBin = SEVEN & LongToBin             Case Is = 8: LongToBin = EIGHT & LongToBin             Case Is = 9: LongToBin = NINE & LongToBin             Case Is = 10: LongToBin = TEN & LongToBin             Case Is = 11: LongToBin = ELEVEN & LongToBin             Case Is = 12: LongToBin = TWELVE & LongToBin             Case Is = 13: LongToBin = THIRTEEN & LongToBin             Case Is = 14: LongToBin = FOURTEEN & LongToBin             Case Is = 15: LongToBin = FIFTEEN & LongToBin         End Select         Number = Number \ 16    Loop Until Number = 0 End Function