以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]如何实现数值只舍不入的效果（已解决）  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=16126)
--  作者：yyzlxc
--  发布时间：2012/2/3 11:07:00
--  [求助]如何实现数值只舍不入的效果（已解决）

保留两位小数的值，如23.4586，要求显示为23.45，如何来实现，请各位老师指教，谢谢！！

[此贴子已经被作者于2012-2-3 13:08:18编辑过]
--  作者：blackzhu
--  发布时间：2012/2/3 12:38:00
--  
列属性设置为两位数
--  作者：yyzlxc
--  发布时间：2012/2/3 13:08:00
--  

用fix函数解决。

Dim a,b As Double
a = 23.4586
b = fix(a*100)/100
MessageBox.Show(b)

[此贴子已经被作者于2012-2-3 13:08:52编辑过]
--  作者：程兴刚
--  发布时间：2012/2/3 13:58:00
--  

直接定义一个变量亦可，比如：

 

Dim a As Double
a = 23.4586
a = fix(a*100)/100
MessageBox.Show(a)
--  作者：yyzlxc
--  发布时间：2012/2/3 15:44:00
--  
谢谢程老师的指教。