|
|
|||||||
| 論壇說明 |
|
歡迎您來到『史萊姆論壇』 ^___^ 您目前正以訪客的身份瀏覽本論壇，訪客所擁有的權限將受到限制，您可以瀏覽本論壇大部份的版區與文章，但您將無法參與任何討論或是使用私人訊息與其他會員交流。若您希望擁有完整的使用權限，請註冊成為我們的一份子，註冊的程序十分簡單、快速，而且最重要的是－－註冊是完全免費的！ 請點擊這裡：『註冊成為我們的一份子！』 |
|
|
主題工具 | 顯示模式 |
2005-03-23, 02:03 PM
|
#8 (permalink) |
|
管理版主
 
|
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 有同樣效果 |
|
送花文章: 2055,
|
樹形模式