Hello Gilles!
28 Dec 96 22:34, Gilles Beauregard wrote to Gerry Danen:
Thanks for the program. Some remarks however:
 GB> PARAMETER a
This wil give problems if there is a database open in area 1. Ok not in this 
programs, but very bad programming habit to use 1 letter variables in FoxPro.
 GB> * in a 2 digits field, so we will test if the date
 GB> * is far from 2000.
 GB> IF a - date() < 15000
In this case the range of dates is shifting around the current date, could be 
very disturbing. For users is is explainable if you say, 50 years arond the 
current date, so use GOMONTH(DATE(), 600) instead.
 GB> * If .T. return, we add 36525 days, 100 years to
 GB> * the date to have the next century date.
 GB> a = a + 36525
You heard about leap years? 100 centuries is not always 36525 days! Better is 
to use GOMONTH(a, 1200)
 GB> a = a - 36525
Same remark, but use GOMONTH(a, -1200)
Groetjes,
   Wim
Fido: 2:281/535.11  CompuServe: 100142,604  Internet: wdelange@pi.net
--- FMail 0.94
---------------