Foxtable(狐表) → 用户栏目 → 专家坐堂 → 【已解决】[求助]0.1进位如何用代码写出来？


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

主题：【已解决】[求助]0.1进位如何用代码写出来？
帅哥哟，离线，有人找我吗？
zto001
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1483 积分：10551 威望：0 精华：0 注册：2018/10/16 11:42:00 		【已解决】[求助]0.1进位如何用代码写出来？  发帖心情 Post By：2019/10/5 13:13:00 [只看该作者]

[求助]0.1进位如何用代码写出来？
不足0.1进0.1，比如21.11进位后是21.2
0.1进位想了半天没想出来
[此贴子已经被作者于2019/10/5 15:54:07编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
WELOVEFOX
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：466 积分：3382 威望：0 精华：0 注册：2016/12/21 22:58:00 		  发帖心情 Post By：2019/10/5 15:00:00 [只看该作者]

变量：
Dim jw1, jw2 As Decimal '高精度小数
jw1 = 2.11
jw2 = Math.Ceiling(jw1 * 10)/10
Output.Show(jw1)
Output.Show(jw2)

同理其它类通，表列：Datacolchanged表事件
If e.DataCol.Name = "第九列" Then
    If e.DataRow.IsNull("第九列") Then
        e.DataRow("第十列") = Nothing
    Else
        e.DataRow("第十列") = Math.Ceiling(e.DataRow("第九列") * 10)/10
        e.DataRow("第九列") = Math.Ceiling(e.DataRow("第九列") * 10)/10
    End If
End If
 回到顶部
帅哥哟，离线，有人找我吗？
zto001
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1483 积分：10551 威望：0 精华：0 注册：2018/10/16 11:42:00 		  发帖心情 Post By：2019/10/5 15:08:00 [只看该作者]

                    临时数 = Math.Floor((重量-整数)*10)
Val =Math.Floor(重量*10)/10
                    If (重量-整数)*10-临时数=0 Then
                        余数=Val-整数
                    Else
                        余数=Val-整数+0.1
                    End If
            End Select

我是这样写出来的
但奇怪的是有时候他会自动再进一位。比如
6.3
23.8
8.3
这些他算出来的是6.4
23.9
8.4
是不是双精位小数的问题？
 回到顶部
帅哥哟，离线，有人找我吗？
zto001
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1483 积分：10551 威望：0 精华：0 注册：2018/10/16 11:42:00 		  发帖心情 Post By：2019/10/5 15:10:00 [只看该作者]

这样写比我的简单多了

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03516 秒, 4 次数据查询