會寫VB的大大請進來看一下

cocoking · 2005-03-23, 02:27 PM

引用:

作者: mini

13 型態不符合
果然是值的傳遞之問題

建議
Function getMMdays(pnYear, pnMonth)
請改成
Function getMMdays(pnYear As Integer , pnMonth As Integer)

Visual Basic 引數傳遞方式預設為 ByRef
如果不指定資料型態或物件型態，且模組中沒有Deftype 陳述式，變數的預設型態為 Variant。
型態不符合
http://yes.nctu.edu.tw/VB/B2_Code/Err_13.htm

getMMdays(CInt(nYear.Text), CInt(nMonth.Text))
改成
getMMdays(Val(nYear.Text), Val(nMonth.Text))

Dim x As Integer
x = Val("1.2")
結果 x=1 而不是 1.2
所以與 Cint 有同樣效果

謝謝大大的教導
小弟馬上來試試^^

cocoking · 2005-03-23, 02:46 PM

感動中
經過mini大大指點
錯誤終於修正
目前完全正常了

再次感謝mini大大
不過小弟還有不懂的地方想請教大大
為何小弟用cint就不行呢?
例：
Private Sub Command1_Click()
Dim x As Integer
x = InputBox("請輸入一數字")
Print CInt(x)
Print Val(x)
End Sub
當我輸入有x=1.3時
print出來為cint(x)==>1
val(x)==>1
如果沒有定義x
Dim x As Integer<==取消
則print出來為cint(x)==>1
val(x)==>1.3
所以定義變數為Integer時
val的質會等於cint的質
重點就是為什麼把萬年曆改成val就行呢?cint就不行?
謝謝~~~~

2005-03-23, 02:46 PM	#2 (permalink)
cocoking 註冊會員榮譽勳章勳章總數2 UID - 79625 在線等級: 註冊日期: 2003-06-21 VIP期限: 2009-10 文章: 60 精華: 0 現金: 5588 金幣資產: 10588 金幣	感動中經過mini大大指點錯誤終於修正目前完全正常了再次感謝mini大大不過小弟還有不懂的地方想請教大大為何小弟用cint就不行呢? 例： Private Sub Command1_Click() Dim x As Integer x = InputBox("請輸入一數字") Print CInt(x) Print Val(x) End Sub 當我輸入有x=1.3時 print出來為cint(x)==>1 val(x)==>1 如果沒有定義x Dim x As Integer<==取消則print出來為cint(x)==>1 val(x)==>1.3 所以定義變數為Integer時 val的質會等於cint的質重點就是為什麼把萬年曆改成val就行呢?cint就不行? 謝謝~~~~

	送花文章: 74, 收花文章: 1 篇, 收花: 1 次

Google 提供的廣告