vb中去掉小数点后面无效的0

快跑蜗牛哥 2016-09-27 08:16:44

唉，本人搞java的，没有接触过vb
现在要维护几个vb系统，

目前有个问题，以前的报表获取的数据去0 的问题
以下是获得数据代码
Replace (ToText ({ado.Qxxx},4),",","")
得到的数据小数点后面有无效的0
如：
需得到显示的结果
523 523.0000
7.235 7.2350
65.2 65.2000
98.26 98.2600

请问代码该如何修改？

...全文

873 8 打赏收藏转发到动态举报

写回复

用AI写文章

8 条回复

切换为时间正序

请发表友善的回复…

发表回复

弋戈808 2017-03-02

打赏
举报

内容干吗删了

赵4老师 2016-09-28

打赏
举报

引用 6 楼 qw0907 的回复:

非常感谢赵4老师

快跑蜗牛哥 2016-09-27

打赏
举报

非常感谢赵4老师

赵4老师 2016-09-27

打赏
举报

引用 3 楼 qw0907 的回复:

[quote=引用 1 楼 zhao4zhong1 的回复:]
Replace(RTrim(Replace(Replace(Replace (ToText ({ado.Qxxx},4),",","")," ",""),"0"," "))," ","0")

谢谢，但是 523 显示成 523. 如何去点 . ?[/quote]

Replace(RTrim(Replace(Replace(RTrim(Replace(Replace(Replace (ToText ({ado.Qxxx},4),",","")," ",""),"0"," "))," ","0"),"."," "))," ",".")

快跑蜗牛哥 2016-09-27

打赏
举报

引用 2 楼 bakw 的回复:

Val(Replace (ToText ({ado.Qxxx},4),",",""))

谢谢，还是一样。 Val()只是把数据格式化了。

快跑蜗牛哥 2016-09-27

打赏
举报

引用 1 楼 zhao4zhong1 的回复:

Replace(RTrim(Replace(Replace(Replace (ToText ({ado.Qxxx},4),",","")," ",""),"0"," "))," ","0")

谢谢，但是 523 显示成 523. 如何去点 . ?

笨狗先飞 2016-09-27

打赏
举报

Val(Replace (ToText ({ado.Qxxx},4),",",""))

赵4老师 2016-09-27

打赏
举报

Replace(RTrim(Replace(Replace(Replace (ToText ({ado.Qxxx},4),",","")," ",""),"0"," "))," ","0")

VBA格式化字符串VBA函数Format及工作表函数Text[参考].pdf

如题：BigDecimal去掉小数点后无用的0 解决：BigDecimal，有方法解决stripTrailingZeros() 比如：数据库存储的是Decimal(5,2)类型保留两位数。如果展示数据5.00，5.10等字样感觉很不爽，如何做呢？只战术5和5.1 public static void main(String[] args) { System.out.println(BigDecimal.ZERO); System.out.println(new B

decimal类型去掉后面多余显示的0

【代码】.Net_数字转换成字符串去掉尾部无效的0。

VBA的语法很简单易懂，逻辑性强，但很全面，因此涉及的方面也较多，本文及随后的一系列文章将重点介绍VBA语法方面的相关知识。这些文章都是自已在学习VBA过程中的总结归纳笔记。本文只是简要概略的讲解了VBA所涉及的语法知识，以此构建VBA语法框架，更具体详细的介绍将在后面的一系列文章中。我们今天首先来说一下，VBA的数据类型有哪几种？变量，常量，声明变量，对象常量，集合(Collection)对象，...

VB基础类

7,785

社区成员

197,585

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章