UtterAccess.com
X   Site Message
(Message will auto close in 2 seconds)

Welcome to UtterAccess! Please ( Login   or   Register )

Custom Search
 
   Reply to this topicStart new topic
> Is Leap Year?    
 
   
Candace Tripp
post May 31 2002, 08:19 AM
Post#1


UA Admin & Utter Angel
Posts: 3,039
Joined: 30-January 00
From: Virginia, USA


Function IsLeapYear(intYear As Integer) As Boolean
' Comments : determine if the year is a leap year using Access functions
' Parameters: intYear - integer year
' Returns : True - year is a leap year, False otherwise
'
IsLeapYear = Month(DateSerial(intYear, 2, 29)) = 2

End Function
Go to the top of the page
 


Custom Search
RSSSearch   Top   Lo-Fi    13th December 2017 - 09:44 AM