提供个可以显示农历的VBS代码
2017-02-06
32
复制代码 代码如下:<scriptlanguage=vbscript> Functionnl() "获取当前系统时间 curTime=Now() DimWeekName(7),MonthAdd(11),NongliData(99),TianGan(9),DiZhi(11),ShuXiang(11),DayName(30),MonName(12) "星期名 WeekName(0)="*" WeekName(1)="星期日" WeekName(2)...