使用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。

显示源代码粘贴当前代码去掉钩保存 如果是新增的面板可以再接着点定制我的首页添加模块勾选新添面板选取保存 flash日历样式地址网址制作日历比较麻烦，没有专门的命令，如果不用插件或者。

* 稍微改了下对齐格式，加了注释 * 1闰年的算法如果某年能被4整除但不能被100整除，或者能被400整除，则该年是闰年用表达式表示就是 year %4 == 0 year%100 ！= 0 year%400 == 02。

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