编程高手求帮忙excel VBA 闰年判别 有图

Question

怎么补完

Answer 1

我在学校没学过Excel，所以如果是考试，我的答案一定是不标准的，但是结果是对的。

以下是补充代码：

If n = "" Then MsgBox "请输入正确年份！": Exit Sub
Dim rn(1900 To 2100) As String, i As Long
For i = 1900 To 2100
    If i Mod 4 = 0 Then
        rn(i) = "闰年。"
    Else
        rn(i) = "正常年份。"
    End If
Next

Answer 2

对图上代码进行如下修改和补充：
Private Sub Togglebutton6_Click()
rn
End Sub
Function rn()
Dim n As Variant
n = InputBox("输入年份:")
If (n Mod 4 = 0 Or n Mod 400 = 0) And n Mod 100 <> 0 Then
rn = "闰年"
Else
rn = "平年"
End If
MsgBox (n & "年是" & rn)
End Function本回答被网友采纳

Answer 3

N = InputBox("请输入年份：")
D = Day(DateSerial(N, 3, 1) - 1)
If D = 29 Then X = N & "年是润年"
X = N & "年不是润年"
MsgBox X

代码这样修改就可以了……

或者你再增加一个 过程……
Function rn(n)
If Day(DateSerial(n, 3, 1) - 1) = 29 Then
rn = "润年"
Else
rn = "非润年"
End If
End Function
这样你原来的代码就不需要修改了，而是在你的代码中调用了这个判断过程……本回答被提问者采纳