Bueno pues mi duda es básicamente el título. ¿Cómo puedo hacer un contador que muestre los ceros a la izquierda? Dada antes una longitud claro...
Ejemplo:
00000
00001
00002
...
00150
00151
...
Se me ha ocurrido que una cadena de caracteres se puede hacer, pero necesitaría cuatrocientasmil líneas de código.
Espero que podais echarme una mano... Gracias
Hola,proba...
Private Sub Command1_Click()
Static i As Integer
i = i + 1
Me.Caption = Format(i, "0000")
End Sub
saludos.
Seba123neo, esa funcion solo te va a agregar 4 ceros.
Esta funcion te agrega la cantidad de ceros q quieras y en tiempo de ejecucion:
Function addzeros(maxzeros As Byte, number As String) As String
Dim i As Long
addzeros = number
For i = 1 To maxzeros - Len(number)
DoEvents
addzeros = "0" & addzeros
Next i
End Function
[offtopic] 1000 fucking posts!!! [/offtopic]
Private Sub Form_Load()
Dim lNum As Long
Dim lZeros As Long
lNum = 20
lZeros = 10
Debug.Print Right$(String(lZeros, "0") & lNum, lZeros)
End Sub
lo acabo de hacer no se si te servira XD... es una lammerada jaja
Private Sub Command1_Click()
Dim uno As String
Dim dos As String
Dim final As String
Dim faltan As Byte
uno = 2
dos = 156
faltan = 5 - Len(uno)
final = ""
For i = 1 To faltan
final = final & "0"
Next
final = final & uno
MsgBox final
final = ""
faltan = 5 - Len(dos)
For i = 1 To faltan
final = final & "0"
Next
final = final & dos
MsgBox final
End Sub
espero te sirva..
Saludos
Creo que lo que el quiere seria esto o yo lo aria asi
TxtCodigo.Text = Format(Val(NumTemp) + 1, "#####00000")
Asi quedaria 00001 y el siguiente 00002 le pone los ceros a la izquierda
Saludos..
El ejemplo q posteo cobein le funciona... ;)