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

[mini]

有沒有錯誤訊息?
改 "年" 是用 "Command2"or"Command3" 改 還是用 鍵盤輸入?

如果單就沒進入 getMMdays 函式就報錯
一般是值的傳遞..等錯誤
還是po一下 錯誤訊息 比較好解決

用 VB 幾??

[cocoking]

作者: mini

有沒有錯誤訊息?
改 "年" 是用 "Command2"or"Command3" 改 還是用 鍵盤輸入?

如果單就沒進入 getMMdays 函式就報錯
一般是值的傳遞..等錯誤
還是po一下 錯誤訊息 比較好解決

用 VB 幾??

VB6
錯誤代碼為：13 型態不符合
Private Sub Command2_Click() '按一下此鍵年減1
nYear.Text = nYear.Text - 1
End Sub

Private Sub Command3_Click() '按一下此鍵年加1
nYear.Text = nYear.Text + 1
End Sub
上述command2、3是控制年加和減
因為年是寫在textbox內 所以也可以直接用打的
Private Sub nYear_Change() '年份改變時更新日曆★
If nYear.Text = "" Then
nYear.Text = Year(Now)
End If
For I = 0 To 41
Command1(I).Caption = ""
Next I
nMdays = getMMdays(CInt(nYear.Text), CInt(nMonth.Text))
nWday = getWeekday(CInt(nYear.Text), CInt(nMonth.Text))
Call showMonth(nMdays, nWday)
End Sub
★上述當年更動時對目前日曆作更新 這個加入執行就會出現錯誤代碼13(偵錯是紅色部份）
如果上述不加入 程執就可執行 不會有錯誤訊息
但由於沒有加入更新年 所以萬年曆 會變成2005年1~12月都正確
換年就不行了