使用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)前代碼去掉鉤保存 如果是新增的面板可以再接著點定制我的首頁添加模塊勾選新添面板選取保存 flash日歷樣式地址網(wǎng)址制作日歷比較麻煩，沒有專門的命令，如果不用插件或者。

* 稍微改了下對齊格式，加了注釋 * 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 =。