Visual Basic - Ayuda con cadenas

Life is soft - evento anual de software empresarial
 
Vista:

Ayuda con cadenas

Publicado por David (19 intervenciones) el 25/05/2006 21:52:55
Hola a todos:

Mi problema es el siguiente:

Tengo por ejemplo el nùmero "12.543" (puede ser cualquiera). Quiero olvidarme del 12 y trabajar solo con el 543.

Habrà alguna funciòn similar a INT pero que me regreso solo la parte decimal sin el punto???

He intentado tambièn trabajar con la cifra completa como una cadena. Recorrerla caracter a caracter, localizar el punto decimal y a partir de allì, guardar en otra cadena los nùmeros que sigan al punto. PERO NO ME SALEEEEEEE!!!!!!!

ALGUIEN ME AYUDA????

gRACIAS y Dios los bendiga por ayudarmeeee
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:Ayuda con cadenas

Publicado por jose carlos (340 intervenciones) el 25/05/2006 23:07:51
a=12.543
aa=str(a)
p=instr(1,aa,".")
resto=right(aa,len(aa)-p)
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:Ayuda con cadenas

Publicado por carlos (14 intervenciones) el 25/05/2006 23:12:39
Prueba con ésto:
Sub Decimales()
Dim miDecimal , miNumero, miIntermedio 'se declaran como Variant
' Si tu número es un String debes primero convertirlo a Variant

miNumero = 12.354 ' o lo que venga de un TextBox por ej
miNumero = CDec(miNumero) 'se convierte el Variant a Decimal
miIntermedio = Round(miNumero) 'esta función toma sólo la parte entera
miDecimal = miNumero - miIntermedio

End Sub

saludos desde Argentina
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