是小数点后三位吗。
Dim curValue As Currency
Dim dblValue As Double
curValue = dblValue
curValue = curValue * 1000 \ 1
dblValue = CDbl(curValue / 1000)
Dim curValue As Currency
Dim dblValue As Double
curValue = dblValue
curValue = curValue * 1000 \ 1
dblValue = CDbl(curValue / 1000)
解决方案 »
- 请教个vb的form上去掉关闭按钮的问题
- 读取excel所有数据,为什么excel里的值有,读出来是空值?
- 如何将多次输入的数字,在每次之间抽出相同数字?谢高手指点!这个问题还未解决啊!
- 请问弱弱的问题!
- EPSON打印尺寸比实际文件偏小的原因
- 在Microsoft Excel中设置股票代码、名称、即时报价?
- 如何控制 Text 控件中文本的行间距?
- 如何从一个已知的子窗口找其父窗口的句柄?
- 如何将adodb.recordset的记录转换成为CSV的格式<无内容>
- 排队问题
- 请教:为什么我的DataReport导出的HTML文件和预览的不一样
- 谁做过ZEBRA(斑马条码机)的打印程序,型号S400,急!!!!!
dblValue = CLng(dblValue - 0.5) + CLng((dblValue - CLng(dblValue - 0.5)) * 1000 - 0.5) / 1000
我不太明白你的意思,你是说小数被数据库截掉了吗
Print Format$(123.21335, "00.000")