Jobs
Author: WAR System Date Submitted: 1/10/2005 Category: String Handling/Manipulation Compatibility: VB 6 This code has been accessed 5875 times.
Email Yourself this snippet:
No declarations
Code
Public Function Bin(ByVal Numero As Single) As String Dim Binario As String, Inicial() As String, Final() As String Dim Contador As Integer Dim i As Integer, j As Integer, k As Integer Do Binario = Binario & CStr(Numero Mod 2) Numero = Numero \ 2 Contador = Contador + 1 Loop Until Numero < 1 ReDim Inicial(Contador) ReDim Final(Contador) Binario = Trim(Binario) For i = 1 To Contador Inicial(i) = Mid$(Binario, i, 1) Next i Binario = "" For j = 1 To Contador Final(j) = Inicial(Contador + 1 - j) Next j For k = 1 To Contador Binario = Binario & Final(k) Next k If Len(Binario) < 16 Then Do While Len(Binario) < 16 Binario = "0" + Binario Loop End If Bin = Binario End Function
