主题：小数点后取两位
shuiziliu
[专家分：300] 发布于 2006-01-06 16:52:00
有一问题向请教，如何让一个小数取到小数点后两位。
拖出两个文本框。textbox1和textbox2
dim ss as string
aa=textbox1.text/textbox2.text
如果：aa=5.98766666我只想取到aa=5.98怎么做啊？
[em2]
回复列表 （共3个回复）
沙发
wanggcc [专家分：1450] 发布于 2006-01-06 17:17:00
Dim appXls As Excel.Application
Set appXls = New Excel.Application
'...
appXls.Cells(1, 1) = 3.14159
appXls.Cells(1, 1).NumberFormatLocal = "0.00_);[红色](0.00)"
appXls.Cells(1, 1).NumberFormatLocal = "0.00_);(0.00)"
appXls.Cells(1, 1).NumberFormatLocal = "0.00;[红色]0.00"
appXls.Cells(1, 1).NumberFormatLocal = "0.00_ "
板凳
薛一刀 [专家分：220] 发布于 2006-01-11 10:23:00
我记得VB里面有个格式化的函数
大致上是
format(aa,"#0.00")
四舍五入的话
Round(aa,"#0.00")
试试看吧
3 楼
wyj82 [专家分：10] 发布于 2006-01-12 16:48:00
format(数字,"0.00")
我来回复
您所在位置：