VBGood網站全文搜索 Google

搜索VBGood全站網頁(全文搜索)

VB愛好者樂園(VBGood)

 找回密碼
 立即注冊
搜索
查看: 526|回復: 6
打印 上一主題 下一主題

[求助] 不知道為什么會出現“實時錯誤6”的問題,請求幫助解決。

[復制鏈接]
跳轉到指定樓層
1
發表于 2019-12-12 21:25:42 | 只看該作者 回帖獎勵 |倒序瀏覽 |閱讀模式
10金錢
本帖最后由 ygxshanghai 于 2019-12-12 21:26 編輯

不知道為什么會出現“實時錯誤6”的問題,請求幫助解決,謝謝。具體在附件中,出現錯誤之處的照片好象不能上傳。

問詢.rar

2.17 KB, 下載次數: 76

2
 樓主| 發表于 2019-12-13 18:55:58 | 只看該作者
round(XXX,0)即可。四舍五入取整
回復

使用道具 舉報

3
發表于 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

回復

使用道具 舉報

4
發表于 2019-12-15 10:23:48 | 只看該作者
本帖最后由 孤心吉 于 2019-12-15 10:27 編輯

試試
回復

使用道具 舉報

5
發表于 2019-12-15 10:24:22 | 只看該作者
本帖最后由 孤心吉 于 2019-12-15 10:26 編輯

試試
回復

使用道具 舉報

6
發表于 2019-12-15 10:24:43 | 只看該作者
本帖最后由 孤心吉 于 2019-12-15 10:27 編輯

試試
回復

使用道具 舉報

7
發表于 2019-12-15 10:25:39 | 只看該作者
本帖最后由 孤心吉 于 2019-12-15 10:26 編輯

試試

回復

使用道具 舉報

您需要登錄后才可以回帖 登錄 | 立即注冊

本版積分規則

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

GMT+8, 2020-2-5 20:00

VB愛好者樂園(VBGood)
快速回復 返回頂部 返回列表
广西快3开奖结果直播