delphi10.3农历日历

 

1]DateCn.pas，只显示某天为 农历 几月几日,不可视控件

DateCn.pas单文件下载

链接：https://pan.baidu.com/s/1D_oj9I1BOVNbjfKzWQQIUQ
提取码：lz2v

procedure TForm1.FormCreate(Sender: TObject);
begin
showmessage( DateToStr(now)+'是'+   DateCn.CnMonthOfDate(now) +  DateCn.CnDayOfDate(now) );
//showmessage(DateCn.CnDayOfDate( StrToDate( '2024-01-24' )));
end;

 2]可视化的农历控件

https://www.cnpack.org/showdetail.php?id=940&lang=zh-cn

自己百度网盘也保存一份

链接：https://pan.baidu.com/s/1tmMXqTLT5S5LnTY47rilqw
提取码：8jso

C:\Users\PC\Downloads\农历控件Delphi10.3\cnvcl_20240210\cnvcl\Package\Delphi103R\dclCnPack_D103R.dpk

 

C:\Users\PC\Downloads\农历控件Delphi10.3\cnvcl_20240210\cnvcl\Source\Common
C:\Users\PC\Downloads\农历控件Delphi10.3\cnvcl_20240210\cnvcl\Source\Graphics

 官方例子

C:\Users\PC\Downloads\cnvcl_20240210\cnvcl\Example\VCL\Calendar\TestCal.dpr