你是怎么在VBA找到Leapyear的？

作为一个云计算领域的专家，我可以告诉你，在VBA中找到闰年的方法如下：

Function IsLeapYear(Year As Integer) As Boolean
    If Year Mod 4 = 0 Then
        If Year Mod 100 = 0 Then
            If Year Mod 400 = 0 Then
                IsLeapYear = True
            Else
                IsLeapYear = False
            End If
        Else
            IsLeapYear = True
        End If
    Else
        IsLeapYear = False
    End If
End Function

这个函数接受一个整数参数Year，表示要判断的年份。它首先检查年份是否能被4整除，如果不能，则返回False。如果能被4整除，则继续检查是否能被100整除。如果能被100整除，则再检查是否能被400整除。如果能被400整除，则返回True，表示这是一个闰年。否则，返回False。如果不能被100整除，则直接返回True，表示这是一个闰年。

这个函数可以在VBA中使用，以下是一个示例：

Sub TestIsLeapYear()
    Dim Year As Integer
    Year = 2020
    If IsLeapYear(Year) Then
        MsgBox Year & "是闰年"
    Else
        MsgBox Year & "不是闰年"
    End If
End Sub

这个示例将会输出“2020是闰年”。