用Delphi处理公历到农历的转换bnhjk

用Delphi处理公历到农历的转换bnhjkprocedure FormatLunarYear(iYear:Word;var pBuffer:string); var szText1,szText2,