室内设计培训
平面设计培训
部落窝教育
网站首页 >> Excel教程 >> 文章内容

excel VBA判断闰年的代码和方法

[日期:2012-02-16]   来源:IT部落窝  作者:IT部落窝   阅读:1927[字体: ]
内容提要:文章介绍通过excel的VBA代码判断闰年的方法。

  我们在以前的文章介绍了使用excel内置的函数编写公式来判断年份属于闰年还是平年,本文再介绍使用excel的VBA代码来判断闰年的方法。

  在excel中,按下ALT+F11键,打开VBE编辑器,插入——模块,复制下面的VBA代码,然后单击“运行”命令运行即可实现VBA判断闰年。

Sub 判断闰年()
Dim Tmp
On Error GoTo skip
Tmp = CDate(InputBox("请输入一个年份", "年份", Year(Now)) & "-2-29")
MsgBox "是闰年!"
Exit Sub
skip:
MsgBox "不是闰年!"
End Sub

VBA判断闰年

  提供使用excel函数判断闰年的参考链接:http://www.ittribalwo.com/show.asp?id=1177

IT部落窝PS,CDR,213班 分享到: QQ空间 新浪微博 腾讯微博 人人网
photoshop教程
Photoshop教程
平面设计教程
Photoshop教程