Visual Basic - Hasta el punto (.)

Life is soft - evento anual de software empresarial
   
Vista:

Hasta el punto (.)

Publicado por Gonzalo (1 intervención) el 04/12/2007 16:45:58
Tengo un textbox en el cual se ingresan valores con decimales (947.874545) , (10012.64578), etc, por ejemplo. Pero necesito que al precionar un boton se copie lo que esta hasta el punto en otro text, osea que el primer valor quedaria 947 y el segundo 10012. ¿De que manera puedo hacer esto?
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:Hasta el punto (.)

Publicado por ivan (1041 intervenciones) el 04/12/2007 19:13:53
Mira en la ayuda las funciones Int y Fix
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:Hasta el punto (.)

Publicado por Pedro Luis (878 intervenciones) el 05/12/2007 10:28:31
Con Instr(Text1,".") se averigua donde está el punto, y con mid(text1,1,n) se corta la cadena o sea

Text2=mid(text1,1,instr(text1,".")-1)
Text3=mid(text1,instr(text1,".")+1,len(text1)-instr(text1,"."))
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:Hasta el punto (.)

Publicado por Pacino (19 intervenciones) el 05/12/2007 13:15:57
Más Facil:
pos=InStr(Text1.text,".")'averiguas el punto
Text3.text=Left(Text1.Text,pos)

o

Text3.text=Left(Text1.Text,InStr(Text1.text,"."))
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:Hasta el punto (.)

Publicado por krator (2 intervenciones) el 05/12/2007 13:20:56
Tambien puedes buscar ayuda de la funcion SPLIT.
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:Hasta el punto (.)

Publicado por Leopoldo Antonio (24 intervenciones) el 05/12/2007 18:02:20
Señores, enterénse antes de contestar.

dice:
"se ingresan valores con decimales "

con lo cual es un número y no una cadena como indican ustedes, el del pacino aun siendo cadena no funciona ya que al final deja el punto y el del otro con la función SPLIT...

el único que se aproxima a la relidad es el ivan con la función Fix

Text2.Text = Fix(Val(Text1))
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