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)

>>阅读原文<<