Delphi 获取农历日期的一个实例.rar

Delphi 获取农历单元文件,Delphi7.0 获取基本农历单元文件生成日历的用法演示,可适用于Delphi开发编写万年历,程序获还包括:农历计算、24节气、星期计算、属相等的运算。操作时,单击按钮即可实现对日历的调用显示。核心代码部分: begin Present:=DateTimePicker1.Date; lbl2.Caption := Copy(CnSkyStemOfYear(Present), 1, 2); Label1 .Caption := Copy(CnanimalOfYear(Present),2,2) '年'; Label2 .Cap