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

[魔術王子]

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))
當使用者沒輸入年時,程式便讀取系統時間
(然而系統讀取的是年月日的,不知您是否有試過直接輸入年會不會有誤?或不輸入呢?因為Now傳回的是年月日,而在以CInt將日期轉換成數值!可以嗎?)

[cocoking]

作者: 魔術王子

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))
當使用者沒輸入年時,程式便讀取系統時間
(然而系統讀取的是年月日的,不知您是否有試過直接輸入年會不會有誤?或不輸入呢?因為Now傳回的是年月日,而在以CInt將日期轉換成數值!可以嗎?)

謝謝大大的說明 小弟去試看看
不過就算我把
nYear.Text = Year(Now)
End If
判斷式取消 還是會出現一樣的位置偵錯@@"

[魔術王子]

判斷式取消

那nYear.Text的值是多少?

對了
您變更"月"時,有沒有輸入10 or 11 or 12 呢?

Private Sub nYear_Change() '年份改變時更新日曆

是看看加各判斷式
若Length(nYear.Text)==4再繼續執行呢?

[cocoking]

作者: 魔術王子

那nYear.Text的值是多少?

對了
您變更"月"時,有沒有輸入10 or 11 or 12 呢?

取消對年更動的判斷時
會套用到上述的判定
Private Sub Form_Load() '表格load
nYear.Text = Year(Now)
nMonth.Text = Month(Now)
nMdays = getMMdays(CInt(nYear.Text), CInt(nMonth.Text))
nWday = getWeekday(CInt(nYear.Text), CInt(nMonth.Text))
Call showMonth(nMdays, nWday)
End Sub
也就是說會被定義為現在的年跟月
2005年3月
當變動月時都會顯示正確「2005」年的月曆
像是今天的2月有28天 也是正確的
不管是用command4、5作月的更動或是直接用鍵盤輸入textbox==>nMonth.Text
顯示出來的月曆都是正常的（限於2005年）

作者: 魔術王子

是看看加各判斷式
若Length(nYear.Text)==4再繼續執行呢?

一樣@@" >.<還是會出現一樣的錯誤