最新最全VBS脚本应用超级范例大全.docVIP

可以显示农历的VBS代码:script language=vbscript Function nl() 获取当前系统时间 curTime = Now() Dim WeekName(7), MonthAdd(11), NongliData(99), TianGan(9), DiZhi(11), ShuXiang(11), DayName(30), MonName(12) 星期名 WeekName(0) = * WeekName(1) = 星期日 WeekName(2) = 星期一 WeekName(3) = 星期二 WeekName(4) = 星期三 WeekName(5) = 星期四 WeekName(6) = 星期五 WeekName(7) = 星期六 天干名称 TianGan(0) = 甲 TianGan(1) = 乙 TianGan(2) = 丙 TianGan(3) = 丁 TianGan(4) = 戊 TianGan(5) = 己 TianGan(6) = 庚 TianGan(7) = 辛 TianGan(8) = 壬 TianGan(9) = 癸 地支名称 DiZhi(0) = 子 DiZhi(1) = 丑 DiZhi(2) = 寅 DiZhi(3) = 卯 DiZhi(4) = 辰 DiZhi(5) = 巳