[原创]怎么从十进制到二进制呢？
怎么从十进制到二进制呢？
阳光版主欢迎您
Private Function Dec2Bin(ByVal Dec As Long) As String
Do
Dec2Bin = Dec2Bin & (Dec Mod 2)
Dec = Dec \ 2
Loop Until Dec < 2
Dec2Bin = Dec2Bin & Dec
Dec2Bin = StrReverse(Dec2Bin)
End Function
