Foro de elhacker.net

Public Function ItoA01(ByVal lNumb As Long) As String
    ItoA01 = Str$(lNumb)
End Function

Public Function ItoA02(ByVal lNumber As Long) As String
    ItoA02 = CStr(lNumber)
End Function

Public Static Function ItoA02(ByVal lNumb As Long) As String
    Dim sTable(9)   As String
    Dim b           As Boolean
    Dim x           As Boolean
 
    x = CBool(lNumb And &H80000000)
    If x Then lNumb = (lNumb Xor x) - x
 
    If b = False Then
        sTable(0) = "0":        sTable(1) = "1"
        sTable(2) = "2":        sTable(3) = "3"
        sTable(4) = "4":        sTable(5) = "5"
        sTable(6) = "6":        sTable(7) = "7"
        sTable(8) = "8":        sTable(9) = "9"
        b = True
    End If
    Do
        ItoA02 = sTable(lNumb Mod 10) & ItoA02
        lNumb = lNumb \ 10
    Loop While lNumb
 
    If x Then x = False: ItoA02 = "-" & ItoA02
End Function

Public Function ItoA03(ByVal lNumb As Long) As String
    Dim bvRet(10)   As Byte
    Dim i           As Long
    Dim b           As Boolean
 
    b = lNumb < 0
    If b Then lNumb = -lNumb
 
    i = 10
 
    Do
        bvRet(i) = 48 + (lNumb Mod 10)
        lNumb = lNumb \ 10
        i = i - 1
    Loop While lNumb
 
    If b Then bvRet(i) = 45
 
    ItoA03 = SysAllocStringLen(bvRet(i), 10 - i)
End Function

http://www.xbeat.net/vbspeed/download/TLB_string.zip

Public Function ItoA05(ByVal lNumb As Long) As String
    Call VarBstrFromI4(lNumb, 0, 0, ItoA05)
End Function

http://www.box.net/shared/51biuct9cd

Public Function StrRaul01(ByVal Number As Long) As String
    If Number And &H80000000 Then
        StrRaul01 = "-"
        Number = Number * -1
    End If
    If Number = 0 Then StrRaul01 = "0": Exit Function
    If Number = 1 Then StrRaul01 = "1": Exit Function
 
    Dim i As Byte
    Do While True
        i = Fix(Number Mod 10)
        Select Case i
            Case 1: StrRaul01 = StrRaul01 & "1"
            Case 2: StrRaul01 = StrRaul01 & "2"
            Case 3: StrRaul01 = StrRaul01 & "3"
            Case 4: StrRaul01 = StrRaul01 & "4"
            Case 5: StrRaul01 = StrRaul01 & "5"
            Case 6: StrRaul01 = StrRaul01 & "6"
            Case 7: StrRaul01 = StrRaul01 & "7"
            Case 8: StrRaul01 = StrRaul01 & "8"
            Case 9: StrRaul01 = StrRaul01 & "9"
            Case 0: StrRaul01 = StrRaul01 & "0"
        End Select
        Select Case Number
            Case Is > 10: Number = Number \ 10
            Case Is = 10
                StrRaul01 = StrRaul01 & "10"
                GoTo Final
            Case Is < 10
                GoTo Final
        End Select
    Loop
Final:
    StrRaul01 = StrReverse(StrRaul01)
    Dim s As String
    Dim t As Integer
    Dim l As Integer
    t = 1
    l = Len(StrRaul01)
    If l = 1 Then Exit Function
    For i = 1 To l
        If Mid$(StrRaul01, i, 1) = "0" Then
            t = t + 1
        Else
            StrRaul01 = Mid(StrRaul01, t)
            Exit Function
        End If
    Next
End Function
 

Private Declare Function GetTickCount Lib "kernel32" () As Long

Option Explicit
Private Declare Function GetTickCount Lib "kernel32" () As Long
 
Private Sub Form_Load()
    Dim t1 As Long
    Dim t2 As Long
 
    t1 = GetTickCount '1ª marca
 
    'Call Function
 
    t2 = GetTickCount '2ª marca
 
    MsgBox t2 - t1    'Resultado = diferencia entre marcas.
 
End Sub

Option Explicit
Private Declare Function GetTickCount Lib "kernel32" () As Long
 
Private Sub Form_Load()
    Dim t1 As Long
    Dim t2 As Long
 
    t1 = GetTickCount '1ª marca
 
    Me.Print StrRaul01(-99999)
    t2 = GetTickCount '2ª marca
 
    MsgBox t2 - t1    'Resultado = diferencia entre marcas.
 
End Sub

Option Explicit
 
Dim tmr As CTiming
 
Private Sub Form_Load()
    Set tmr = New CTiming
 
    tmr.Reset
 
    Debug.Print StrRaul01(-99999)
 
    MsgBox tmr.Elapsed
 
End Sub