以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://weistock.com/bbs/index.asp)
--  金字塔软件问题提交  (http://weistock.com/bbs/list.asp?boardid=2)
----  关于 取余 vba  (http://weistock.com/bbs/dispbbs.asp?boardid=2&id=62478)
--  作者：kenan168
--  发布时间：2014/3/9 9:32:45
--  关于 取余 vba


1.如果我一个价格，2113.3，如何取余 成为   2113.4，保证是  0.2的倍数？   写个例子  感谢老师
--  作者：yukizzc
--  发布时间：2014/3/9 19:47:08
--  

Dim num = 2312.3
        Dim result
        result = (num * 10) Mod 2
        If result = 1 Then num = num + 0.1
        MsgBox(num)

 

看下这样符合您要求不