Visual Basic - Sumar Numeros Que Tengan Letras

Life is soft - evento anual de software empresarial
   
Vista:

Sumar Numeros Que Tengan Letras

Publicado por Juan Cardenas (21 intervenciones) el 29/07/2009 19:15:34
Hola, bueno tengo un inconveniente hace unos dias, y es que resulta que tengo una dato como este:

OD00001

como hago para que ese dato sea sumado como un numero normal y que si el dato llega a
OD99999, ya no haga nada mas

Otro dato que tengo que sumar es algo como esto

000501

si se suma quedaria asi: 000502
asi sucesivamente hasta llegar a 999999

gracias por su ayuda....
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:Sumar Numeros Que Tengan Letras

Publicado por Wendy Chulim (6 intervenciones) el 29/07/2009 20:08:27
Para sumar en Visual Basic, debe tener estrictamente numeros osea que al valor que deseas sumar debes aplicarle la propiedad Val(string), para convertir la cadena en numerico; despues para presentralo solo le vuelves a dar formato como necesitas; no se si algo asi quieres hacer, espero haber entendido tu duda y que esto te ayude, cualquier cosa estoy a tus ordenes.
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:Sumar Numeros Que Tengan Letras

Publicado por Juan Cardenas (21 intervenciones) el 29/07/2009 20:17:20
efectivamente eso es lo que tengo que hacer, lo que nose es como hacer ese "formato" para que quede como antes por ej:

en OD00001 si le aplico

Val(OD00001) + 1 quedaria la variable como 2

pero para "retornar" al formato nose como hacerlo, que en este casi quedaria OD00002
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:Sumar Numeros Que Tengan Letras

Publicado por Wendy Chulim (4 intervenciones) el 29/07/2009 20:23:09
Usa el format (valornumerico,"OD00000") solo tienes que tomar en cuenta que tu numero no sobre pase de 5 digitos para que el formato no se pierda.
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:Sumar Numeros Que Tengan Letras

Publicado por Juan Cardenas (21 intervenciones) el 29/07/2009 21:02:12
primero que todo gracias por responder, pero lastimosamente todavia no he podido con esto, el valor me lo dan asi porque es para las Ordenes de Diagnostico que se vallan a imprimir....

hice este intento pero el resultado no me da

Dim prueba As Integer

Private Sub Command1_Click()

'label1.caption tiene como valor OD000150

prueba = Val(Right(Label1.Caption, Len(Label1.Caption) - 2)) 'la var queda como 150
Label2 = Format(prueba, "OD000000") 'el resultado que me da es O29000000 :(

End Sub


Espero que nosea mucha molestia seguir preguntando....
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:Sumar Numeros Que Tengan Letras

Publicado por Julio Aguilar (69 intervenciones) el 29/07/2009 22:01:24
Otra forma.

Private Sub Command3_Click()
Dim prueba As Integer


variable1 = "OD000150"

prueba = Val(Right(variable1, Len(variable1) - 2)) 'la var queda como 150
variable2 = "OD" & Format(prueba, "000000") 'el resultado que me da es OD000150

MsgBox variable2
End Sub
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:Sumar Numeros Que Tengan Letras

Publicado por wendy Chulim (4 intervenciones) el 29/07/2009 22:12:03
Exactamente lo que dice Julio, ese mismo ejemplo habia yo sacado y me da lo que necesitas

Private Sub Command1_Click()
'label1.caption tiene como valor OD000150
Dim prueba As Integer
prueba = Val(Right("OD000150", Len("OD000150") - 2)) 'la var queda como 150
label2.Text = "OD" & Format(Str(prueba), "000000")

End Sub

Asi que veo que ya teienes la respuesta suerte y si necesitas ayuda ya sabes donde encontrarme ccwe@hotmail.com
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:Sumar Numeros Que Tengan Letras

Publicado por Juan Cardenas (21 intervenciones) el 29/07/2009 22:57:15
Muchisimas gracias a julio y a usted wendy chulim, me sirvio bastante esa explicacion asi que les agradezco mucho :)
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