Hola, estoy haciendo un programa para generar listas de números. Por ejemplo: desde el 0001 hasta el 9999. Claro, muy fácil, con un bucle for se podría hacer, pero yo necesito que me ponga los ceros adelante. Poque si hago esto:
dim i as long
i=0001
la variable i va a tener el valor 1 y yo quiero que tenga el valor 0001 ¿Cómo se podría hacer esto?
Espero que se alla entendido... Gracias a quién pueda ayudarme
saludetes
toma esta forma algo cutre:
Private Sub Form_Load()
Dim var As String * 4
Dim i As Integer
For i = 1 To 9999
var = StrReverse(i)
var = StrReverse(Replace(var, " ", "0"))
MsgBox var
Next i
End Sub
Muchísimas gracias WarGhost ;) me servirá de mucho
podrias usar el format
dim n as string
n = format (1, "0000")
pero format no me sirver para usar con numeros :P
:huh: no entiendo muy bien que quieres hacer pero si pones
dim n as string
n = Format(numero,"0000")
te dará como resultado "0001", ahora si lo que quieres es hacer operaciones con "n" solo necesitas usar "VAL"
dim i as long
i = val (n)
esto te convierte la cadena "0001" a 1
Cita de: CeLaYa en 8 Diciembre 2006, 23:21 PM
:huh: no entiendo muy bien que quieres hacer pero si pones
dim n as string
n = Format(numero,"0000")
te dará como resultado "0001", ahora si lo que quieres es hacer operaciones con "n" solo necesitas usar "VAL"
dim i as long
i = val (n)
esto te convierte la cadena "0001" a 1
Ahora que me puse a pensar mejor... Tenés razón se puedo usar también, lo voy a tener en cuenta ;)
Gracias