ник: ShadowOfSun
добавляю обработку кукиша
Public Function DecToBin(ByVal DecNum As Long) As String
If DecNum = 0 Then DecToBin = "0" Else DecToBin = ""
Do Until DecNum = 0
If (DecNum Mod 2) Then DecToBin = "1" & DecToBin Else DecToBin = "0" & DecToBin
DecNum = DecNum \ 2
Loop
End Function
|