set date brit
use long
go top
store recno() to re
kd= 1822903
elp = date() - ctod("01/01/1890")
kdd = kd +elp
?kdd
wait wind
store kdd to kddx
use long
go top
store date to mdate
store recno() to re
store cdow(mdate) to vx
do while .not. eof()
use long
go re
repl ahargana with kdd
repl day with vx
re= re+1
kdd = kdd +1
mdate= mdate+1
store year(date()) to x
x = x+1
loop
enddo