Function JePrestupna(g As Integer) As Boolean
    If (g Mod 400 = 0) Or ((g Mod 4 = 0) And (g Mod 100 <> 0)) Then
        JePrestupna = True
    Else
        JePrestupna = False
    End If
End Function

Sub testPrestupna()
    Dim godina As Integer
    Dim odgovor As String
    godina = InputBox("Unesite godinu")
    If JePrestupna(godina) Then
        odgovor = "jeste"
    Else
        odgovor = "nije"
    End If
    MsgBox "Uneta godina " & odgovor & " prestupna"
End Sub

Function BrDanaUMesecu(m As Integer, g As Integer) As Integer
    Select Case m
        Case 1, 3, 5, 7, 8, 10, 12
            BrDanaUMesecu = 31
        Case 4, 6, 9, 11
            BrDanaUMesecu = 30
        Case 2
            If JePrestupna(g) Then
                BrDanaUMesecu = 29
            Else
                BrDanaUMesecu = 28
            End If
        Case Else
             BrDanaUMesecu = 0
            'MsgBox "Nepostojeci mesec " & m
    End Select
End Function

Sub testBrDanaUMesecu()
    Dim mesec As Integer
    Dim godina As Integer
    
    mesec = InputBox("Unesite mesec (1-12)")
    godina = InputBox("Unesite godinu")
    MsgBox "Broj dana u zadatom mesecu je " & BrDanaUMesecu(mesec, godina)
End Sub