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