VB编程：DateSerial通过闰月判断闰年-47

Private Function MonthToLeapYear(ByVal Yea As Integer) As Boolean

    MonthToLeapYear = Day(DateSerial(Yea, 2, 29)) = 29

End Function

Private Sub Command1_Click()

    If Len(Text1.Text)