Funcion Round()

[DeCodigos]

Buenas, queria saber como usar la funcion Round() pero para que devuelva solo multiplos de 5, supongaoms que el valor que tengo es 11, me tendria que devolver 10, supongamos que sea 3, me devuelva 5..
Muchas Gracias!

[pkj]

Creo que Round() no tiene nada que ver con lo que buscas.
Yo haría algo así:

Código vb:

Function Redondea(Numero As Long) As Long
  Dim Divisor As Long
  Numero = Int(Numero)
  Divisor = Int(Numero / 5)
  If Numero - (Divisor * 5) > 2 Then Divisor = Divisor + 1
  Redondea = Divisor * 5
End Function
 

Saludos

[DeCodigos]

Muchisimas Gracias! capo, capo capo!

[seba123neo]

podes usar Mod 5, y te ahoras lineas de codigo..

saludos.