以文本方式查看主题 -  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp) --  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2) ----  【求助】抹零操作怎么实现？比如5132元，抹掉132元，直接收5000元，然后让系统自动将132记入抹零金额？  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=103249)

--  作者：李孝春 --  发布时间：2017/7/4 9:57:00 --  【求助】抹零操作怎么实现？比如5132元，抹掉132元，直接收5000元，然后让系统自动将132记入抹零金额？ 【求助】抹零操作怎么实现？比如5132元，抹掉132元，直接收5000元，然后让系统自动将132记入抹零金额？ 9082       9000 10092     10000  4137       4000  等均可实现一样效果

--  作者：有点甜 --  发布时间：2017/7/4 10:17:00 --   dim d as double = 9082       d = (d \\ 1000) * 1000 msgbox(d)

--  作者：李孝春 --  发布时间：2017/7/4 10:36:00 --  回复：（有点甜）dim d as double = 9082  ... 好的  谢谢  如果是100以内的 对应变改如下  记下备查 dim d as double = 9082        d = (d \\ 100) * 100 msgbox(d)

--  作者：有点蓝 --  发布时间：2017/7/4 12:30:00 --   不限位数 Dim d As Double = 9082 Dim s As String = cstr(d) Dim len As Integer = s.Length Dim d2 As Integer = val(s.SubString(0,1).PadRight(len,"0")) Output.Show("去尾数:" & d2) Output.Show("尾数:" & d-d2)

--  作者：dxjwlf --  发布时间：2019/7/20 10:40:00 --  [求助]189.8；189.3 如何去掉小数点后的数字 ]189.8；189.3 如何去掉小数点后的数字

--  作者：有点蓝 --  发布时间：2019/7/20 10:52:00 --   msgbox(val(cstr(189.8).split(".")(0)))