Allo!
 GB> PARAMETER a
 WdL> This wil give problems if there is a database open in 
 WdL> area 1. Ok not in this programs, but very bad 
 WdL> programming habit to use 1 letter variables in FoxPro.
 I'm a very amateur Foxpro programmer, so I don't know all
 the bolts and nuts.
 GB> * in a 2 digits field, so we will test if the date
 GB> * is far from 2000.
 GB> IF a - date() < 15000
 WdL> In this case the range of dates is shifting around the current date, 
 WdL> could be very disturbing. For users is is explainable 
 WdL> if you say, 50 years arond the current date, so use 
 WdL> 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
 WdL> You heard about leap years? 100 centuries is not 
 WdL> always 36525 days! Better is to use GOMONTH(a, 1200)
 It's a transitional program, to fix the current period date,
 the year 2000, so I hope FoxPro was a build in function by
 Year 2100.
 Appreciate
 Gilles
--- Maximus 3.01
---------------