文件名称：Delphi 获取农历日期的一个实例.rar
文件大小：66KB
文件格式：RAR
更新时间：2022-07-30 11:58:11
Delphi源码-其它类别
Delphi 获取农历单元文件，Delphi7.0 获取基本农历单元文件生成日历的用法演示，可适用于Delphi开发编写万年历，程序获还包括：农历计算、24节气、星期计算、属相等的运算。操作时，单击按钮即可实现对日历的调用显示。核心代码部分： begin Present:=DateTimePicker1.Date; lbl2.Caption := Copy(CnSkyStemOfYear(Present), 1, 2); Label1 .Caption := Copy(CnanimalOfYear(Present),2,2) '年'; Label2 .Caption := CnMonthOfDate(Present); Label3 .Caption := CnDayOfDate(Present); Label4 .Caption := '节气:' GetLunarHolDay(Present) ' ; ' '中国节日:' CnDayOfDateJr(Present) ' ; ' '外国节日:' Holiday(Present,DayOf(Present)); end;
【文件预览】：
codesc.net
----获取基本农历单元文件()
--------DateCn.pas(37KB)
--------__history()
--------test.identcache(351B)
--------test.res(2KB)
--------test.dpr(222B)
--------DateCn.dcu(31KB)
--------DateWin.dcu(6KB)
--------test_Icon.ico(766B)
--------test.otares(96B)
--------datejpg.JPG(28KB)
--------test.dproj(7KB)
--------test.dproj.local(62B)
--------DateWin.pas(1KB)
--------test_Icon1.ico(766B)
--------DateWin.dfm(3KB)