10/02/2009, 08:01
| |||
| |||
| Agregar ceros adelante del numero Buenos dias y gracias Tengo un contador en un bucle, el cual va sumando un 1 por cada vuelta que da ( Contador = contador + 1) . Cuando llega a la vuelta cinco se imprime en un Richtexbox ( RichText1.text = Contador ) con lo cual me quedaria Richtext1.text = 5 Necesito agregarle ceros delante del 5, para que se muestre ordenado en el Richtextbox de manera que quede Richtext1.text = 0005 Espero haberme explicado bien Muchas gracias a todos!! |
|
10/02/2009, 08:34
| |||
| |||
| Respuesta: Agregar ceros adelante del numero Cita: Buenos dias,
Iniciado por german_martin  Buenos dias y gracias Tengo un contador en un bucle, el cual va sumando un 1 por cada vuelta que da ( Contador = contador + 1) . Cuando llega a la vuelta cinco se imprime en un Richtexbox ( RichText1.text = Contador ) con lo cual me quedaria Richtext1.text = 5 Necesito agregarle ceros delante del 5, para que se muestre ordenado en el Richtextbox de manera que quede Richtext1.text = 0005 Espero haberme explicado bien Muchas gracias a todos!! eso es bastante sencillo con la función Format Dim ElNumero As String ElNumero = Format(contador, "00000") La cantidad de ceros que pongas en el segundo parámetro va a ser la longitud de la variable ElNumero.  |
|
11/02/2009, 10:26
| |||
| |||
| Respuesta: Agregar ceros adelante del numero otra forma es ocupando el right quedaría variable=right("0000" & 5,4) variable ="0005" Dónde lo que está antes de la coma ("0000" & 5), tú le pones los ceros que quieras luego le concatenas el valor, y después de la coma le pones la longitud que desees, en este caso le pude de longitud 4 y si lo vemos bien te empieza a escribir de derecha a izquierda hasta tener la longitud puesta. Espero te sirva y esté claro.. XD |
