Visual Basic - completar con ceros a la izquierda...

Life is soft - evento anual de software empresarial
 
Vista:

completar con ceros a la izquierda...

Publicado por Daniel (1 intervención) el 26/02/2008 12:36:38
Hola, creo que laguien me podra ayudar, estoy haciendo un control de stock donde, para cada producto obviamente existe un codigo. Utilizo la funcion "FORMAT()" para completar con ceros a la izquierda. El problema es el siguiente, este codigo contiene tambien la "/" pero al tener la "/" me lo toma como una operacion matematica y no como una cadena de texto.

Ejemplo:

Codigo: "123/5"
Format (codigo,"000000000000")

Me resulta: "-000000648914"

YO NECESITO:

CODIGO: "123/5"
Y QUE QUEDE DE ESTA MANERA: "0000000123/5"

Desde ya muchas gracias gente.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:completar con ceros a la izquierda...

Publicado por Carol (14 intervenciones) el 26/02/2008 13:44:00
codigo = "123/5"
codigo = String(12 - Len(codigo), "0") & codigo
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil

RE:completar con ceros a la izquierda...

Publicado por Germán Barrera Hernández (1 intervención) el 26/02/2011 16:35:10
Es la respuesta correcta
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:completar con ceros a la izquierda...

Publicado por Mike Leon (1 intervención) el 14/03/2017 19:22:51
Gracias Excelente aporte sin tanto show y en concreto
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Rehutilizar codigo

Publicado por ED (70 intervenciones) el 28/02/2008 00:48:20
si vas a usar esta funcion muchas veces si quieres define una constante con la cantidad de ceros q quieras:

1
Public const CEROS_MAX=10

llamada de la funcion:

1
text1.Text = ceros("1", CEROS_MAX)

funcion:

1
2
3
4
5
6
7
8
9
Public Function ceros(Nro As String, Cantidad As Integer) As String
    Dim numero As String, cuantos As String, i As Integer
    numero = Trim(Nro) 'Trim quita los espacion en blanco
    cuantos = "0"
    For i = 1 To Cantidad
        cuantos = cuantos & "0"
    Next i
    ceros = Mid(cuantos, 1, Cantidad - Len(numero)) & numero
End Function

PD: espero que te sirva y me avises,suerte.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar