[已解决]用VBA判断是否闰年

laoau138 · 发表于 2017-4-27 08:51

本帖最后由 laoau138 于 2017-4-27 14:12 编辑

用VBA判断是否闰年

最佳答案

月排行榜 / 总排行榜

大灰狼1976

2017-4-27 10:40

Sub aaa()
Dim n&, s$
n = [b1]
If n Mod 4 = 0 Then
s = "YES"
If n Mod 100 = 0 Then s = "NO"
If n Mod 400 = 0 Then s = "YES"
End If
MsgBox s
End Sub

复制代码

跳转到最佳答案楼层

大灰狼1976 · 发表于 2017-4-27 10:40

这个最佳答案由大灰狼1976 给出，感谢大灰狼1976 的回答。

单击隐藏图章

Sub aaa()
Dim n&, s$
n = [b1]
If n Mod 4 = 0 Then
s = "YES"
If n Mod 100 = 0 Then s = "NO"
If n Mod 400 = 0 Then s = "YES"
End If
MsgBox s
End Sub

复制代码

327718098 · 发表于 2017-4-27 11:12

本帖最后由 327718098 于 2017-4-27 11:22 编辑

直接判断一年是不是366天就好了啊，用普通公式就行了=DATEDIF(B1&"/1/1",(B1+1)&"/1/1","d");或者直接判断年份的2月是否为29天也可以=DAY(EOMONTH(b1&"-2",0))=29

		自动登录	找回密码
密码			注册

[已解决]用VBA判断是否闰年

评分

评分