5または9のいずれかの値を丸める

Question

特定のロジックに小数点以下の値を書式設定する必要があります。入力値を常に5または9のいずれかに丸めたいのですが、どうすれば最も簡単な方法を実現できますか？既に関数がありますか？以下に私が到達しようとしている事例を見つける。左側にはいくつかの入力値があり、右側には達成したい出力があります。そうする簡単な方法はありますか？

Input  Formatted 
------  ---------- 
614,46  = 615,00 
614,57  = 615,00 
615,01  = 619,00 
616,57  = 619,00 
91,11  = 95,00 
96,11  = 99,00 
89,25  = 95,00 

Answer 1

私が正しく理解していれば、あなたが戻っへのより大きいまたは指定した数に等しい最小の整数をCeiling方法を使用する必要がありますし、この整数ラウンド最寄り5または9

に私はしないでください独自の機能を記述することなく、この動作を得ることができると思います。

Private Function intRoundTo5Or9(ByVal dblNumber As Double) As Integer 

    Dim intLastDigit As Integer = CInt(Math.Ceiling(dblNumber).ToString().Substring(Math.Ceiling(dblNumber).ToString().Length - 1, 1)) 

    If intLastDigit <= 5 Then 
     Return Math.Ceiling(dblNumber) + 5 - intLastDigit 
    Else 
     Return Math.Ceiling(dblNumber) + 9 - intLastDigit 
    End If 

End Function 

Answer 2

は何もありませんあなたのケースのためで建てるいますが、簡単に自分でそれを実装することができます

Public Sub Main() 
    Console.WriteLine("{0:N2}", myFlor(614.46)) 
    Console.WriteLine("{0:N2}", myFlor(614.57)) 
    Console.WriteLine("{0:N2}", myFlor(615.01)) 
    Console.WriteLine("{0:N2}", myFlor(616.57)) 
    Console.WriteLine("{0:N2}", myFlor(91.11)) 
    Console.WriteLine("{0:N2}", myFlor(96.11)) 
    Console.WriteLine("{0:N2}", myFlor(89.25)) 
End Sub 

Function myFlor(ByVal value As Double) As Double 
    Dim base as Integer 
    base = Math.Truncate(value/10) *10 
    If value - base > 9 
     ' Handle 9.01 -9.99 case 
     Return base + 15 
    ElseIf value - base > 5 
     Return base + 9 
    Else 
     Return base + 5 
    End If 
End Function