VB.Net中的Penny汇总

彭妮把这样的工作召集起来

对于类似于10.31或10.32的金额，它变为10.30 对于金额10.33和10.34，则变为10.35 对于金额10.36和10.37，则变为10.35 对于金额10.38和10.39，则变为10.40

---

请帮助我实现这样的目标，我尝试了一切，但没有成功，我将永远感谢…

这里有一个函数，演示如何使用从数字中获取余数并选择如何处理它：

Public Function RoundPenny(amount As Single) As Single

    Dim integerAmount As Integer = amount * 100
    Dim remainder As Integer = integerAmount Mod 5

    Select Case remainder
        Case 0, 1, 2
            integerAmount -= remainder
        Case 3, 4
            integerAmount += (5 - remainder)
    End Select

    Return integerAmount / 100

End Function

---

向我们展示你迄今为止所做的尝试。乘以20，四舍五入，除以20。请采取网站旅游有一个规则，如果是金钱使用十进制数据类型。