欢迎使用金字塔普通技术服务论坛,您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴,普通区问题处理速度慢,请耐心等待。谢谢您对我们的支持与理解。


金字塔客服中心 - 专业程序化交易软件提供商金字塔软件金字塔软件问题提交 → 关于 取余 vba

   

欢迎使用金字塔普通技术服务论坛,您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴,普通区问题处理速度慢,请耐心等待。谢谢您对我们的支持与理解。    


  共有2455人关注过本帖树形打印复制链接

主题:关于 取余 vba

帅哥哟,离线,有人找我吗?
kenan168
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:论坛游侠 帖子:347 积分:0 威望:0 精华:0 注册:2013/12/3 10:29:18
关于 取余 vba  发帖心情 Post By:2014/3/9 9:32:45 [只看该作者]



1.如果我一个价格,2113.3,如何取余 成为   2113.4,保证是  0.2的倍数?   写个例子  感谢老师

 回到顶部
帅哥哟,离线,有人找我吗?
yukizzc
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:21598 积分:0 威望:0 精华:1 注册:2010/7/31 16:35:30
  发帖心情 Post By: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)

 

看下这样符合您要求不


 回到顶部