用VBA判断是否闰年

laoau128

用VBA判断是否闰年

lv_king_2017

注：按钮代码拷贝Test代码段
Private Sub Test()
    If IsEmpty(Sheet1.Range("B1")) Then
        MsgBox "请在单元格B1输入年份!"
        Sheet1.Range("B1").Activate
    Else
        If IsLeapYear(Sheet1.Range("B1")) = True Then
            MsgBox Sheet1.Range("B1") & " 是闰年"
        Else
            MsgBox Sheet1.Range("B1") & " 不是闰年"
        End If
    End If
End Sub

Private Function IsLeapYear(Rng As Range) As Boolean
    If Rng Then
        If Rng Mod 400 = 0 Or (Rng Mod 4 = 0 And Rng Mod 100 <> 0) Then
            IsLeapYear = True
        Else
            IsLeapYear = False
        End If
    End If
End Function

蓝桥玄霜

只需要判断一年有366天即可。

laoau128

蓝桥玄霜 发表于 2017-4-27 10:25
只需要判断一年有366天即可。

不懂你在说什么

未忘初心

1. Private Sub Command1_Click()
   
2. a = Val(InputBox(("请输入年份")))
   
3. If a Mod 400 = 0 Then
   
4. Print a & "年是闰年！"
   
5. ElseIf a Mod 4 = 0 And a Mod 100 <> 0 Then
   
6. Print a & "年是闰年！"
   
7. Else
   
8. Print a & "年不是闰年！"
   
9. End If
   
10. End Sub

复制代码

philijian

Function isRunNian(ByVal myYear%) As Boolean
Dim bDate As Date, eDate As Date
bDate = DateSerial(myYear, 1, 1)
eDate = DateSerial(myYear, 12, 31)
If DateDiff("d", bDate, eDate) = 365 Then
    isRunNian = True
Else
    isRunNian = False
End If
End Function

小花鹿

laoau128 发表于 2017-4-27 14:04
不懂你在说什么

版主是让你判断这一年有多少天，366就是闰年，这都不懂，还是别玩VBA了，智商堪忧

laoau128

小花鹿 发表于 2017-4-27 14:36
版主是让你判断这一年有多少天，366就是闰年，这都不懂，还是别玩VBA了，智商堪忧

如何判断真不懂，怎么办

Moneky

if 年份最后两位=“00” then 年份=去掉最后两位00的年份数
if 年份能被4整除 then 闰年 else 平年

Excel__Boy

Function y(n)
y = Day(DateSerial(n, 3, 0)) = 29
End Function