Visual Basic - Codigo para aproximar un numero en visual

Life is soft - evento anual de software empresarial
 
Vista:

Codigo para aproximar un numero en visual

Publicado por Joaquin Sepulveda (2 intervenciones) el 22/05/2001 17:14:02
No se como aproximar un 64.5 a un 65, porfavor si alguien tiene un codigo que funcione. porque de un 65.6 me lo
aproxima a 66.
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:Codigo para aproximar un numero en visual

Publicado por BENJO (167 intervenciones) el 23/05/2001 00:37:20
En Excel tenés la ocpción redondear, pero en Visual, desconozo si existe alguna, pero si es factible crearla.

Primero tenés que tomar el número en una variable, considerando que la está ingresando un Usuario en un TextBox de la aplicación

NumFirst= Text1.Text
'Después buscás en la variable, si está el "." (punto)
Marcado=InStr(NumFirst, ".")

If Marcado <> 0 Then ' si es diferente a 0 es porque halló el signo "."
y te enuncia la posición del hallazgo
NumDecimal=Mid(numFirst, Marcado+1, Len(numFist))
NumFirst= Mid(NumFirst, 1,Marcado-1)
' NumDecimal ahora tiene el último o los últimos dígitos
después del punto y NumFirst tiene los Números enteros antes
del punto
If NumDecimal >=5 then
NumFirst=NumFirst +1
End If
Text1.Text= NumFirst
End If

De este modo, se evaluaría cada uno de los números ingresados en un TextBox y se reasignaría el número según corresponda.
Es medio a la que te criaste, pero bueno en teoría debería servir.
Ojo con la sintaxis, es que la hice de memoria, ya que estoy en el laburo, supongo que harán falta unas cuantas correcciones para que quede afinado.
Espero te sirva.
Mucha Suerte

PD: Obviamente debe haber una función que lo haga por sí sola, si la encuentro te aviso.



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