引用:
|
作者: 魔術王子
那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再繼續執行呢?
|
一樣@@" >.<還是會出現一樣的錯誤