[DUDA] Contador con ceros a la izquierda

[HJZR4]

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

[seba123neo]

Hola,proba...

Código (vb) [Seleccionar] Expandir

Private Sub Command1_Click()
Static i As Integer
i = i + 1
Me.Caption = Format(i, "0000")
End Sub

saludos.

[APOKLIPTICO]

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:

Código (vb) [Seleccionar] Expandir

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]

[cobein]

Código [Seleccionar] Expandir


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


[vivachapas]

lo acabo de hacer no se si te servira XD... es una lammerada jaja

Código (vb) [Seleccionar] Expandir

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

[Angeldj27]

Creo que lo que el quiere seria esto o yo lo aria asi

Código [Seleccionar] Expandir


TxtCodigo.Text = Format(Val(NumTemp) + 1, "#####00000")


Asi quedaria  00001 y el siguiente 00002 le pone los ceros a la izquierda

Saludos..

[ssccaann43 ©]

El ejemplo q posteo cobein le funciona...