用VBA判断是否闰年

luikias · 发表于 2019-10-18 09:21

2019年 10月 15日开始接触 EXCEL HOME 的课程笨办法学VBA ，刚刚讲到这17课，试着自己来写一下
Sub 判断闰年()
Dim 年 As Long
年 = InputBox("请输入你要判断闰年的年份", "提示")
MsgBox (年 Mod 4 = 0 And 100 <> 0) Or (年 Mod 100 = 0)

End Sub

fxl447098457 · 发表于 2019-10-18 09:29

luikias 发表于 2019-10-18 09:21
2019年 10月 15日开始接触 EXCEL HOME 的课程笨办法学VBA ，刚刚讲到这17课，试着自己来写一下
Sub 判 ...

判断2月份是29天也可以。excel里面有技巧。楼上写了。

zopey · 发表于 2019-10-18 10:16

1900年2月29日怎么说

fxl447098457 · 发表于 2019-10-18 10:49

zopey 发表于 2019-10-18 10:16
1900年2月29日怎么说

这个excel里面一直就是个bug,其他的都OK的。

luikias · 发表于 2019-10-18 12:56

fxl447098457 发表于 2019-10-18 09:29
判断2月份是29天也可以。excel里面有技巧。楼上写了。

嗯，方法多种多样，目前解决接触，学习中

yaozong · 发表于 2019-10-18 14:35

Sub 判断是否闰年()
  Dim x&, y&
  x = Year(Date)
  y = InputBox("请输入4位数年号", "判断是否闰年？", x)
  If IsDate(y & "-2-29") Then
MsgBox y & "是闰年"
  Else
MsgBox y & "不是闰年"
  End If
End Sub

luikias · 发表于 2019-10-19 08:58

luikias 发表于 2019-10-18 09:21
2019年 10月 15日开始接触 EXCEL HOME 的课程笨办法学VBA ，刚刚讲到这17课，试着自己来写一下
Sub 判 ...

确实，别人做的1900年显示不是闰年，而我的却显示闰年？不知道哪个环节出了问题

fxl447098457 · 发表于 2019-10-19 09:08

luikias 发表于 2019-10-19 08:58
确实，别人做的1900年显示不是闰年，而我的却显示闰年？不知道哪个环节出了问题

最后是400年一闰,所以是400而不是100.

zopey · 发表于 2019-10-19 09:23

公历有2种，格里高利历400年97闰，儒略历400年100闰。

擎、天 · 发表于 2019-10-19 09:45

1900 没什么问题啊

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

[求助] 用VBA判断是否闰年