Visual Basic - Redondeos

Hola de nuevo

Alguien me puede decir cómo redondear decimales del siguiente modo:

Si el valor en 10.20 redondearía a 10.00 pero si és 10.30 redondearía a 10.50. Es decir, quiero redondear a la mitad de punto.

Gracias

Esto no es lo mejor, pero para lo agradecido que eres es lo que hay.

Dim a As Double
Dim b As Double
b = a - Int(a)
Select Case b
Case 0 To 0.24
a = Int(a)
Case 0.25 To 0.49
a = Int(a) + 0.25
Case 0.5 To 0.74
a = Int(a) + 0.5
Case 0.75 To 0.99
a = Int(a) + 0.75
End Select

OK, GRACIAS DE NUEVO

O algo más simple, no importando el nivel de agradecimiento:

(Fix(([Número] * 2) + 0.5)) / 2

donde
[Número] es el número que quieres redondear.
En este caso, el 0.25 lo redondea a 0.5 Si esto es incorrecto, cambia en la fórmula el 0.5 por 0.499 y tantos 9's como haga falta.

Espero que te sirva.

Saludos.

GENIAL!!!

Cuanto menos fórmulas mejor

Muchas gracias por tu ayuda

No se cual es mejor, pero igual te sirve como nuevo punto de vista.

Dim Num As Integer
Dim Dec As Integer
Num = 1080
Dec = (Num Mod 100) * 2
Dec = Round(Dec / 100) * 50
Num = (Int(Num / 100) * 100) + Dec

Un saludo.

OK
Muchas gracias, me gusta más esta opción que la primera que me diste

Saludos

chicos son unos genios me servio mucho lo que volcaron en estan paginas

saludos