PARA CSSJ
Dime WeekName(8), MonthAdd(12), NongliData(100), TianGan(10), DiZhi(12), ShuXiang(12), DayName(31), MonName(13)
*Dime curTime, curYear, curMonth, curDay, curWeekday
*Dime GongliStr, WeekdayStr, NongliStr, NongliDayStr
*Dime i, m, n, k, isEnd, bit, TheDate
&&支持1921/02/08 - 2021/01/12 公历转农历。
set date to ansi
set cent on