专家坐堂-数值变整Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  数值变整  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=93232)

--  作者：联友
--  发布时间：2016/11/23 12:45:00
--  数值变整

金额后两位数小于30，则等于00，后两位数大于30，则等于50，后两位数大于50，则等于100，求指教，谢谢！

比如：

e.Form.Controls("金额").Text = 1823，23小于30，则e.Form.Controls("金额").Text = 1800

e.Form.Controls("金额").Text = 1835，35小于30，则e.Form.Controls("金额").Text = 1850

e.Form.Controls("金额").Text = 2162，62大于50，则e.Form.Controls("金额").Text = 2200

--  作者：有点蓝
--  发布时间：2016/11/23 14:37:00
--

Dim v As Integer = 1820
Dim v1 As Integer = CInt(v/100)*100
Dim k As Integer = v - v1
If k > 50 Then
v1 += 100
Else If k > 30 Then
v1 += 50
End If
Output.Show(v1)

--  作者：联友
--  发布时间：2016/11/23 16:00:00
--
谢谢