Function JJJT_Redondeo(Valor As Double) As Long
'Verificamos que el campo no este nulo, ni en cero(0)
If Valor = 0 Then
MsgBox "debe incluir un valor numerico en el campo " & Chr(13) & _
"y este debe ser diferente de cero(0)", vbInformation, "Aviso"
Exit Function
End If
'Despues redondeo el valor y recojo el ultimo numero
'si detecto que es 0(cero), dejo el valor intacto
If Right(Round(Valor, 0), 1) = 0 Then
JJJT_Redondeo = Valor
Exit Function
End If
'Ahora bien, reviso que el ultimo valor este entre 0 y 5
If Right(Round(Valor, 0), 1) > 0 And Right(Round(Valor, 0), 1) < 5 Then
'si es asi
'lo redondeo a cinco
JJJT_Redondeo = Left(Round(Valor, 0), (Len(Round(Valor, 0)) - 1)) & 5
Else
'de lo contrario le aumento un digito y lo llevo a entero 0
JJJT_Redondeo = Left(Round(Valor, 0), (Len(Round(Valor, 0)) - 1)) + 1 & 0
End If
End Function