C# と VB.NET の質問掲示板

5円単位で→2.5円単位でだと思うんだけど...
小数点以下が無いのであれば
どこで切り上げ切り捨てるかは自分で調整してくださいな。

Dim Money As Decimal = 7 '求めたい値
Dim MoneyDec As Decimal = Money / 10D
Dim MoneyInt As Decimal = Math.Truncate(MoneyDec)
Dim MoneyPart As Decimal = MoneyDec - MoneyInt

If MoneyPart >= 0.0D And MoneyPart < 0.25D Then
  MoneyInt += 0.0D
Elseif MoneyPart >= 0.25D And MoneyPart < 0.75D Then
  MoneyInt += 0.5D
Elseif MoneyPart >= 0.75D And MoneyPart < 1.0D Then
  MoneyInt += 1.0D
End If
Money = MoneyInt * 10D

■No98631 (ゆい さん) に返信
> これを例えば金額とすれば、0円、5円、10円・・と言ったように
> 5円単位での「切り上げ・切り捨て」する方法を教えてください。

仕様がはっきりしないですね・・・

Sub Main()

    Console.WriteLine("切り上げ")
    For value As Double = 0 To 11
        Console.WriteLine($"{value} → {Ceiling(value, 5)}")
    Next

    Console.WriteLine("切り捨て")
    For value As Double = 0 To 11
        Console.WriteLine($"{value} → {Truncate(value, 5)}")
    Next

    Console.WriteLine("四捨五入?")
    For value As Double = 1.9 To 3.1 Step 0.1
        Console.WriteLine($"{value} → {Round(value, 5)}")
    Next

    Console.ReadKey()
End Sub

Function Ceiling(ByVal value As Double, ByVal unit As Double) As Double
    Return Math.Sign(value) * Math.Truncate((Math.Abs(value) + unit - unit / 10) / unit) * unit
End Function

Function Truncate(ByVal value As Double, ByVal unit As Double) As Double
    Return Math.Sign(value) * Math.Truncate(Math.Abs(value) / unit) * unit
End Function

Function Round(ByVal value As Double, ByVal unit As Double) As Double
    Return Ceiling(Truncate(value * 2, unit) / 2, unit)
End Function

キャストが面倒なので全部 Double に。(^_^;)

どうも図表モードにするのを忘れてしまう・・・

■No98637 (ゆい さん) に返信
> ■No98635 (KOZ さん) に返信
> 
> またの機会にお願いします。
> 
解決したようですが整数の計算であれば演算は整数のものを利用した方がよいです。

        For i = 0 To 50
            Dim sute = (i \ 5) * 5
            Dim age = ((i + 4) \ 5) * 5
            Dim rd23 = ((i + 2) \ 5) * 5
            Debug.WriteLine($"{i}:{sute}:{age}:{rd23}")
        Next