8
|
|
8 |
|
|
The LA Fox Developer Newsletter
December 1997
Leap Year Code Using
mm/dd Or dd/mm
by Pradip Acharya.
The Leap Year code from Mike McCarthy in a 1996 newsletter
failed on first use in Canada because the date format in use was
not taken into account. An enhanced and more robust version is
as follows:
FUNCTION lsLeapYear
para m.DateOrYear
Pradip Acharya 102413,125@compuserve.com
Enhanced version of Leap Year Code by Mike McCarthy
Input:
Any date or numeric year (2 or 4-digit, 4-digit preferred)
Example: ? lsLeapYear((I I/29/96})
Returns:
True or false
Note:
1) Works with all date formats.
2)
If no argument is passed as input, assumes current year.
3)
When incoming argument is a date, it must be conform to
the currently active date format.
PRIV m.p1, m.temp
if EMPTY( m.DateOrYear)
m.pl
=
DATE() && assume current year
else
m.pl
=
m.DateOrYear
endif
If TYPE(”M.Pl”)
==
“D” && set the year
m.pI
=
YEAR( m.pl)
endif
m.pl
=
ALLTRIM( STR( m.pI))
m.temp
=
UPPER( ALLTRIM( SET(”DATE”)))
DO CASE
case
m.temp $ "YMD,ANSI,JAPAN && yy.mm.dd
m.temp
=
m.pl
+
“/02/29”
case
m.temp
$
“MDY,USA,AMERICAN” && mm.dd.yy
m.temp
=
“02/29/”
+
m.pl
other
&& dd.mm.yy
m.temp
=
“29/02/”
+
m.pl
ENDCASE
RETURN !EMPTY( CTOD( m.temp))
can be (1) any date
**_
(2) any numeric year
if
type(’dateyear’)
=
“D” return !empty(CTOD(”02/29/
“+ALLTRIM(STR(YEAR(dateyear))))) else return
!empty(CTOD(”02/29/”+ALLTRIM(STR(dateyear)))) endif
YALS: Yet Another Leap
Year’s Solution
by M.Nadig
RE: Handling ‘February 29th’ with FoxPro
After reading Leap Year Code Using mm/dd Or dd/mm by
Pradip Acharya, I started a concerted effort to create compact-
unreadable code. I came up with the following solution for
determining leap years:
FUNCTION IsLeap( dDate)
RETURN MONTH( GOMONTH( m.dDate,;
-
MONTH( m.dDate)+2)
-
DAY( m.dDate)+29)
=
2
Out and About
(Con’t from page3)
the years and we now have to start compensating for those
rising costs by doing a little belt-tightening and stepping back to
see how we can make the group run a little more efficiently.
We also have other things “on the burners”, so to speak. And
we’ll let you know about them as they happen.
But I’ll tell you what. at $48, it’s one heck of a deal!
On to another subject. I’d like to welcome aboard the Newslet-
ter Article Exchange, that was started a couple of years ago,
Russell Campbell from the Atlanta FoxPro Users Group. He
contributed one of the articles in this issue, “Greenbar Revis-
ited”. So it got me to thinking just how far can you go to
simplify code? I ran across an interesting “point-counterpoint”
on the subject of how to handle Leap Year problems in code.
Take a look at the adjacent column and give it a try. And let me
know if it works. <g>
Thanks to Bill Anderson, here’s three more FoxPro-related
Internet places you need to visit:
http://www.microsoft.com/msdn/news/imho/111297.htm
http://www.
microsoft.com/vfoxpro/background/vfpbgrnd.htm
http://www.news.com/News/Item/
O%2C4%2CI6307%2C00. html?sas. mall
I usually reserve this part of the “Out and About” column for the
wiecu, wacky, and unusual things that go on around us everyday
that we might otherwise miss. But I’d like to depart from
that.. .at least for this issue <g>.
.
.to wish everyone a happy
holiday season. It’s been a real pleasure to have been around
all of you and to have been associated with this group. So have
a safe and happy holiday. And it’s never to early to start looking
forward to the good things that might happen in the new year,
like Loretta Sanchez and Bob Dornan making up or the end of
the Clinton “love-capades” investigation. (Sorry, I just couldn’t
help it
)
Soooooooo. Happy Holidays !!!
Page 8
|
|
|
8 |
|