[VB 6.0] Конверитровать число из двоичной в десятичную систему

Private Function ConvertToBinary(ByVal lngQuotient As Long) As String Dim strBinary As String Dim strReturn As String Dim i As Integer i = 100 strBinary = String(i, "0") Do While lngQuotient Mid(strBinary, i, 1) = CStr(lngQuotient Mod 2) lngQuotient = lngQuotient \ 2 i = i - 1 Loop strReturn = Right(strBinary, 100 - i) ConvertToBinary = strReturn End Function

 

« Пред.		След. »