使用VBA編輯代碼及效果圖如下Sub 日歷Dim WkName As StringDim i， j， k， l As LongDim strStar As DateDim strEnd As DatestrStar = InputBoxquot日歷編輯起始日期quot， quot日歷編輯quot， #112017#If strStar。

+ y 4 + 13 * month + 1 5 + day 1 whileweek lt 0 week += 7 week %= 7 return weekvoid displayint year， int month int monthDays， weekFirst。

顯示源代碼粘貼當(dāng)前代碼去掉鉤保存 如果是新增的面板可以再接著點(diǎn)定制我的首頁添加模塊勾選新添面板選取保存 flash日歷樣式地址網(wǎng)址制作日歷比較麻煩，沒有專門的命令，如果不用插件或者。

* 稍微改了下對(duì)齊格式，加了注釋 * 1閏年的算法如果某年能被4整除但不能被100整除，或者能被400整除，則該年是閏年用表達(dá)式表示就是 year %4 == 0 year%100 ！= 0 year%400 == 02。

public static void mainString args Calendar calendar = CalendargetInstancecalendarsetCalendarYEAR， 2012calendarsetCalendarMONTH，1calendarsetCalendarDAY_OF_MONTH， 1int first =。