Restar X cantidad de caracteres al valor de una variable

Iniciado por extreme69, 10 Diciembre 2010, 11:58 AM

0 Miembros y 1 Visitante están viendo este tema.

extreme69

Agradezco de antemano si alguien me puede ayudar con esto ^^ parece fácil para alguien que ande en esto.

Supongamos que tengo la variable:

X=123456789

y quiero restarle 3 caracteres para que quede:

X=123456

no me interesa limitar la cantidad de caracteres, esa variable va a ser siempre de distinta longitud, puede que a veces sean 6 caracteres, a veces 8, etc...

Gracias!!!  ;-)

Novlucker

Contribuye con la limpieza del foro, reporta los "casos perdidos" a un MOD XD

"Hay dos cosas infinitas: el Universo y la estupidez  humana. Y de la primera no estoy muy seguro."
Albert Einstein

extreme69


79137913

#3
HOLA!!!

Código (vb) [Seleccionar]
Private Function RestaChrs(NUMERO As Variant, RESTAR As Integer)

   If Not RESTAR < Len(Str(NUMERO)) Then
       MsgBox "LOS CARACTERES A RESTAR NO PUEDEN SER MAYORES A LOS CARACTERES DE LA VARIABLE", , "ERROR"
       Exit Function
   End If
   
   RestaChrs = Mid(Str(NUMERO), 1, Len(Str(NUMERO)) - RESTAR)
End Function

Private Sub Form_Load()
    'AL NUMERO 1234567 LE RESTA 3 CIFRAS
    Debug.Print RestaChrs(1234567, 3)
End Sub


GRACIAS POR LEER!!!
"Como no se puede igualar a Dios, ya he decidido que hacer, ¡SUPERARLO!"
"La peor de las ignorancias es no saber corregirlas"

79137913                          *Shadow Scouts Team*

extreme69

Cita de: 79137913 en 10 Diciembre 2010, 12:17 PM
HOLA!!!

Código (vb) [Seleccionar]
Private Function RestaChrs(NUMERO As Variant, RESTAR As Integer)

   If Not RESTAR < Len(Str(NUMERO)) Then
       MsgBox "LOS CARACTERES A RESTAR NO PUEDEN SER MAYORES A LOS CARACTERES DE LA VARIABLE", , "ERROR"
       Exit Function
   End If
   
   RestaChrs = Mid(Str(NUMERO), 1, Len(Str(NUMERO)) - RESTAR)
End Function

Private Sub Form_Load()
    'AL NUMERO 1234567 LE RESTA 3 CIFRAS
    Debug.Print RestaChrs(1234567, 3)
End Sub


GRACIAS POR LEER!!!

Uhhh, es como que me contaste el final de LOST antes de verlo más o menos.

jajajaj, gracias!

79137913

#5
HOLA!!!

No hay problema, perdon si querias llegar vos solo a verlo :P.

IGUAL... ¬¬ EL FINAL DE LOST DEJA MUCHO QUE DESEAR... TODO MAL CON LOS AUTORES.

GRACIAS POR LEER!!!
"Como no se puede igualar a Dios, ya he decidido que hacer, ¡SUPERARLO!"
"La peor de las ignorancias es no saber corregirlas"

79137913                          *Shadow Scouts Team*

extreme69

Si, yo me quedé desilusionado, la luz en la cueva, la huevada del bien y el mal y los cuidadores de la isla, yo esperaba algo que me atara todos los cabos, y nunca los ataron, incluso me quedé con la intriga de porqué los osos polares en la isla y porqué la revista con el oso polar, eso tendría q haber tenido un significado... luego sacaron 10-15 minutos que nunca habían mostrado, donde explican lo de los osos (lamentable).

Tengo otro problema, y acá si me gustaría que me pongan el código entero porque me voy a volver loco sino.

Necesito leer el valor de una key del registro de windows y mostrarla en un msgbox.

Me está volviendo loco :$

Gracias de antemano ^^

Novlucker

Contribuye con la limpieza del foro, reporta los "casos perdidos" a un MOD XD

"Hay dos cosas infinitas: el Universo y la estupidez  humana. Y de la primera no estoy muy seguro."
Albert Einstein

raul338


extreme69

#9
Seré medio bolúdo pero con ese código estoy peor que con el que tenía :S

Ese código es para modificar cierto valor en el registro, pero no veo en que parte toma el valor de la key  :-[