作者：baomaboy | 时间：2007-04-14 04:45 | 标题：判断是否润年(偏)→VBS
无意中看到一个判断是否润年的方法，由于我对润不润一点都不知，所有不知是否可行。
'思想：判断这年是不是用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-04-14 04:56
这个不错啊，还可以用在vba语句里，谢谢分享
作者：kich | 时间：2007-04-14 07:15
If IsDate(Years & "/2/29") Then
看不大明白,每年不都是有2月29号嘛!!
作者：utem999 | 时间：2007-04-14 07:20
智能化就好了
比喻年份手动输入
那样就想查哪年就输入年份就可以了
作者：wydos | 时间：2007-04-14 08:01
希望楼主多发点实用vbs
作者：kich | 时间：2007-04-14 08:46
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
