中国农历算法(delphi)[3]

  if iscnleap(cndate) then strleap:='(闰)' else   strleap := '';
  result := '农历' + convertymd(cnyear,1) + '年' + convertymd(cnmonth,2) + '月'
                + strleap + convertymd(cnday,3) ;
end;

end.

//////////////////////////  应用 /////////////////////////////
uses cnyear;

procedure tform1.button1click(sender: tobject);
begin
  edit1.text:=gregdatetocnstr(datetimepicker1.date);