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