以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  求一个值的 大于它的 最小的5的倍数  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=110791)
--  作者：yjf123
--  发布时间：2017/12/9 16:12:00
--  求一个值的 大于它的 最小的5的倍数

求一个值的 不小于它的 最小的5的倍数

 

如：137   得 140

如：150   得150

      188  得 190

     161 得   165

[此贴子已经被作者于2017/12/9 16:14:09编辑过]
--  作者：有点蓝
--  发布时间：2017/12/9 16:32:00
--  
Dim n As Integer = 137
Dim k As Integer = Math.Floor(n / 10) * 10
Dim i As Integer = n - k
If i <> 0 AndAlso i <> 5 Then
    n = IIF(i < 5,k+5,k+10)
End If
msgbox(n)
--  作者：yjf123
--  发布时间：2017/12/9 16:34:00
--  

好像这个更简单，条件写错 ，是求不小于它

    Dim s As Double =e.DataRow("纸板宽")
    e.DataRow("实际宽")=iif(s Mod 5=0,s,(s\\5+1)*5)

[此贴子已经被作者于2017/12/9 16:35:44编辑过]
--  作者：有点蓝
--  发布时间：2017/12/9 17:03:00
--  
还有问题么