WITH Calendar()
* 农历转公历
lnY = 2021 && 农历年
lnM = 8 && 农历月
lnD = 15 && 农历日
lnL = .F. && 闰月
? .NL2GL(lnY,lnM,lnD,lnL)
lnY = 2021
lnM = 9
lnD = 21
lnL = .F.
* 公历转农历
IF .GL2NL(@lnY,@lnM,@lnD,@lnL)
? "农历",lnY,"年",IIF(lnL,"闰",""),lnM,"月",lnD,"日"
ENDIF
ENDWITH
|
