中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net　论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

游客注册登录会员网志搜索命令提示符 Bash 上传统计

中国DOS联盟论坛
现在时间是 2026-08-04 04:13

欢迎新会员 hello8888666　 RSS
共 48,038 主题排行 / 350,123 发帖 / 今日 0 篇 / 48,251 会员排行不转换/ 简体中文/ 繁體中文（台灣）/ 繁體中文（香港）

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » 判断是否润年(偏)→VBS 查看 1,490　回复 5

楼主 判断是否润年(偏)→VBS 发表于 2007-04-14 04:45　·　中国河北保定联通

银牌会员

★★★

积分 1,513
发帖 554
注册 2005-12-30 00:50
20年会员
UID 48180
性别男

状态离线

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

'思想：判断这年是不是用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	+5	2007-04-14 04:57
utem999	+2	2007-04-14 07:24

好多菩提树，好多明镜台。本来好多物，好多的尘埃。

第 2 楼发表于 2007-04-14 04:56　·　中国河北廊坊三河市移动

金牌会员

★★★★

积分 2,725
发帖 1,160
注册 2006-09-23 12:00
19年会员
UID 63486
来自河北廊坊

状态离线

这个不错啊，还可以用在vba语句里，谢谢分享

三人行，必有吾师焉。学然后知不足，教然后知困，然后能自强也。

第 3 楼发表于 2007-04-14 07:15　·　中国安徽马鞍山电信

中级用户

★★

积分 397
发帖 168
注册 2006-10-08 10:07
19年会员
UID 64934

状态离线

If IsDate(Years & "/2/29") Then

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

第 4 楼发表于 2007-04-14 07:20　·　中国湖南株洲电信

初级用户

★★

积分 135
发帖 54
注册 2006-09-10 03:07
19年会员
UID 62265

状态离线

智能化就好了
比喻年份手动输入
那样就想查哪年就输入年份就可以了

992912

第 5 楼发表于 2007-04-14 08:01　·　中国贵州贵阳电信

中级用户

★★

积分 304
发帖 117
注册 2006-04-04 18:43
20年会员
UID 53325
性别男

状态离线

希望楼主多发点实用vbs

第 6 楼发表于 2007-04-14 08:46　·　中国安徽马鞍山电信

中级用户

★★

积分 397
发帖 168
注册 2006-10-08 10:07
19年会员
UID 64934

状态离线

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

可打印版本 | 订阅主题 | 收藏主题

论坛跳转: