2000 was a leap year. 1900 or 2100 are not (not divisible by 400). Fred
On Tue, Apr 12, 2011 at 3:36 PM, Rafael Copquin <[email protected]>wrote: > this function checks for the last day of the month > > FUNCTION LASTDAY > Lparameters tcMonth,tcYear > > Local nMonth,nLastDay,nYear > > nMonth = Val(tcMonth) > nYear = Val(tcYear) > > nLastDay = ICase(inlist(nMonth,1,3,5,7,8,10,12) ,31,; > InList(nMonth,4,6,9,11) ,30,; > nMonth = 2,Iif(Mod(nYear,4)=0,29,28)) > > Return nLastDay > > Incidentally, to check for a leap year, use the mod function as above > > if mod(nYear,4) = 0 > > ** it is a leap year, therefore february has 29 days > > else > > ** it is not a leap year (only 28 days for february) > > endif > > > Rafael Copquin > > > El 12/04/2011 18:48, MB Software Solutions, LLC escribió: > > How do you test to see if it's a leap year? The first thing that comes > > to my mind is checking to see if DATE(nCurrentYearVariable,2,29) throws > > an error or not. e.g. > > > > dDate = DATE(nCurrentYearVariable,2,29) > > lLeapYear = not empty(dDate) > > > > Better ideas? > > > [excessive quoting removed by server] _______________________________________________ Post Messages to: [email protected] Subscription Maintenance: http://leafe.com/mailman/listinfo/profox OT-free version of this list: http://leafe.com/mailman/listinfo/profoxtech Searchable Archive: http://leafe.com/archives/search/profox This message: http://leafe.com/archives/byMID/profox/[email protected] ** All postings, unless explicitly stated otherwise, are the opinions of the author, and do not constitute legal or medical advice. This statement is added to the messages for those lawyers who are too stupid to see the obvious.
