Leap Year Validation

'***************************************************************** '* Function Name : bIsLeapYear * '* Created By : Thomas A. Cassano * '* date : 00/00/97 * '* Purpose : * '* Arguments : * '* Returns : Boolean * '* Comments : None * '***************************************************************** Function bIsLeapYear(dDate as date) as Boolean bIsLeapYear = ((Year(dDate) Mod 4 = 0) _ And (Year(dDate) Mod 100 <> 0)) _ Or (Year(dDate) Mod 400 = 0) End Function


Comments

  • Another way to check for Leap Year

    Posted by Legacy on 12/10/1999 12:00am

    Originally posted by: Rick Rothstein

    First of all, you should only have to pass the year in quesiton into the function, not a specific date. If you only have a date, pass Year(TheDate) into this:

    Function bIsLeapYear(TheYear As Integer) As Boolean
    bIsLeapYear = (DateSerial(TheYear, 2, 29) <> _
    DateSerial(TheYear, 3, 1))
    End Function

    Reply
  • for Current Month Last Day...

    Posted by Legacy on 09/22/1999 12:00am

    Originally posted by: Yon-Jin, KYUNG

    ' Return Last Day of Current Year and Month
    Function fnc_Month_LastDay(intYearValue As Integer, intMonthValue As Integer)

    Select Case intMonthValue

    Case Is = 1, 3, 5, 7, 8, 10, 12
    fnc_Month_LastDay = 31

    Case Is = 4, 6, 9, 11
    fnc_Month_LastDay = 30

    Case Is = 2
    fnc_Month_LastDay = IIf(IsDate(CStr(intYearValue) & "/2/29"), 29, 28)

    End Select

    End Function

    Reply
Leave a Comment
  • Your email address will not be published. All fields are required.

Top White Papers and Webcasts

  • Live Event Date: August 19, 2014 @ 11:00 a.m. ET / 8:00 a.m. PT You deployed your app with the Bluemix PaaS and it's gaining some serious traction, so it's time to make some tweaks. Did you design your application in a way that it can scale in the cloud? Were you even thinking about the cloud when you built the app? If not, chances are your app is going to break. Check out this upcoming webcast to learn various techniques for designing applications that will scale successfully in Bluemix, for the …

  • 10 Rules that Make or Break Enterprise App Development Projects In today's app-driven world, application development is a top priority. Even so, 68% of enterprise application delivery projects fail. Designing and building applications that pay for themselves and adapt to future needs is incredibly difficult. Executing one successful project is lucky, but making it a repeatable process and strategic advantage? That's where the money is. With help from our most experienced project leads and software engineers, …

Most Popular Programming Stories

More for Developers

Latest Developer Headlines

RSS Feeds