中国DOS联盟论坛

中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --
联盟域名：www.cn-dos.net　论坛域名：www.cn-dos.net/forum
游客 | 登录 | 注册 | 会员 | 搜索 | 中国DOS联盟
中国DOS联盟论坛
现在时间是 2026-08-04 03:11 		共 48,038 主题排行 / 350,123 发帖 / 今日 0 篇 / 48,251 会员排行
DOS批处理 & 脚本技术（批处理室） » 判断是否润年(偏)→VBS
可打印版本 　1,488 / 5
第1楼　baomaboy 发表于 2007-04-14 04:45
银牌会员　发帖 554　积分 1,513
判断是否润年(偏)→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 ]
第2楼　ccwan 发表于 2007-04-14 04:56
金牌会员　发帖 1,160　积分 2,725　来自 河北廊坊
这个不错啊，还可以用在vba语句里，谢谢分享
第3楼　kich 发表于 2007-04-14 07:15
中级用户　发帖 168　积分 397
If IsDate(Years & "/2/29") Then

看不大明白,每年不都是有2月29号嘛!!
第4楼　utem999 发表于 2007-04-14 07:20
初级用户　发帖 54　积分 135
智能化就好了
比喻年份手动输入
那样就想查哪年就输入年份就可以了
第5楼　wydos 发表于 2007-04-14 08:01
中级用户　发帖 117　积分 304
希望楼主多发点实用vbs
第6楼　kich 发表于 2007-04-14 08:46
中级用户　发帖 168　积分 397
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
[ 联系联盟系统管理团队 - 中国DOS联盟 - 标准版 ]
Sponsored by ifanr Inc | © 2001–2023