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