Visual Basic - ALGUIEN CONOCE FUNCION PARA REDONDEAR RESULTADO ?

Life is soft - evento anual de software empresarial
 
Vista:

ALGUIEN CONOCE FUNCION PARA REDONDEAR RESULTADO ?

Publicado por FRANCISCO (2 intervenciones) el 22/02/2005 12:54:54
NECESITO UNA FUNCION QUE REDONDE UN RESULTADO CON DECIMALES DE ESTA FORMA: SI EL RESULTADO ES 2.93 QUE QUEDE 2.95 O 2.90
UN MONTON DE GRACIAS DE ANTEMANO
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:ALGUIEN CONOCE FUNCION PARA REDONDEAR RESULTADO

Publicado por Gustavo (181 intervenciones) el 23/02/2005 21:42:22
Lo puedes intentar con la funcion format que tambien redondea la cantidad
var=2.684
var = format(var,"#,###.##" )
debe devolver 2.68
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:ALGUIEN CONOCE FUNCION PARA REDONDEAR RESULTADO

Publicado por Christian (675 intervenciones) el 23/02/2005 22:01:02
Averigua sobre la funcion ROUND
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:ALGUIEN CONOCE FUNCION PARA REDONDEAR RESULTADO

Publicado por Ernesy (2 intervenciones) el 23/02/2005 22:17:04
A ver si esta te sirve

Public Function Redondear(ByVal Numero, Decimales)
'Esta función permite redondear un número a las
'posiciones decimales deseadas
Dim iSigno As Integer, dResultados As Double
'Vemos si el número es negativo
iSigno = IIf(Numero < 0, -1, 1)
'Lo volvemos positivo
Numero = Numero * iSigno
'Se corre el decimal a la posición buscada
dResultados = Numero * 10 ^ Decimales
'Se toma la parte fraccionaria
Numero = dResultados - Int(dResultados)
'Se toma la parte entera
dResultados = Int(dResultados)
'Si la fracción es mayor a 0.5
If Numero >= 0.5 Then
'Se incrementa en 1 el número
dResultados = dResultados + 1
End If
'Se le pone el signo y se vuelve el decimal a la
'posición buscada
dResultados = iSigno * dResultados / 10 ^ Decimales
Redondear = vdResultados
End Function
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