Hola gagut81!
Envíame por MP un link de descarga del instalador y le pego una miradita...
Saludos!
Envíame por MP un link de descarga del instalador y le pego una miradita...
Saludos!
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes MenúCita de: abrahametalero en 31 Marzo 2010, 23:04 PM
Muy astuto.... crei que tardarias mas xD!
Option Explicit
Private Sub Command1_Click()
Dim t1 As Long
Dim t2 As Long
Dim t3 As Long
Dim t4 As Long
Dim suma As Long
t1 = 12345
t3 = 12
For t2 = 0 To 99999
For t4 = 0 To 99
suma = t1 + t2 + t3 + t4
If suma = 79558 Then
Debug.Print CStr(t1) + "-" + padNum(t2, 5) + "-" + CStr(t3) + "-" + padNum(t4, 2)
End If
Next t4
Next t2
End Sub
Function padNum(Numero As Long, LargoStr As Byte) As String
Dim strAux As String
strAux = CStr(Numero)
If LargoStr = 5 Then
If Len(strAux) < 5 Then
padNum = String(5 - Len(strAux), "0") + strAux
Else
padNum = strAux
End If
Else
If Len(strAux) < 2 Then
padNum = "0" + strAux
Else
padNum = strAux
End If
End If
End Function