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)

>>阅读原文<<