VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)

VB爱好者乐园(VBGood)

 找回密码
 立即注册
搜索
查看: 1024|回复: 6

[求助] 不知道为什么会出现“实时错误6”的问题,请求帮助解决。

[复制链接]
发表于 2019-12-12 21:25:42 | 显示全部楼层 |阅读模式
10金钱
本帖最后由 ygxshanghai 于 2019-12-12 21:26 编辑

不知道为什么会出现“实时错误6”的问题,请求帮助解决,谢谢。具体在附件中,出现错误之处的照片好象不能上传。

问询.rar

2.17 KB, 下载次数: 153

 楼主| 发表于 2019-12-13 18:55:58 | 显示全部楼层
round(XXX,0)即可。四舍五入取整
回复

使用道具 举报

发表于 2019-12-15 10:22:58 | 显示全部楼层
Option Explicit
Dim AMoney As Long

Private Sub DTPicker1_Change()
Text3.Text = DateDiff("D", DTPicker1, DTPicker2) '天数相差
AMoney = CInt(Val(Text2)) * Val(Text3) * 30 '计算费用
Label15 = "单价:30元/㎡天,施工" & Text3 & "天,计:" & AMoney & "元"
End Sub

Private Sub DTPicker2_Change()
Text3.Text = DateDiff("D", DTPicker1, DTPicker2) '天数相差
AMoney = CInt(Val(Text2)) * Val(Text3) * 30 '计算费用
Label15 = "单价:30元/㎡天,施工" & Text3 & "天,计:" & AMoney & "元"
End Sub

Private Sub Form_Load()
Text2.Text = "126.553": Text3.Text = "0"
End Sub

Private Sub Label15_Change()
Text3.Text = DateDiff("D", DTPicker1, DTPicker2) '天数相差
AMoney = CInt(Val(Text2)) * Val(Text3) * 30 '计算费用
Label15 = "单价:30元/㎡天,施工" & Text3 & "天,计:" & AMoney & "元"
End Sub

Private Sub Text2_Change()
Text3.Text = DateDiff("D", DTPicker1, DTPicker2) '天数相差
AMoney = CInt(Val(Text2)) * Val(Text3) * 30 '计算费用
Label15 = "单价:30元/㎡天,施工" & Text3 & "天,计:" & AMoney & "元"
End Sub

回复

使用道具 举报

发表于 2019-12-15 10:23:48 | 显示全部楼层
本帖最后由 孤心吉 于 2019-12-15 10:27 编辑

试试
回复

使用道具 举报

发表于 2019-12-15 10:24:22 | 显示全部楼层
本帖最后由 孤心吉 于 2019-12-15 10:26 编辑

试试
回复

使用道具 举报

发表于 2019-12-15 10:24:43 | 显示全部楼层
本帖最后由 孤心吉 于 2019-12-15 10:27 编辑

试试
回复

使用道具 举报

发表于 2019-12-15 10:25:39 | 显示全部楼层
本帖最后由 孤心吉 于 2019-12-15 10:26 编辑

试试

回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

文字版|手机版|小黑屋|VBGood  

GMT+8, 2020-4-7 07:27

VB爱好者乐园(VBGood)
快速回复 返回顶部 返回列表