Utilizamos cookies propias y de terceros para mejorar la experiencia de navegación, y ofrecer contenidos y publicidad de interés.
Al continuar con la navegación entendemos que se acepta nuestra política de cookies.
Iniciar sesión Cerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta

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

Life is soft - evento anual de software empresarial
  Imprimir  
Vista:
Me gusta: Está pregunta es útil y esta clara
0
No me gusta: Está pregunta no esta clara o no es útil
 
Asunto:

completar con ceros a la izquierda...

Autor:Daniel (1 intervención)
Fecha: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.
Responder
información
Otras secciones de LWP con contenido similar...
Me gusta: Está respuesta es útil y esta clara
0
No me gusta: Está respuesta no esta clara o no es útil
 
Asunto:

RE:completar con ceros a la izquierda...

Autor:Carol (14 intervenciones)
Fecha:26/02/2008 13:44:00
codigo = "123/5"
codigo = String(12 - Len(codigo), "0") & codigo
Comentar
Me gusta: Está respuesta es útil y esta clara
0
No me gusta: Está respuesta no esta clara o no es útil
 
Asunto:

RE:completar con ceros a la izquierda...

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

Rehutilizar codigo

Autor:ED (37 intervenciones)
Fecha: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:

Public const CEROS_MAX=10

llamada de la funcion:

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

funcion:

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.
Comentar