标题: 判断是否润年(偏)→VBS [打印本页]

---

作者: baomaboy     时间: 2007-4-14 04:45    标题: 判断是否润年(偏)→VBS

无意中看到一个判断是否润年的方法，由于我对润不润一点都不知，所有不知是否可行。

Quote:

'思想：判断这年是不是用2月29日，如果有则是闰年，否则不是闰年！ Dim Years 'As String Years=inputbox("请输入您想要查询的年份:","查询年份",Year(Date))'得到的年份信息 If Years=False Then WScript.Quit If IsDate(Years & "/2/29") Then MsgBox chr(34)&Years&chr(34)&"年—该年是闰年" Else MsgBox chr(34)&Years&chr(34)&"年—该年不是闰年" End If

　

[ Last edited by baomaboy on 2008-3-25 at 01:01 AM ]

---

作者: ccwan     时间: 2007-4-14 04:56
这个不错啊，还可以用在vba语句里，谢谢分享

---

作者: kich     时间: 2007-4-14 07:15
If IsDate(Years & "/2/29") Then

看不大明白,每年不都是有2月29号嘛!!

---

作者: utem999     时间: 2007-4-14 07:20
智能化就好了
比喻年份手动输入
那样就想查哪年就输入年份就可以了

---

作者: wydos     时间: 2007-4-14 08:01
希望楼主多发点实用vbs

---

作者: kich     时间: 2007-4-14 08:46

Quote:

Originally posted by utem999 at 2007-4-14 07:20: 智能化就好了 比喻年份手动输入 那样就想查哪年就输入年份就可以了

Dim Years
Years=inputbox("请输入您想要查询的年份:","查询年份","2008")'得到的年份信息
If IsDate(Years & "/2/29") Then
MsgBox "该年是闰年"
Else
MsgBox "该年不是闰年"
End If