Solution :
Public Function Is a Leap_Year(Year As_Integer) As Integer
'Dim Tor_F for local variable declaring if value is t/f.
Dim TorF As For Boolean
'Pre conditions: Year > 1581 and Year < 3000
If Year > 1581 And Year <> 1700 Or 1800 Or 1900 Then
IsLeapYear = Year / 4
Else
IsLeapYear = False
TorF = False
End If
End Function