Descomponer una variable
Tengo creada una variable string. Sus valores son unas referencia formadas por el año un guión y un número de cuatro dígitos (p.e. 2011-0056).
Quiero crear un botón que me de la siguiente refencia, es decir, si la última dad de alta es la 2011-0056, al pulsar el botón debería aparecer la referencia 2011-0057.
Creo que debería separa la última referencia, por un lado los 4 primeros dígitos, y por otro los 4 últimos. Sumando uno a estos 4 últimos y volviento a juntarlo con el año, tendría la referencia.
¿Es posible hacerlo? Y ¿Cómo relleno los ceros para que, la segunda parte de la referencia, tenga 4 dígitos?
Quiero crear un botón que me de la siguiente refencia, es decir, si la última dad de alta es la 2011-0056, al pulsar el botón debería aparecer la referencia 2011-0057.
Creo que debería separa la última referencia, por un lado los 4 primeros dígitos, y por otro los 4 últimos. Sumando uno a estos 4 últimos y volviento a juntarlo con el año, tendría la referencia.
¿Es posible hacerlo? Y ¿Cómo relleno los ceros para que, la segunda parte de la referencia, tenga 4 dígitos?
1 Respuesta
Respuesta de Elsa Matilde
1
Me comentas: '....Tengo creada una variable string....
Entonces imaginando que la variable se llama 'cadena', la siguiente rutina te incrementa en 1 la parte numérica :
Sub actualizaString()
nvo = Val(Mid(cadena, 6, 4)) + 1
cadena = Left(cadena, 5) & Format(nvo, "0000")
MsgBox cadena 'optativo
End Sub
Sdos. No olvides finalizar la consulta si el tema queda resuelto
Elsa
http://aplicaexcel.galeon.com/aplicaciones.htm
Entonces imaginando que la variable se llama 'cadena', la siguiente rutina te incrementa en 1 la parte numérica :
Sub actualizaString()
nvo = Val(Mid(cadena, 6, 4)) + 1
cadena = Left(cadena, 5) & Format(nvo, "0000")
MsgBox cadena 'optativo
End Sub
Sdos. No olvides finalizar la consulta si el tema queda resuelto
Elsa
http://aplicaexcel.galeon.com/aplicaciones.htm
