تحديد نهاية الشهر

السلام عليكم...

ضع الدوال التالية في القسم العام للكود (إذا أردت استعمالها في أكثر من Form فضعها في Module و غير الـ Private إلى Public):

Private Function IsLeapYear(ByVal AYear As Integer) As Boolean
    If (AYear Mod 100) = 0 Then
        If (AYear Mod 400) = 0 Then
            IsLeapYear = True
        Else
            IsLeapYear = False
        End If
    ElseIf (AYear Mod 4) = 0 Then
        IsLeapYear = True
    Else
        IsLeapYear = False
    End If
End Function

Private Function DaysInAMonth(ByVal AMonth As Integer, ByVal AYear As Integer) As Integer
    Select Case AMonth
        Case 1, 3, 5, 7, 8, 10, 12
            DaysInMonth = 31
        Case 4, 6, 9, 11
            DaysInMonth = 30
        Case 2
            If IsLeapYear(AYear) Then
                DaysInMonth = 29
            Else
                DaysInMonth = 28
            End If
        Case Else
            DaysInMonth = 0
    End Select
End Function

Private Function DaysInDateMonth(ByVal ADate As Date) As Integer
    Select Case Month(ADate)
        Case 1, 3, 5, 7, 8, 10, 12
            DaysInDateMonth = 31
        Case 4, 6, 9, 11
            DaysInDateMonth = 30
        Case 2
            If IsLeapYear(Year(ADate)) Then
                DaysInDateMonth = 29
            Else
                DaysInDateMonth = 28
            End If
        Case Else
            DaysInDateMonth = 0
    End Select
End Function

حيث الدالة الأولى IsLeapYear تستعمل لمعرفة ما إذا كانت السنة كبيسة (True) أم لا (بسيطة False) و ذلك بتمرير رقم السنة إليها.

الدالة الثانية DaysInAMonth تعطي عدد أيام الشهر بمعلومية رقم الشهر و رقم السنة.

الدالة الثالثة DaysInDateMonth تعطي عدد أيام الشهر بمعلومية تاريخ ما (يوم/شهر/سنة).

نرجو الاستفادة و السلام.

مششششششششششششششششششششششششششششكور اخي العزيز وماقصرت