中国DOS联盟

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

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

游客: 注册 | 登录 | 命令行 | 搜索 | 上传 | 帮助 »

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » 判断是否润年(偏)→VBS

baomaboy
银牌会员

积分 1513
发帖 554
注册 2005-12-30
状态离线

『楼主』: 判断是否润年(偏)→VBS 使用 LLM 解释/回答一下

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

'思想：判断这年是不是用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 ]

此帖被 +7 点积分

点击查看详情

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

2007-4-14 04:45

查看资料发送邮件发短消息网志

编辑帖子回复引用回复

ccwan
金牌会员

积分 2725
发帖 1160
注册 2006-9-23
来自河北廊坊
状态离线

『第 2 楼』: 使用 LLM 解释/回答一下

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

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

2007-4-14 04:56

查看资料发送邮件发短消息网志

编辑帖子回复引用回复

kich
中级用户

积分 397
发帖 168
注册 2006-10-8
状态离线

『第 3 楼』: 使用 LLM 解释/回答一下

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

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

2007-4-14 07:15

查看资料发送邮件发短消息网志

编辑帖子回复引用回复

utem999
初级用户

积分 135
发帖 54
注册 2006-9-10
状态离线

『第 4 楼』: 使用 LLM 解释/回答一下

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

992912

2007-4-14 07:20

查看资料发送邮件发短消息网志

编辑帖子回复引用回复

wydos
中级用户

积分 304
发帖 117
注册 2006-4-4
状态离线

『第 5 楼』: 使用 LLM 解释/回答一下

希望楼主多发点实用vbs

2007-4-14 08:01

查看资料发送邮件发短消息网志 OICQ

OICQ

(327337973)

编辑帖子回复引用回复

kich
中级用户

积分 397
发帖 168
注册 2006-10-8
状态离线

『第 6 楼』: 使用 LLM 解释/回答一下

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

2007-4-14 08:46

查看资料发送邮件发短消息网志

编辑帖子回复引用回复

请注意：您目前尚未注册或登录，请您注册或登录以使用论坛的各项功能，例如发表和回复帖子等。

可打印版本 | 推荐给朋友 | 订阅主题 | 收藏主题

论坛跳转: