中国DOS联盟

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

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

作者: 标题: 判断是否润年(偏)→VBS 上一主题 | 下一主题 baomaboy 银牌会员 积分 1513 发帖 554 注册 2005-12-30 状态 离线 『楼 主』:  判断是否润年(偏)→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 ]    此帖被 +7 点积分      点击查看详情    评分人：【 ccwan 】 分数： +5  时间：2007-4-14 04:57 评分人：【 utem999 】 分数： +2  时间：2007-4-14 07:24 好多菩提树，好多明镜台。本来好多物，好多的尘埃。 2007-4-14 04:45 ccwan 金牌会员 积分 2725 发帖 1160 注册 2006-9-23 来自 河北廊坊 状态 离线 『第 2 楼』:   这个不错啊，还可以用在vba语句里，谢谢分享 三人行，必有吾师焉。   学然后知不足，教然后知困，然后能自强也。 2007-4-14 04:56 kich 中级用户 积分 397 发帖 168 注册 2006-10-8 状态 离线 『第 3 楼』:   If IsDate(Years & "/2/29") Then 看不大明白,每年不都是有2月29号嘛!! 2007-4-14 07:15 utem999 初级用户 积分 135 发帖 54 注册 2006-9-10 状态 离线 『第 4 楼』:   智能化就好了 比喻年份手动输入 那样就想查哪年就输入年份就可以了 [qq]992912[\qq] 2007-4-14 07:20 wydos 中级用户 积分 304 发帖 117 注册 2006-4-4 状态 离线 『第 5 楼』:   希望楼主多发点实用vbs 2007-4-14 08:01        (327337973)       kich 中级用户 积分 397 发帖 168 注册 2006-10-8 状态 离线 『第 6 楼』:     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 2007-4-14 08:46

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

论坛跳转: 站务区  > 站务公告 & 版主讨论  > 意见反馈 & 网友交流 DOS讨论区  > DOS学习入门 & 精彩文章 （教学室）  > DOS疑难解答 & 问题讨论 （解答室）  > DOS启动盘 & LOGO技术 （启动盘室）  > DOS批处理 & 脚本技术（批处理室）  > DOS媒体世界 & 网络技术 （多媒体室）  > DOS汉化世界 & 中文系统 （中文化室）  > DOS开发编程 & 发展交流 （开发室）  > DOS软件下载 & 游戏分享 （下载室） 其它讨论区  > GRUB4DOS、SYSLINUX及其它启动管理软件讨论专区  > 其它操作系统综合讨论区  > WinPE、PowerShell及其它命令行系统专区  > 贴图灌水、文学娱乐专区 服务区  > 网络日志（Blog）  > 论坛回收站      > 链接失效，待修正