Visual Basic.NET - Problema con decimales

 
Vista:

Problema con decimales

Publicado por Eduard  (5 intervenciones) el 18/12/2008 12:35:48
Buenas, verán tengo un programa donde en una fórmula me aparece con dos decimales, pero lo que necesito es que si el decimal está entre 0 i 0.25 que redondee hacia abajo, si el decimal está entre 0.25 i 0.75 que redondee a 0.50 y que si está por encima de 0.75 que redondee para arriba.
Alguién sabe como puedo hacer eso?

Muchas gracias
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
sin imagen de perfil

RE:Problema con decimales

Publicado por kryptic (19 intervenciones) el 18/12/2008 16:10:26
espero te sirva, suerte!!!

Private Function getRedondeo(ByVal numero As Decimal) As Decimal
Dim salida As Decimal = 0
Dim aux As String = Format(numero, "#.00")
Dim parteEntera As Integer = CType(aux.Substring(0, aux.IndexOf(".")), Integer)
Dim parteDecimal As Integer = CType(aux.Substring(1 + aux.IndexOf(".")), Integer)

Select Case parteDecimal
Case 0 To 25
parteDecimal = 0
Case 26 To 75
parteDecimal = 50
Case Is > 75
parteDecimal = 0
parteEntera += 1
End Select

aux = parteEntera & "." & parteDecimal
salida = CType(aux, Decimal)

Return salida
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

RE:Problema con decimales

Publicado por Edu (5 intervenciones) el 19/12/2008 10:17:54
Muchas gracias aunque en la parteentera me dice que la longitud no puede ser 0 cuando ejecuto el codigo.
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:Problema con decimales

Publicado por Edu (5 intervenciones) el 19/12/2008 11:22:10
Solucionado, muchas gracias por la ayuda.
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