delphi 带有24节气的日历、农历、节日

//delphi 带有24节气的日历 unit hxCalendar; interface uses Classes, Controls, Messages, Windows, Forms, Graphics, StdCtrls, Grids, SysUtils,DateUtils; type TDayOfWeek = 0..6; TDroppedCell = procedure(Sender: TObject; ACol, ARow: LongInt; var Value: string) of object; TCellDragOver = procedure(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean) of object; TCalendarStrings = array[0..6, 0..6] of TStringList; THzDate = record //农历日期 Year: integer; Month: integer; Day: integer; isLeap: Boolean; //闰月 end; TGzDate = record //干支日期 Year: integer; Month: integer; Day: integer; end; ThxCalendar = class(TCustomGrid) private FDate: TDate; FViewDate: TDate; //FCalColors: TLssCalColors; FYear: word; FMonth: word; FDay: word; FCalStrings: TCalendarStrings; FOnDroppedCell: TDroppedCell; FOnCellDragOver: TCellDragOver; FMonthOffset: Integer; FOnChange: TNotifyEvent; FReadOnly: Boolean; FStartOfWeek: TDayOfWeek; FUpdating: Boolean; FUseCurrentDate: Boolean; function GetCellText(ACol, ARow: Integer): string; function GetDateElement(Index: Integer): Integer; procedure SetCalendarDate(Value: TDate); procedure SetDateElement(Index: Integer; Value: Integer); procedure SetStartOfWeek(Value: TDayOfWeek); procedure SetUseCurrentDate(Value: Boolean); function StoreCalendarDate: Boolean; procedure SetCellString(ACol, ARow, ADay: Integer; Value: string); virtual; protected { Protected declarations } procedure AcceptDropped(Sender, Source: TObject; X, Y: integer); procedure CellDragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean); procedure Change; dynamic; procedure ChangeMonth(Delta: Integer); procedure Click; override; function DaysPerMonth(AYear, AMonth: Integer): Integer; virtual; function DaysThisMonth: Integer; virtual; procedure DrawCell(ACol, ARow: Longint; ARect: TRect; AState: TGridDrawState); override; function IsLeapYear(AYear: Integer): Boolean; virtual; function SelectCell(ACol, ARow: Longint): Boolean; override; procedure WMSize(var Message: TWMSize); message WM_SIZE; public constructor Create(AOwner: TComponent); override; //返回农历 y年的总天数 function DaysOfLunarYear(y: integer): integer; //返回农历 y年闰月的天数 function daysofleapMonth(y: integer): integer; //返回农历 y年闰哪个月 1-12 , 没闰返回 0 function leapMonth(y: integer): integer; //返回农历 y年m月的总天数 function Daysofmonth(y, m: integer): integer; //算出农历, 传入公历日期, 返回农历日期 function ToLunar(TheDate: TDate): THzDate; //传入 offset 返回干支, 0=甲子 function cyclical(num: integer): string; //算出公历, 传入农历日期控件, 返回公历 function ToGreg(objDate: THzDate): TDate; //检查农历日期是否合法 function ChkHzDate(objDate: THzDate): Boolean; //某年的第n个节气为几日(从0小寒起算) function sTerm(y, n: integer): TDateTime; //求年柱，月柱，日柱(年，月为农历数字，TheDate为当天的公历日期) function GetGZ(y, m: integer; TheDate: TDate): TGzDate; //取汉字日期 function FormatLunarDay(day:integer): string; //汉字月份 function FormatLunarMonth(month:integer;isLeap:boolean): string; //汉字年份 function FormatLunarYear(year:integer): string; // 取得指定日期的节气 function GetJQ(TheDate: TDate): string; // 取得新历节日 function GetsFtv(TheDate: TDate): string; // 取得农历节日 function GetlFtv(TheDate: ThzDate): string; property CalendarDate: TDate read FDate write SetCalendarDate stored StoreCalendarDate; procedure MouseToCell(X, Y: Integer; var ACol, ARow: Longint); property CellText[ACol, ARow: Integer]: string read GetCellText; procedure NextMonth; procedure NextYear; procedure PrevMonth; procedure PrevYear; procedure UpdateCalendar; virtual; published property Align; property Anchors; property BorderStyle; property Color; property Constraints; property Ctl3D; property Day: Integer index 3 read GetDateElement write SetDateElement stored False; property DragCursor; property DragKind; property DragMode; property Enabled; property Font; property GridLineWidth; property Month: Integer index 2 read GetDateElement write SetDateElement stored False; property ParentColor; property ParentFont; property ParentShowHint; property PopupMenu; property ReadOnly: Boolean read FReadOnly write FReadOnly default False; property ShowHint; property StartOfWeek: TDayOfWeek read FStartOfWeek write SetStartOfWeek; property TabOrder; property TabStop; property UseCurrentDate: Boolean read FUseCurrentDate write SetUseCurrentDate default True; property Visible; property Year: Integer index 1 read GetDateElement write SetDateElement stored False; property OnClick; property OnChange: TNotifyEvent read FOnChange write FOnChange; property OnDblClick; property OnDragDrop; property OnDragOver; property OnEndDock; property OnEndDrag; property OnEnter; property OnExit; property OnKeyDown; property OnKeyPress; property OnKeyUp; property OnStartDock; property OnStartDrag; property OnMouseDown; property OnMouseMove; property OnMouseUp; end; const lunarInfo: array[0..200] of WORD =( $4bd8,$4ae0,$a570,$54d5,$d260,$d950,$5554,$56af,$9ad0,$55d2, $4ae0,$a5b6,$a4d0,$d250,$d295,$b54f,$d6a0,$ada2,$95b0,$4977, $497f,$a4b0,$b4b5,$6a50,$6d40,$ab54,$2b6f,$9570,$52f2,$4970, $6566,$d4a0,$ea50,$6a95,$5adf,$2b60,$86e3,$92ef,$c8d7,$c95f, $d4a0,$d8a6,$b55f,$56a0,$a5b4,$25df,$92d0,$d2b2,$a950,$b557, $6ca0,$b550,$5355,$4daf,$a5b0,$4573,$52bf,$a9a8,$e950,$6aa0, $aea6,$ab50,$4b60,$aae4,$a570,$5260,$f263,$d950,$5b57,$56a0, $96d0,$4dd5,$4ad0,$a4d0,$d4d4,$d250,$d558,$b540,$b6a0,$95a6, $95bf,$49b0,$a974,$a4b0,$b27a,$6a50,$6d40,$af46,$ab60,$9570, $4af5,$4970,$64b0,$74a3,$ea50,$6b58,$5ac0,$ab60,$96d5,$92e0, //1999 $c960,$d954,$d4a0,$da50,$7552,$56a0,$abb7,$25d0,$92d0,$cab5, $a950,$b4a0,$baa4,$ad50,$55d9,$4ba0,$a5b0,$5176,$52bf,$a930, $7954,$6aa0,$ad50,$5b52,$4b60,$a6e6,$a4e0,$d260,$ea65,$d530, $5aa0,$76a3,$96d0,$4afb,$4ad0,$a4d0,$d0b6,$d25f,$d520,$dd45, $b5a0,$56d0,$55b2,$49b0,$a577,$a4b0,$aa50,$b255,$6d2f,$ada0, $4b63,$937f,$49f8,$4970,$64b0,$68a6,$ea5f,$6b20,$a6c4,$aaef, $92e0,$d2e3,$c960,$d557,$d4a0,$da50,$5d55,$56a0,$a6d0,$55d4, $52d0,$a9b8,$a950,$b4a0,$b6a6,$ad50,$55a0,$aba4,$a5b0,$52b0, $b273,$6930,$7337,$6aa0,$ad50,$4b55,$4b6f,$a570,$54e4,$d260, $e968,$d520,$daa0,$6aa6,$56df,$4ae0,$a9d4,$a4d0,$d150,$f252, $d520); Gan: array[0..9] of string[2] = ('甲','乙','丙','丁','戊','己','庚','辛','壬','癸'); Zhi: array[0..11] of string[2] = ('子','丑','寅','卯','辰','巳','午','未','申','酉','戌','亥'); Animals: Array[0..11] of string[2] = ('鼠','牛','虎','兔','龙','蛇','马','羊','猴','鸡','狗','猪'); solarTerm: Array[0..23] of string[4] = ('小寒','大寒','立春','雨水','惊蛰','春分','清明','谷雨' ,'立夏','小满','芒种','夏至','小暑','大暑','立秋','处暑' ,'白露','秋分','寒露','霜降','立冬','小雪','大雪','冬至'); sTermInfo: Array[0..23] of integer = (0,21208,42467,63836,85337,107014,128867,150921 ,173149,195551,218072,240693,263343,285989,308563,331033 ,353350,375494,397447,419210,440795,462224,483532,504758); nStr1: array[0..10] of string[2] = ('日','一','二','三','四','五','六','七','八','九','十'); nStr2: Array[0..3] of string[2] = ('初','十','廿','卅'); sFtv : Array[0..22] of string =('0101*元旦','0214 情人节','0308 妇女节' ,'0312 植树节','0315 消费者权益日','0401 愚人节','0501 劳动节','0504 青年节' ,'0512 护士节','0601 儿童节','0701 建党节 香港回归纪念' ,'0801 建军节','0808 父亲节','0909 毛泽东逝世纪念','0910 教师节' ,'0928 孔子诞辰','1001*国庆节','1006 老人节','1024 联合国日','1112 孙中山诞辰纪念' ,'1220 澳门回归纪�