设为首页收藏本站官方微博
开启辅助访问 切换到窄版

飘云阁

 找回密码
 加入我们

QQ登录

只需一步，快速开始

[x86]PYG官方Dll优雅破解补丁制作工具[x64]PYG官方DLL优雅破解补丁制作工具[x86]PYG官方Exe优雅破解补丁制作工具[x86/x64]Baymax Patch Tools飘云阁工具包(已更新第4季)
返回列表 发新帖
查看: 8071|回复: 8

一個超棒的農曆控件 for Delphi

[复制链接]
黑夜彩虹

该用户从未签到
发表于 2006-6-4 22:47:06 | 显示全部楼层 |阅读模式
一個超棒的農曆控件 for Delphi
ChnCalendar.pas
  1. unit ChnCalendar;

  3. interface

  5. uses
  6.   Windows, DateUtils, Messages, DateWin, Forms, SysUtils, DateCn, StdCtrls, Classes, Controls, CommCtrl, ComCtrls, Graphics;

  8. type
  9.   tagRGBTRIPLE = packed record
  10.     rgbtBlue: Byte;
  11.     rgbtGreen: Byte;
  12.     rgbtRed: Byte;
  13.   end;
  14.   TRGBTriple = tagRGBTRIPLE;
  15.   PRGBTripleArray = ^TRGBTripleArray;
  16.   TRGBTripleArray = array[0..32767] of TRGBTriple;
  17.   TChnCalendar = class(TCustomControl)
  18.   private
  19.     { Private declarations }
  20. //    isChangeBmp: Boolean;
  21.     CnDate: string;
  22.     ButtonRect: TRect;
  23.     YearEdit,
  24.       MonthEdit,
  25.       DayEdit: TEdit;
  26.     MouseStyle: integer;
  27.     FLastChange: TSystemTime;
  28.     FDateTime: TDateTime;
  29.     FFrameColor: TColor;
  30.     FCnDateColor: TColor;
  31.     FButtonColor: TColor;
  32.     FBackPicture: TbitMap;
  33.     FAlphaBlend: Byte;
  34.     procedure DrawButton(iStyle: integer);
  35.     procedure SetDateTime(const Value: TDateTime);
  36.     procedure WMSize(var Msg: TWMSize); message wm_Size;
  37.     procedure WMLButtonDown(var Message: TWMLButtonDown); message WM_LBUTTONDOWN;
  38.     procedure SetFrameColor(const Value: TColor);
  39.     procedure setCnDateColor(const Value: TColor);
  40.     procedure setButtonColor(const Value: TColor);
  41.     procedure SetBackPicture(const Value: TbitMap);
  42. //    procedure WMLButtonUp(var Message: TWMLButtonUp); message WM_LBUTTONUP;
  43. //    procedure WMMouseMove(var Message: TWMMouseMove); message WM_MOUSEMOVE;
  44.   protected
  45.     { Protected declarations }
  46.     procedure Paint; override;
  47.   public
  48.     { Public declarations }
  49.     constructor Create(AOwner: TComponent); override;
  50.     destructor Destroy; override;
  51.   published
  52.     { Published declarations }
  53.     property DateTime: TDateTime read FDateTime write SetDateTime;
  54.     property FrameColor: TColor read FFrameColor write SetFrameColor;
  55.     property CnDateColor: TColor read FCnDateColor write setCnDateColor;
  56.     property ButtonColor: TColor read FButtonColor write setButtonColor;
  57.     property BackPicture: TbitMap read FBackPicture write SetBackPicture;
  58.     property AlphaBlend: Byte read FAlphaBlend write FAlphaBlend;
  59.     property Color;
  60.     property Align;
  61.     property Anchors;
  62.     property Enabled;
  63.     property Font;
  64.     property ParentBiDiMode;
  65.     property ParentBackground;
  66.     property ParentColor;
  67.     property ParentCtl3D;
  68.     property ParentFont;
  69.     property ParentShowHint;
  70.     property PopupMenu;
  71.     property ShowHint;
  72.     property TabOrder;
  73.     property TabStop;
  74.     property Visible;
  75.     property OnClick;
  76.     property OnDblClick;
  77.     property OnEnter;
  78.     property OnExit;
  79.     property OnMouseDown;
  80.     property OnMouseMove;
  81.     property OnMouseUp;
  82.     property OnResize;
  83.   end;

  85. procedure Register;

  87. implementation

  89. uses Grids;

  91. procedure Register;
  92. begin
  93.   RegisterComponents('Standard', [TChnCalendar]);
  94. end;



  98. { TChnCalendar }


  101. constructor TChnCalendar.Create(AOwner: TComponent);
  102. begin
  103. //  CheckCommonControl(ICC_USEREX_CLASSES);
  104.   inherited Create(AOwner);
  105. //  DateTimeToSystemTime(DateTime, FLastChange);
  106. //  FShowCheckbox := False;
  107. //  FChecked := True;
  108.   SetBounds(0, 0, 186, 15);
  109.   ControlStyle := ControlStyle + [csAcceptsControls];
  110.   FBackPicture := TBitMap.Create;
  111.   Color := clWindow;
  112.   FCnDateColor := clGreen;
  113.   FButtonColor := clPurple;
  114.   FAlphaBlend := 50;
  115.   ParentColor := False;
  116.   TabStop := True;
  117.   YearEdit := TEdit.Create(Self);
  118.   with YearEdit do
  119.   begin
  120.     BorderStyle := bsNone;
  121.     Parent := Self;
  122.     SetBounds(0, 0, 31, 13);
  123.     Left := 3;
  124.     Top := 1;
  125.     Text := FormatDateTime('YYYY', Now);
  126.   end;

  128.   MonthEdit := TEdit.Create(Self);
  129.   with MonthEdit do
  130.   begin
  131.     BorderStyle := bsNone;
  132.     Parent := Self;
  133.     SetBounds(0, 0, 15, 13);
  134.     Left := 41;
  135.     Top := 1;
  136.     Text := FormatDateTime('M', Now);
  137.   end;

  139.   DayEdit := TEdit.Create(Self);
  140.   with DayEdit do
  141.   begin
  142.     BorderStyle := bsNone;
  143.     Parent := Self;
  144.     SetBounds(0, 0, 15, 13);
  145.     Left := 65;
  146.     Top := 1;
  147.     Text := FormatDateTime('D', Now);
  148.   end;

  150.   FRM_Date := TFRM_Date.Create(Application);
  151.   DateTime := Now;
  152. //  CnDate := CnanimalOfYear(DateTime) + CnMonthOfDate(DateTime) + CnDayOfDate(DateTime);

  154. end;


  157. destructor TChnCalendar.Destroy;
  158. begin
  159.   FBackPicture.Free;
  160.   inherited;
  161. end;

  163. procedure TChnCalendar.DrawButton(iStyle: integer);
  164.   procedure Trigon(Canvas: TCanvas; xy1, xy2, xy3: TPoint);
  165.   var
  166.     xy: array[1..4] of TPoint;
  167.   begin
  168.     xy[1] := xy1;
  169.     xy[2] := xy2;
  170.     xy[3] := xy3;
  171.     xy[4] := xy1;
  172.     Canvas.Polygon(xy);
  173.   end;
  174. var
  175.   TrigonLeft: integer;
  176. begin
  177.   Canvas.Brush.Style := bsSolid;
  178.   case iStyle of
  179.     0:
  180.       begin
  181.         Canvas.Pen.Color := FrameColor;
  182.         Canvas.Brush.Color := FButtonColor; // clPurple;
  183.       end;
  184.     1, 2:
  185.       begin
  186.         Canvas.Pen.Color := clBlack;
  187.         Canvas.Brush.Color := $00E47AC8;
  188.       end;
  189.   end;

  191.   Canvas.Rectangle(RECT(Width - 15, 1, Width - 1, Height - 1));

  193.   //画三角形
  194.   case iStyle of
  195.     0, 1:
  196.       begin
  197.         Canvas.Brush.Color := clWhite;
  198.         Canvas.Pen.Color := clWhite;
  199.       end;
  200.     2:
  201.       begin
  202.         Canvas.Brush.Color := $00E4E4E4;
  203.         Canvas.Pen.Color := $00E4E4E4;
  204.       end;
  205.   end;
  206.   TrigonLeft := Width - 15;
  207.   Trigon(Canvas, Point(TrigonLeft + 3, 5), Point(TrigonLeft + 9, 5), Point(TrigonLeft + 6, 8));

  209. end;

  211. procedure TChnCalendar.Paint;
  212. var
  213.   TextTop: integer;
  214. begin
  215.   inherited;
  216.   YearEdit.Color := color;
  217.   MonthEdit.Color := color;
  218.   DayEdit.Color := Color;
  219.   ButtonRect := RECT(Width - 15, 1, Width - 1, Height - 1);
  220.   Canvas.Pen.Color := FrameColor;
  221.   Canvas.Brush.Color := Color;
  222.   Canvas.FillRect(ClientRect);
  223.   Canvas.Rectangle(ClientRect);
  224.   canvas.Font.Color := Font.Color;
  225.   TextTop := (Height - canvas.TextHeight('A')) div 2;
  226.   Canvas.TextOut(33, TextTop, '-');
  227.   Canvas.TextOut(60, TextTop, '-');
  228.   canvas.Font.Color := FCnDateColor;
  229.   Canvas.TextOut(84, TextTop, CnDate);
  230.   canvas.Font.Color := Font.Color;

  232.   DrawButton(0);
  233. end;

  235. procedure BmpAlphaBlend(var dBmp: TBitMap; sBmp: TBitmap; Pos: TPoint; Alpha: integer; TranColor: TColor = -1);
  236.   function IntToByte(i: Integer): Byte;
  237.   begin
  238.     if i > 255 then
  239.       Result := 255
  240.     else if i < 0 then
  241.       Result := 0
  242.     else
  243.       Result := i;
  244.   end;
  245.   function GetSLColor(pRGB: TRGBTriple): TColor;
  246.   begin
  247.     Result := RGB(pRGB.rgbtRed, pRGB.rgbtGreen, pRGB.rgbtBlue);
  248.   end;
  249. var
  250.   p0, p1: PRGBTripleArray;
  251.   r, g, b, p, x, y: Integer;
  252. begin
  253.   sBmp.PixelFormat := pf24bit;
  254.   dBmp.PixelFormat := pf24bit;
  255.   if TranColor = -1 then
  256.     TranColor := sBmp.Canvas.Pixels[0, 0];
  257.   for y := 0 to sBmp.Height - 1 do
  258.     if (y + Pos.y >= 0) and (y + Pos.Y < dBmp.Height) then
  259.     begin
  260.       p0 := dBmp.ScanLine[y + Pos.y];
  261.       p1 := sBmp.ScanLine[y];
  262.       for x := 0 to sBmp.Width - 1 do
  263.         if (x + pos.X >= 0) and (x + Pos.X < dBmp.Width) then
  264.           if GetSLCOlor(p1[x]) <> TranColor then
  265.           begin
  266.             p0[x + pos.X].rgbtRed := IntToByte((p0[x + pos.X].rgbtRed * (100 - Alpha) +
  267.               p1[x].rgbtRed * Alpha) div 100);

  269.             p0[x + pos.X].rgbtGreen := IntToByte((p0[x + pos.X].rgbtGreen * (100 - Alpha) +
  270.               p1[x].rgbtGreen * Alpha) div 100);

  272.             p0[x + pos.X].rgbtBlue := IntToByte((p0[x + pos.X].rgbtBlue * (100 - Alpha) +
  273.               p1[x].rgbtBlue * Alpha) div 100);
  274.           end;
  275.     end;

  277. end;

  279. procedure TChnCalendar.SetBackPicture(const Value: TbitMap);
  280. begin
  281.   FBackPicture.Assign(Value);

  283. end;

  285. procedure TChnCalendar.setButtonColor(const Value: TColor);
  286. begin
  287.   if FButtonColor <> Value then
  288.   begin
  289.     FButtonColor := Value;
  290.     Invalidate;
  291.   end;
  292. end;

  294. procedure TChnCalendar.setCnDateColor(const Value: TColor);
  295. begin
  296.   if FCnDateColor <> Value then
  297.   begin
  298.     FCnDateColor := Value;
  299.     Invalidate;
  300.   end;
  301. end;

  303. procedure TChnCalendar.SetDateTime(const Value: TDateTime);
  304. begin
  305.   if Value <> FDateTime then
  306.   begin
  307.     FDateTime := Value;
  308.     YearEdit.Text := FormatDateTime('YYYY', FDateTime);
  309.     MonthEdit.Text := FormatDateTime('m', FDateTime);
  310.     DayEdit.Text := FormatDateTime('d', FDateTime);
  311.     CnDate := CnanimalOfYear(DateTime) + CnMonthOfDate(DateTime) + CnDayOfDate(DateTime);
  312.     Invalidate;
  313.   end;
  314. end;

  316. procedure TChnCalendar.SetFrameColor(const Value: TColor);
  317. begin
  318.   FFrameColor := Value;
  319.   Invalidate;
  320. end;

  322. function FormExists(FORM_NAME: string): BOOLEAN;
  323. begin
  324.   if Application.FindComponent(FORM_NAME) = nil then
  325.     RESULT := FALSE
  326.   else
  327.     RESULT := TRUE;
  328. end;

  330. function DayOfMonth(Year, Month: Integer): integer; overload;
  331. begin
  332.   try
  333.     Result := MonthDays[IsLeapYear(Year), Month];
  334.   except
  335.     Result := 0;
  336.   end;
  337. end;

  339. function DayOfMonth(Dates: TDateTime): integer; overload;
  340. var
  341.   Year, Month, Day, Hour: Word;

  343. begin
  344.   DecodeDate(Dates, Year, Month, day);
  345.   Result := MonthDays[IsLeapYear(Year), Month];
  346. end;

  348. function DaysOfMonth(Dates: TDateTime): Integer;
  349. begin
  350.   Result := DayOfMonth(YearOf(Dates), MonthOf(Dates));
  351. end;


  354. function SetDateTime(NYear, NMonth, NDay: Word): TDate;
  355. var
  356.   MyDay: Word;
  357. begin
  358.   MyDay := DayOfMonth(NYear, NMonth);
  359.   if MyDay < NDay then
  360.     NDay := MyDay;
  361.   Result := EncodeDate(NYear, NMonth, NDay);

  363. end;


  366. procedure AdjustDropDownForm(AControl: TControl; HostControl: TControl);
  367. var
  368.   WorkArea: TRect;
  369.   HostP, PDelpta: TPoint;
  370. begin
  371.   SystemParametersInfo(SPI_GETWORKAREA, 0, @WorkArea, 0);
  372.   HostP := HostControl.ClientToScreen(Point(0, 0));
  373.   PDelpta := AControl.ClientToScreen(Point(0, 0));

  375.   AControl.Left := HostP.x;
  376.   AControl.Top := HostP.y + HostControl.Height + 1;

  378.   if (AControl.Width > WorkArea.Right - WorkArea.Left) then
  379.     AControl.Width := WorkArea.Right - WorkArea.Left;

  381.   if (AControl.Left + AControl.Width > WorkArea.Right) then
  382.     AControl.Left := WorkArea.Right - AControl.Width;
  383.   if (AControl.Left < WorkArea.Left) then
  384.     AControl.Left := WorkArea.Left;


  387.   if (AControl.Top + AControl.Height > WorkArea.Bottom) then
  388.   begin
  389.     if (HostP.y - WorkArea.Top > WorkArea.Bottom - HostP.y - HostControl.Height) then
  390.       AControl.Top := HostP.y - AControl.Height;
  391.   end;

  393.   if (AControl.Top < WorkArea.Top) then
  394.   begin
  395.     AControl.Height := AControl.Height - (WorkArea.Top - AControl.Top);
  396.     AControl.Top := WorkArea.Top;
  397.   end;

  399.   if (AControl.Top + AControl.Height > WorkArea.Bottom) then
  400.   begin
  401.     AControl.Height := WorkArea.Bottom - AControl.Top;
  402.   end;

  404. end;


  407. procedure TChnCalendar.WMLButtonDown(var Message: TWMLButtonDown);
  408. var
  409.   xy: TPoint;
  410.   P: TPoint;
  411.   bmp: TbitMap;
  412. begin
  413.   xy := Point(Message.Pos.x, Message.Pos.y);
  414.   if PtInRect(ButtonRect, xy) then
  415.   begin
  416. //    FRM_Date.ShowDateWin(YearEdit, MonthEdit, DayEdit, Self);
  417.     FRM_Date.YearEdit := YearEdit;
  418.     FRM_Date.MonthEdit := MonthEdit;
  419.     FRM_Date.DayEdit := DayEdit;
  420.     MHostControl := Self;
  421. //if isChangeBmp then
  422.     with FRM_Date do
  423.     begin
  424.       Image1.Picture.Bitmap.Assign(FBackPicture);
  425.       Label16.Visible := FBackPicture.Width =0;
  426.       Label20.Visible := FBackPicture.Width =0;
  427.       if Image1.Picture.Graphic <> nil then
  428.       begin
  429.         bmp := TbitMap.Create;
  430.         bmp.Width := Image1.Width;
  431.         bmp.Height := Image1.Height;
  432.         bmp.Canvas.Brush.Color := Color;
  433.         bmp.Canvas.FillRect(RECT(0, 0, bmp.Width,
  434.           bmp.Height));

  436.         P := Point((bmp.Width - FBackPicture.Width) div 2,
  437.           (bmp.Height - FBackPicture.Height) div 2);
  438.         BmpAlphaBlend(bmp, FBackPicture, P, FAlphaBlend);
  439.         Image1.Canvas.Draw(0, 0, bmp);
  440.         bmp.free;

  442.       end;
  443.     end;
  444. //    isChangeBmp := False;

  446.     with FRM_Date do
  447.     begin
  448.       if Image1.Picture.Graphic = nil then
  449.         StaticText1.Caption := 'aaaa';

  451.       YearEdit.Text := IntToStr(StrTOIntDef(YearEdit.Text, YearOf(Date)));
  452.       MonthEdit.Text := IntToStr(StrTOIntDef(MonthEdit.Text, MonthOf(Date)));
  453.       DayEdit.Text := IntToStr(StrTOIntDef(DayEdit.Text, DayOfMonth(Date)));

  455.       if (StrToInt(YearEdit.Text) > 2050) or (StrToInt(YearEdit.Text) < 1901) then
  456.         YearEdit.Text := IntToStr(YearOf(Date));

  458.       if (StrToInt(MonthEdit.Text) > 12) or (StrToInt(MonthEdit.Text) < 1) then
  459.         MonthEdit.Text := IntToStr(MonthOf(Date));

  461.       if StrToInt(DayEdit.Text) > DayOfMonth(StrToInt(YearEdit.Text), StrToInt(MonthEdit.Text)) then
  462.         DayEdit.Text := IntToStr(DayOfMonth(StrToInt(YearEdit.Text), StrToInt(MonthEdit.Text)));

  464.       NDate := EncodeDate(StrToInt(YearEdit.text), StrToInt(MonthEdit.text), StrToInt(DayEdit.text));
  465.     end;
  466.     AdjustDropDownForm(FRM_Date, Self);
  467.     FRM_Date.Show;
  468. //    ShowWindow(MonthWin.Handle, SW_SHOWNORMAL);
  469.   end;
  470. {    if MouseStyle <> 2 then
  471.     begin
  472.       MouseStyle := 2;
  473.       DrawButton(2);
  474.     end;
  475. }
  476. end;
  477. {
  478. procedure TChnCalendar.WMLButtonUp(var Message: TWMLButtonUp);
  479. var
  480.   xy: TPoint;
  481. begin
  482.   xy := Point(Message.Pos.x, Message.Pos.y);
  483.   if PtInRect(ButtonRect, xy) then
  484.   begin
  485.     MouseStyle := 0;
  486.     DrawButton(0);
  487.   end;

  489. end;

  491. procedure TChnCalendar.WMMouseMove(var Message: TWMMouseMove);
  492. var
  493.   xy: TPoint;
  494. begin
  495.   xy := Point(Message.Pos.x, Message.Pos.y);
  496.   if PtInRect(ButtonRect, xy) then
  497.     if MouseStyle <> 1 then
  498.     begin
  499.       MouseStyle := 1;
  500.       DrawButton(1);
  501.     end;

  503. end;
  504. }

  506. procedure TChnCalendar.WMSize(var Msg: TWMSize);
  507. begin
  508.   YearEdit.Top := (Height - YearEdit.Height) div 2;
  509.   MonthEdit.Top := YearEdit.Top;
  510.   DayEdit.Top := YearEdit.Top;
  511. end;

  513. end.
复制代码

[ 本帖最后由 黑夜彩虹 于 2006-6-4 22:57 编辑 ]
delphi, 控件
1.gif

Calendars.rar

47.69 KB, 下载次数: 10, 下载积分: 飘云币 -2 枚

相关帖子

PYG19周年生日快乐！
回复

使用道具 举报

黑夜彩虹

该用户从未签到
 楼主| 发表于 2006-6-4 22:48:08 | 显示全部楼层

DateCn.pas

DateCn.pas
  1. Unit DateCn;

  3. Interface

  5. Uses Windows, SysUtils, Controls;

  7. Const
  8.   //农历月份数据，每年4字节，从1901年开始，共150年
  9.   //数据来源：UCDOS 6.0 UCT.COM
  10.   //分析整理：Copyright (c) 1996-1998, Randolph
  11.   //数据解析：
  12.   //如果第一字节的bit7为1，则该年1月1日位于农历12月，否则位于11月
  13.   //第一字节去除bit7为该年1月1日的农历日期
  14.   //         第二字节                 第三字节
  15.   //bit:     7  6  5  4  3  2  1  0   7  6  5  4  3  2  1  0
  16.   //农历月份:16 15 14 13 12 11 10 9   8  7  6  5  4  3  2  1
  17.   //农历月份指的是从该年1月1日的农历月份算起的顺序号
  18.   //农历月份对应的bit为1则该月为30日，否则为29日
  19.   //第四字节为闰月月份
  20. //  BaseDate='2000/02/04';//2000立春
  21.   BaseAnimalDate = '1972'; //1972年支为子(是鼠年)
  22.   BaseSkyStemDate = '1974'; //1974年干为甲
  23.   START_YEAR = 1901;
  24.   END_YEAR = 2050;

  26.   gLunarHolDay: Array[0..1799] Of Byte = (
  27.     $96, $B4, $96, $A6, $97, $97, $78, $79, $79, $69, $78, $77, //1901
  28.     $96, $A4, $96, $96, $97, $87, $79, $79, $79, $69, $78, $78, //1902
  29.     $96, $A5, $87, $96, $87, $87, $79, $69, $69, $69, $78, $78, //1903
  30.     $86, $A5, $96, $A5, $96, $97, $88, $78, $78, $79, $78, $87, //1904
  31.     $96, $B4, $96, $A6, $97, $97, $78, $79, $79, $69, $78, $77, //1905
  32.     $96, $A4, $96, $96, $97, $97, $79, $79, $79, $69, $78, $78, //1906
  33.     $96, $A5, $87, $96, $87, $87, $79, $69, $69, $69, $78, $78, //1907
  34.     $86, $A5, $96, $A5, $96, $97, $88, $78, $78, $69, $78, $87, //1908
  35.     $96, $B4, $96, $A6, $97, $97, $78, $79, $79, $69, $78, $77, //1909
  36.     $96, $A4, $96, $96, $97, $97, $79, $79, $79, $69, $78, $78, //1910
  37.     $96, $A5, $87, $96, $87, $87, $79, $69, $69, $69, $78, $78, //1911
  38.     $86, $A5, $96, $A5, $96, $97, $88, $78, $78, $69, $78, $87, //1912
  39.     $95, $B4, $96, $A6, $97, $97, $78, $79, $79, $69, $78, $77, //1913
  40.     $96, $B4, $96, $A6, $97, $97, $79, $79, $79, $69, $78, $78, //1914
  41.     $96, $A5, $97, $96, $97, $87, $79, $79, $69, $69, $78, $78, //1915
  42.     $96, $A5, $96, $A5, $96, $97, $88, $78, $78, $79, $77, $87, //1916
  43.     $95, $B4, $96, $A6, $96, $97, $78, $79, $78, $69, $78, $87, //1917
  44.     $96, $B4, $96, $A6, $97, $97, $79, $79, $79, $69, $78, $77, //1918
  45.     $96, $A5, $97, $96, $97, $87, $79, $79, $69, $69, $78, $78, //1919
  46.     $96, $A5, $96, $A5, $96, $97, $88, $78, $78, $79, $77, $87, //1920
  47.     $95, $B4, $96, $A5, $96, $97, $78, $79, $78, $69, $78, $87, //1921
  48.     $96, $B4, $96, $A6, $97, $97, $79, $79, $79, $69, $78, $77, //1922
  49.     $96, $A4, $96, $96, $97, $87, $79, $79, $69, $69, $78, $78, //1923
  50.     $96, $A5, $96, $A5, $96, $97, $88, $78, $78, $79, $77, $87, //1924
  51.     $95, $B4, $96, $A5, $96, $97, $78, $79, $78, $69, $78, $87, //1925
  52.     $96, $B4, $96, $A6, $97, $97, $78, $79, $79, $69, $78, $77, //1926
  53.     $96, $A4, $96, $96, $97, $87, $79, $79, $79, $69, $78, $78, //1927
  54.     $96, $A5, $96, $A5, $96, $96, $88, $78, $78, $78, $87, $87, //1928
  55.     $95, $B4, $96, $A5, $96, $97, $88, $78, $78, $79, $77, $87, //1929
  56.     $96, $B4, $96, $A6, $97, $97, $78, $79, $79, $69, $78, $77, //1930
  57.     $96, $A4, $96, $96, $97, $87, $79, $79, $79, $69, $78, $78, //1931
  58.     $96, $A5, $96, $A5, $96, $96, $88, $78, $78, $78, $87, $87, //1932
  59.     $95, $B4, $96, $A5, $96, $97, $88, $78, $78, $69, $78, $87, //1933
  60.     $96, $B4, $96, $A6, $97, $97, $78, $79, $79, $69, $78, $77, //1934
  61.     $96, $A4, $96, $96, $97, $97, $79, $79, $79, $69, $78, $78, //1935
  62.     $96, $A5, $96, $A5, $96, $96, $88, $78, $78, $78, $87, $87, //1936
  63.     $95, $B4, $96, $A5, $96, $97, $88, $78, $78, $69, $78, $87, //1937
  64.     $96, $B4, $96, $A6, $97, $97, $78, $79, $79, $69, $78, $77, //1938
  65.     $96, $A4, $96, $96, $97, $97, $79, $79, $79, $69, $78, $78, //1939
  66.     $96, $A5, $96, $A5, $96, $96, $88, $78, $78, $78, $87, $87, //1940
  67.     $95, $B4, $96, $A5, $96, $97, $88, $78, $78, $69, $78, $87, //1941
  68.     $96, $B4, $96, $A6, $97, $97, $78, $79, $79, $69, $78, $77, //1942
  69.     $96, $A4, $96, $96, $97, $97, $79, $79, $79, $69, $78, $78, //1943
  70.     $96, $A5, $96, $A5, $A6, $96, $88, $78, $78, $78, $87, $87, //1944
  71.     $95, $B4, $96, $A5, $96, $97, $88, $78, $78, $79, $77, $87, //1945
  72.     $95, $B4, $96, $A6, $97, $97, $78, $79, $78, $69, $78, $77, //1946
  73.     $96, $B4, $96, $A6, $97, $97, $79, $79, $79, $69, $78, $78, //1947
  74.     $96, $A5, $A6, $A5, $A6, $96, $88, $88, $78, $78, $87, $87, //1948
  75.     $A5, $B4, $96, $A5, $96, $97, $88, $79, $78, $79, $77, $87, //1949
  76.     $95, $B4, $96, $A5, $96, $97, $78, $79, $78, $69, $78, $77, //1950
  77.     $96, $B4, $96, $A6, $97, $97, $79, $79, $79, $69, $78, $78, //1951
  78.     $96, $A5, $A6, $A5, $A6, $96, $88, $88, $78, $78, $87, $87, //1952
  79.     $A5, $B4, $96, $A5, $96, $97, $88, $78, $78, $79, $77, $87, //1953
  80.     $95, $B4, $96, $A5, $96, $97, $78, $79, $78, $68, $78, $87, //1954
  81.     $96, $B4, $96, $A6, $97, $97, $78, $79, $79, $69, $78, $77, //1955
  82.     $96, $A5, $A5, $A5, $A6, $96, $88, $88, $78, $78, $87, $87, //1956
  83.     $A5, $B4, $96, $A5, $96, $97, $88, $78, $78, $79, $77, $87, //1957
  84.     $95, $B4, $96, $A5, $96, $97, $88, $78, $78, $69, $78, $87, //1958
  85.     $96, $B4, $96, $A6, $97, $97, $78, $79, $79, $69, $78, $77, //1959
  86.     $96, $A4, $A5, $A5, $A6, $96, $88, $88, $88, $78, $87, $87, //1960
  87.     $A5, $B4, $96, $A5, $96, $96, $88, $78, $78, $78, $87, $87, //1961
  88.     $96, $B4, $96, $A5, $96, $97, $88, $78, $78, $69, $78, $87, //1962
  89.     $96, $B4, $96, $A6, $97, $97, $78, $79, $79, $69, $78, $77, //1963
  90.     $96, $A4, $A5, $A5, $A6, $96, $88, $88, $88, $78, $87, $87, //1964
  91.     $A5, $B4, $96, $A5, $96, $96, $88, $78, $78, $78, $87, $87, //1965
  92.     $95, $B4, $96, $A5, $96, $97, $88, $78, $78, $69, $78, $87, //1966
  93.     $96, $B4, $96, $A6, $97, $97, $78, $79, $79, $69, $78, $77, //1967
  94.     $96, $A4, $A5, $A5, $A6, $A6, $88, $88, $88, $78, $87, $87, //1968
  95.     $A5, $B4, $96, $A5, $96, $96, $88, $78, $78, $78, $87, $87, //1969
  96.     $95, $B4, $96, $A5, $96, $97, $88, $78, $78, $69, $78, $87, //1970
  97.     $96, $B4, $96, $A6, $97, $97, $78, $79, $79, $69, $78, $77, //1971
  98.     $96, $A4, $A5, $A5, $A6, $A6, $88, $88, $88, $78, $87, $87, //1972
  99.     $A5, $B5, $96, $A5, $A6, $96, $88, $78, $78, $78, $87, $87, //1973
  100.     $95, $B4, $96, $A5, $96, $97, $88, $78, $78, $69, $78, $87, //1974
  101.     $96, $B4, $96, $A6, $97, $97, $78, $79, $78, $69, $78, $77, //1975
  102.     $96, $A4, $A5, $B5, $A6, $A6, $88, $89, $88, $78, $87, $87, //1976
  103.     $A5, $B4, $96, $A5, $96, $96, $88, $88, $78, $78, $87, $87, //1977
  104.     $95, $B4, $96, $A5, $96, $97, $88, $78, $78, $79, $78, $87, //1978
  105.     $96, $B4, $96, $A6, $96, $97, $78, $79, $78, $69, $78, $77, //1979
  106.     $96, $A4, $A5, $B5, $A6, $A6, $88, $88, $88, $78, $87, $87, //1980
  107.     $A5, $B4, $96, $A5, $A6, $96, $88, $88, $78, $78, $77, $87, //1981
  108.     $95, $B4, $96, $A5, $96, $97, $88, $78, $78, $79, $77, $87, //1982
  109.     $95, $B4, $96, $A5, $96, $97, $78, $79, $78, $69, $78, $77, //1983
  110.     $96, $B4, $A5, $B5, $A6, $A6, $87, $88, $88, $78, $87, $87, //1984
  111.     $A5, $B4, $A6, $A5, $A6, $96, $88, $88, $78, $78, $87, $87, //1985
  112.     $A5, $B4, $96, $A5, $96, $97, $88, $78, $78, $79, $77, $87, //1986
  113.     $95, $B4, $96, $A5, $96, $97, $88, $79, $78, $69, $78, $87, //1987
  114.     $96, $B4, $A5, $B5, $A6, $A6, $87, $88, $88, $78, $87, $86, //1988
  115.     $A5, $B4, $A5, $A5, $A6, $96, $88, $88, $88, $78, $87, $87, //1989
  116.     $A5, $B4, $96, $A5, $96, $96, $88, $78, $78, $79, $77, $87, //1990
  117.     $95, $B4, $96, $A5, $86, $97, $88, $78, $78, $69, $78, $87, //1991
  118.     $96, $B4, $A5, $B5, $A6, $A6, $87, $88, $88, $78, $87, $86, //1992
  119.     $A5, $B3, $A5, $A5, $A6, $96, $88, $88, $88, $78, $87, $87, //1993
  120.     $A5, $B4, $96, $A5, $96, $96, $88, $78, $78, $78, $87, $87, //1994
  121.     $95, $B4, $96, $A5, $96, $97, $88, $76, $78, $69, $78, $87, //1995
  122.     $96, $B4, $A5, $B5, $A6, $A6, $87, $88, $88, $78, $87, $86, //1996
  123.     $A5, $B3, $A5, $A5, $A6, $A6, $88, $88, $88, $78, $87, $87, //1997
  124.     $A5, $B4, $96, $A5, $96, $96, $88, $78, $78, $78, $87, $87, //1998
  125.     $95, $B4, $96, $A5, $96, $97, $88, $78, $78, $69, $78, $87, //1999
  126.     $96, $B4, $A5, $B5, $A6, $A6, $87, $88, $88, $78, $87, $86, //2000
  127.     $A5, $B3, $A5, $A5, $A6, $A6, $88, $88, $88, $78, $87, $87, //2001
  128.     $A5, $B4, $96, $A5, $96, $96, $88, $78, $78, $78, $87, $87, //2002
  129.     $95, $B4, $96, $A5, $96, $97, $88, $78, $78, $69, $78, $87, //2003
  130.     $96, $B4, $A5, $B5, $A6, $A6, $87, $88, $88, $78, $87, $86, //2004
  131.     $A5, $B3, $A5, $A5, $A6, $A6, $88, $88, $88, $78, $87, $87, //2005
  132.     $A5, $B4, $96, $A5, $A6, $96, $88, $88, $78, $78, $87, $87, //2006
  133.     $95, $B4, $96, $A5, $96, $97, $88, $78, $78, $69, $78, $87, //2007
  134.     $96, $B4, $A5, $B5, $A6, $A6, $87, $88, $87, $78, $87, $86, //2008
  135.     $A5, $B3, $A5, $B5, $A6, $A6, $88, $88, $88, $78, $87, $87, //2009
  136.     $A5, $B4, $96, $A5, $A6, $96, $88, $88, $78, $78, $87, $87, //2010
  137.     $95, $B4, $96, $A5, $96, $97, $88, $78, $78, $79, $78, $87, //2011
  138.     $96, $B4, $A5, $B5, $A5, $A6, $87, $88, $87, $78, $87, $86, //2012
  139.     $A5, $B3, $A5, $B5, $A6, $A6, $87, $88, $88, $78, $87, $87, //2013
  140.     $A5, $B4, $96, $A5, $A6, $96, $88, $88, $78, $78, $87, $87, //2014
  141.     $95, $B4, $96, $A5, $96, $97, $88, $78, $78, $79, $77, $87, //2015
  142.     $95, $B4, $A5, $B4, $A5, $A6, $87, $88, $87, $78, $87, $86, //2016
  143.     $A5, $C3, $A5, $B5, $A6, $A6, $87, $88, $88, $78, $87, $87, //2017
  144.     $A5, $B4, $A6, $A5, $A6, $96, $88, $88, $78, $78, $87, $87, //2018
  145.     $A5, $B4, $96, $A5, $96, $96, $88, $78, $78, $79, $77, $87, //2019
  146.     $95, $B4, $A5, $B4, $A5, $A6, $97, $87, $87, $78, $87, $86, //2020
  147.     $A5, $C3, $A5, $B5, $A6, $A6, $87, $88, $88, $78, $87, $86, //2021
  148.     $A5, $B4, $A5, $A5, $A6, $96, $88, $88, $88, $78, $87, $87, //2022
  149.     $A5, $B4, $96, $A5, $96, $96, $88, $78, $78, $79, $77, $87, //2023
  150.     $95, $B4, $A5, $B4, $A5, $A6, $97, $87, $87, $78, $87, $96, //2024
  151.     $A5, $C3, $A5, $B5, $A6, $A6, $87, $88, $88, $78, $87, $86, //2025
  152.     $A5, $B3, $A5, $A5, $A6, $A6, $88, $88, $88, $78, $87, $87, //2026
  153.     $A5, $B4, $96, $A5, $96, $96, $88, $78, $78, $78, $87, $87, //2027
  154.     $95, $B4, $A5, $B4, $A5, $A6, $97, $87, $87, $78, $87, $96, //2028
  155.     $A5, $C3, $A5, $B5, $A6, $A6, $87, $88, $88, $78, $87, $86, //2029
  156.     $A5, $B3, $A5, $A5, $A6, $A6, $88, $88, $88, $78, $87, $87, //2030
  157.     $A5, $B4, $96, $A5, $96, $96, $88, $78, $78, $78, $87, $87, //2031
  158.     $95, $B4, $A5, $B4, $A5, $A6, $97, $87, $87, $78, $87, $96, //2032
  159.     $A5, $C3, $A5, $B5, $A6, $A6, $88, $88, $88, $78, $87, $86, //2033
  160.     $A5, $B3, $A5, $A5, $A6, $A6, $88, $78, $88, $78, $87, $87, //2034
  161.     $A5, $B4, $96, $A5, $A6, $96, $88, $88, $78, $78, $87, $87, //2035
  162.     $95, $B4, $A5, $B4, $A5, $A6, $97, $87, $87, $78, $87, $96, //2036
  163.     $A5, $C3, $A5, $B5, $A6, $A6, $87, $88, $88, $78, $87, $86, //2037
  164.     $A5, $B3, $A5, $A5, $A6, $A6, $88, $88, $88, $78, $87, $87, //2038
  165.     $A5, $B4, $96, $A5, $A6, $96, $88, $88, $78, $78, $87, $87, //2039
  166.     $95, $B4, $A5, $B4, $A5, $A6, $97, $87, $87, $78, $87, $96, //2040
  167.     $A5, $C3, $A5, $B5, $A5, $A6, $87, $88, $87, $78, $87, $86, //2041
  168.     $A5, $B3, $A5, $B5, $A6, $A6, $88, $88, $88, $78, $87, $87, //2042
  169.     $A5, $B4, $96, $A5, $A6, $96, $88, $88, $78, $78, $87, $87, //2043
  170.     $95, $B4, $A5, $B4, $A5, $A6, $97, $87, $87, $88, $87, $96, //2044
  171.     $A5, $C3, $A5, $B4, $A5, $A6, $87, $88, $87, $78, $87, $86, //2045
  172.     $A5, $B3, $A5, $B5, $A6, $A6, $87, $88, $88, $78, $87, $87, //2046
  173.     $A5, $B4, $96, $A5, $A6, $96, $88, $88, $78, $78, $87, $87, //2047
  174.     $95, $B4, $A5, $B4, $A5, $A5, $97, $87, $87, $88, $86, $96, //2048
  175.     $A4, $C3, $A5, $A5, $A5, $A6, $97, $87, $87, $78, $87, $86, //2049
  176.     $A5, $C3, $A5, $B5, $A6, $A6, $87, $88, $78, $78, $87, $87); //2050


  179.   CnData: Array[0..599] Of Byte = (
  180.     $0B, $52, $BA, $00, $16, $A9, $5D, $00, $83, $A9, $37, $05, $0E, $74, $9B,
  181.     $00,
  182.     $1A, $B6, $55, $00, $87, $B5, $55, $04, $11, $55, $AA, $00, $1C, $A6, $B5,
  183.     $00,
  184.     $8A, $A5, $75, $02, $14, $52, $BA, $00, $81, $52, $6E, $06, $0D, $E9, $37,
  185.     $00,
  186.     $18, $74, $97, $00, $86, $EA, $96, $05, $10, $6D, $55, $00, $1A, $35, $AA,
  187.     $00,
  188.     $88, $4B, $6A, $02, $13, $A5, $6D, $00, $1E, $D2, $6E, $07, $0B, $D2, $5E,
  189.     $00,
  190.     $17, $E9, $2E, $00, $84, $D9, $2D, $05, $0F, $DA, $95, $00, $19, $5B, $52,
  191.     $00,
  192.     $87, $56, $D4, $04, $11, $4A, $DA, $00, $1C, $A5, $5D, $00, $89, $A4, $BD,
  193.     $02,
  194.     $15, $D2, $5D, $00, $82, $B2, $5B, $06, $0D, $B5, $2B, $00, $18, $BA, $95,
  195.     $00,
  196.     $86, $B6, $A5, $05, $10, $56, $B4, $00, $1A, $4A, $DA, $00, $87, $49, $BA,
  197.     $03,
  198.     $13, $A4, $BB, $00, $1E, $B2, $5B, $07, $0B, $72, $57, $00, $16, $75, $2B,
  199.     $00,
  200.     $84, $6D, $2A, $06, $0F, $AD, $55, $00, $19, $55, $AA, $00, $86, $55, $6C,
  201.     $04,
  202.     $12, $C9, $76, $00, $1C, $64, $B7, $00, $8A, $E4, $AE, $02, $15, $EA, $56,
  203.     $00,
  204.     $83, $DA, $55, $07, $0D, $5B, $2A, $00, $18, $AD, $55, $00, $85, $AA, $D5,
  205.     $05,
  206.     $10, $53, $6A, $00, $1B, $A9, $6D, $00, $88, $A9, $5D, $03, $13, $D4, $AE,
  207.     $00,
  208.     $81, $D4, $AB, $08, $0C, $BA, $55, $00, $16, $5A, $AA, $00, $83, $56, $AA,
  209.     $06,
  210.     $0F, $AA, $D5, $00, $19, $52, $DA, $00, $86, $52, $BA, $04, $11, $A9, $5D,
  211.     $00,
  212.     $1D, $D4, $9B, $00, $8A, $74, $9B, $03, $15, $B6, $55, $00, $82, $AD, $55,
  213.     $07,
  214.     $0D, $55, $AA, $00, $18, $A5, $B5, $00, $85, $A5, $75, $05, $0F, $52, $B6,
  215.     $00,
  216.     $1B, $69, $37, $00, $89, $E9, $37, $04, $13, $74, $97, $00, $81, $EA, $96,
  217.     $08,
  218.     $0C, $6D, $52, $00, $16, $2D, $AA, $00, $83, $4B, $6A, $06, $0E, $A5, $6D,
  219.     $00,
  220.     $1A, $D2, $6E, $00, $87, $D2, $5E, $04, $12, $E9, $2E, $00, $1D, $EC, $96,
  221.     $0A,
  222.     $0B, $DA, $95, $00, $15, $5B, $52, $00, $82, $56, $D2, $06, $0C, $2A, $DA,
  223.     $00,
  224.     $18, $A4, $DD, $00, $85, $A4, $BD, $05, $10, $D2, $5D, $00, $1B, $D9, $2D,
  225.     $00,
  226.     $89, $B5, $2B, $03, $14, $BA, $95, $00, $81, $B5, $95, $08, $0B, $56, $B2,
  227.     $00,
  228.     $16, $2A, $DA, $00, $83, $49, $B6, $05, $0E, $64, $BB, $00, $19, $B2, $5B,
  229.     $00,
  230.     $87, $6A, $57, $04, $12, $75, $2B, $00, $1D, $B6, $95, $00, $8A, $AD, $55,
  231.     $02,
  232.     $15, $55, $AA, $00, $82, $55, $6C, $07, $0D, $C9, $76, $00, $17, $64, $B7,
  233.     $00,
  234.     $86, $E4, $AE, $05, $11, $EA, $56, $00, $1B, $6D, $2A, $00, $88, $5A, $AA,
  235.     $04,
  236.     $14, $AD, $55, $00, $81, $AA, $D5, $09, $0B, $52, $EA, $00, $16, $A9, $6D,
  237.     $00,
  238.     $84, $A9, $5D, $06, $0F, $D4, $AE, $00, $1A, $EA, $4D, $00, $87, $BA, $55,
  239.     $04,
  240.     $12, $5A, $AA, $00, $1D, $AB, $55, $00, $8A, $A6, $D5, $02, $14, $52, $DA,
  241.     $00,
  242.     $82, $52, $BA, $06, $0D, $A9, $3B, $00, $18, $B4, $9B, $00, $85, $74, $9B,
  243.     $05,
  244.     $11, $B5, $4D, $00, $1C, $D6, $A9, $00, $88, $35, $AA, $03, $13, $A5, $B5,
  245.     $00,
  246.     $81, $A5, $75, $0B, $0B, $52, $B6, $00, $16, $69, $37, $00, $84, $E9, $2F,
  247.     $06,
  248.     $10, $F4, $97, $00, $1A, $75, $4B, $00, $87, $6D, $52, $05, $11, $2D, $69,
  249.     $00,
  250.     $1D, $95, $B5, $00, $8A, $A5, $6D, $02, $15, $D2, $6E, $00, $82, $D2, $5E,
  251.     $07,
  252.     $0E, $E9, $2E, $00, $19, $EA, $96, $00, $86, $DA, $95, $05, $10, $5B, $4A,
  253.     $00,
  254.     $1C, $AB, $69, $00, $88, $2A, $D8, $03);

  256. Function DaysNumberOfDate(Date: TDate): Integer;
  257. //日期是该年的第几天，1月1日为第一天
  258. Function CnMonthOfDate(Date: TDate; Days: Integer): String; OverLoad;
  259. Function CnMonthOfDate(Date: TDate): String; OverLoad; //指定日期的农历月

  261. Function CnMonth(Date: TDate): Integer; //指定日期的农历月
  262. Function CnDay(Date: TDate): Integer; //指定日期的农历日包括节日
  263. Function CnDayOfDate(Date: TDate): String; overload; //指定日期的农历日包括节日
  264. Function CnDayOfDate(Year,Month,Day: integer): String; overload; //指定日期的农历日包括节日

  266. Function CnDayOfDate(Date: TDate; Days: integer; ShowDate: Boolean = false): String; overload; //指定日期的农历日包括节日

  268. Function CnDateOfDateStr(Date: TDate): String; //指定日期的农历日期
  269. Function CnDayOfDatePH(Date: TDate): String; //指定日期的农历月
  270. Function CnDateOfDateStrPH(Date: TDate): String; //指定日期的农历日期包括节日

  272. Function CnDayOfDateJr(Date: TDate): String; overload; //只有节日
  273. Function CnDayOfDateJr(Date: TDate; Days: Integer): String; overload; //只有节日

  275. Function CnanimalOfYear(Date: TDate): String; //返回十二生肖(地支)
  276. Function CnSkyStemOfYear(Date: TDate): String; //返回十大天干
  277. Function CnSolarTerm(Date: TDate): String; //返回十大天干

  279. Function GetLunarHolDay(InDate: TDateTime): String; overload;
  280. Function GetLunarHolDay(InDate: TDateTime; Days: Integer): String; overload;

  282. Function l_GetLunarHolDay(iYear, iMonth, iDay: Word): Word;
  283. Function GetAnimal(Date: TDate): integer; //返回十二生肖

  285. Function GetCnDateToDate(dDate: TDateTime): TDateTime; overload;
  286. Function GetCnDateToDate(cYear, cMonth, cDay: word): TDateTime; overload;

  288. Function OtherHoliday(Month, Day: integer): String;
  289. Function Holiday(Date: TDateTime; Day: integer): String;
  290. Function GetDays(ADate: TDate): Extended;

  292. Function Constellation(Date: TDateTime; Day: integer): String; overload;
  293. Function Constellation(ADate: TDate): String; overload;
  294. //procedure l_CalcLunarDate(var iYear,iMonth,iDay:Word;iSpanDays:Longword);
  295. //function CalcDateDiff(iEndYear,iEndMonth,iEndDay:Word;iStartYear:Word;iStartMonth:Word;iStartDay:Word):Longword;

  297. Implementation

  299. Function Year(MyDate: TDateTime): Word;
  300. Begin
  301.   result := StrToInt(FormatDateTime('yyyy', MyDate)); //SetDates(MyDate, 1);
  302. End;

  304. Function Month(MyDate: TDateTime): Word;
  305. Begin
  306.   result := StrToInt(FormatDateTime('mm', MyDate)); //SetDates(MyDate, 2);
  307. End;

  309. Function day(MyDate: TDateTime): Word;
  310. Begin
  311.   result := StrToInt(FormatDateTime('dd', MyDate)); //SetDates(MyDate, 3);
  312. End;


  315. //日期是该年的第几天，1月1日为第一天

  317. Function DaysNumberOfDate(Date: TDate): Integer;
  318. Var
  319.   DaysNumber: Integer;
  320.   I: Integer;
  321.   yyyy, mm, dd: Word;
  322. Begin
  323.   //  Date := StrToDate(FormatDateTime('yyyy/mm/dd', Date));
  324.   DecodeDate(Date, yyyy, mm, dd);
  325.   DaysNumber := 0;
  326.   For I := 1 To mm - 1 Do
  327.     Inc(DaysNumber, MonthDays[IsLeapYear(yyyy), I]);
  328.   Inc(DaysNumber, dd);
  329.   Result := DaysNumber;
  330. End;

  332. //日期的农历日期，返回农历格式：月份*100 + 日，负数为闰月
  333. //超出范围则返回0

  335. Function GetAnimal(Date: TDate): integer; //返回十二生肖
  336. Var
  337.   Animal: String;
  338. Begin
  339.   Animal := CnanimalOfYear(Date);
  340.   If Animal = '子鼠' Then
  341.     result := 0;

  343.   If Animal = '丑牛' Then
  344.     result := 1;

  346.   If Animal = '寅虎' Then
  347.     result := 2;

  349.   If Animal = '卯兔' Then
  350.     result := 3;

  352.   If Animal = '辰龙' Then
  353.     result := 4;

  355.   If Animal = '巳蛇' Then
  356.     result := 5;

  358.   If Animal = '午马' Then
  359.     result := 6;

  361.   If Animal = '未羊' Then
  362.     result := 7;

  364.   If Animal = '申猴' Then
  365.     result := 8;

  367.   If Animal = '酉鸡' Then
  368.     result := 9;

  370.   If Animal = '戌狗' Then
  371.     result := 10;

  373.   If Animal = '亥猪' Then
  374.     result := 11;


  377. End;

  379. Function CnDateOfDate(Date: TDate): Integer;
  380. Var
  381.   CnMonth, CnMonthDays: Array[0..15] Of Integer;
  382.   CnBeginDay, LeapMonth: Integer;
  383.   yyyy, mm, dd: Word;
  384.   Bytes: Array[0..3] Of Byte;
  385.   I: Integer;
  386.   CnMonthData: Word;
  387.   DaysCount, CnDaysCount, ResultMonth, ResultDay: Integer;
  388. Begin
  389.   //  Date := StrToDate(FormatDateTime('yyyy/mm/dd', Date));
  390.   DecodeDate(Date, yyyy, mm, dd);
  391.   If (yyyy < 1901) Or (yyyy > 2050) Then
  392.     Begin
  393.       Result := 0;
  394.       Exit;
  395.     End;
  396.   Bytes[0] := CnData[(yyyy - 1901) * 4];
  397.   Bytes[1] := CnData[(yyyy - 1901) * 4 + 1];
  398.   Bytes[2] := CnData[(yyyy - 1901) * 4 + 2];
  399.   Bytes[3] := CnData[(yyyy - 1901) * 4 + 3];
  400.   If (Bytes[0] And $80) <> 0 Then
  401.     CnMonth[0] := 12
  402.   Else
  403.     CnMonth[0] := 11;
  404.   CnBeginDay := (Bytes[0] And $7F);
  405.   CnMonthData := Bytes[1];
  406.   CnMonthData := CnMonthData Shl 8;
  407.   CnMonthData := CnMonthData Or Bytes[2];
  408.   LeapMonth := Bytes[3];

  410.   For I := 15 Downto 0 Do
  411.     Begin
  412.       CnMonthDays[15 - I] := 29;
  413.       If ((1 Shl I) And CnMonthData) <> 0 Then
  414.         Inc(CnMonthDays[15 - I]);
  415.       If CnMonth[15 - I] = LeapMonth Then
  416.         CnMonth[15 - I + 1] := -LeapMonth
  417.       Else
  418.         Begin
  419.           If CnMonth[15 - I] < 0 Then //上月为闰月
  420.             CnMonth[15 - I + 1] := -CnMonth[15 - I] + 1
  421.           Else
  422.             CnMonth[15 - I + 1] := CnMonth[15 - I] + 1;
  423.           If CnMonth[15 - I + 1] > 12 Then CnMonth[15 - I + 1] := 1;
  424.         End;
  425.     End;

  427.   DaysCount := DaysNumberOfDate(Date) - 1;
  428.   If DaysCount <= (CnMonthDays[0] - CnBeginDay) Then
  429.     Begin
  430.       If (yyyy > 1901) And
  431.         (CnDateOfDate(EncodeDate(yyyy - 1, 12, 31)) < 0) Then
  432.         ResultMonth := -CnMonth[0]
  433.       Else
  434.         ResultMonth := CnMonth[0];
  435.       ResultDay := CnBeginDay + DaysCount;
  436.     End
  437.   Else
  438.     Begin
  439.       CnDaysCount := CnMonthDays[0] - CnBeginDay;
  440.       I := 1;
  441.       While (CnDaysCount < DaysCount) And
  442.         (CnDaysCount + CnMonthDays[I] < DaysCount) Do
  443.         Begin
  444.           Inc(CnDaysCount, CnMonthDays[I]);
  445.           Inc(I);
  446.         End;
  447.       ResultMonth := CnMonth[I];
  448.       ResultDay := DaysCount - CnDaysCount;
  449.     End;
  450.   If ResultMonth > 0 Then
  451.     Result := ResultMonth * 100 + ResultDay
  452.   Else
  453.     Result := ResultMonth * 100 - ResultDay
  454. End;

  456. Function CnMonth(Date: TDate): Integer;
  457. Begin
  458.   Result := Abs(CnDateOfDate(Date) Div 100);
  459. End;

  461. Function CnMonthOfDate(Date: TDate; Days: Integer): String;
  462. Var
  463.   Year, Month, Day: word;
  464. Begin
  465.   DecodeDate(Date, Year, Month, Day);
  466.   Result := CnMonthOfDate(EncodeDate(Year, Month, Days));

  468. End;

  470. Function CnMonthOfDate(Date: TDate): String;
  471. Const
  472.   CnMonthStr: Array[1..12] Of String = (
  473.     '正', '二', '三', '四', '五', '六', '七', '八', '九', '十',
  474.     '冬', '腊');
  475. Var
  476.   Month: Integer;
  477. Begin
  478.   //  Date := StrToDate(FormatDateTime('yyyy/mm/dd', Date));
  479.   Month := CnDateOfDate(Date) Div 100;
  480.   If Month < 0 Then
  481.     Result := '闰' + CnMonthStr[-Month]
  482.   Else
  483.     Result := CnMonthStr[Month] + '月';
  484. End;

  486. Function CnDayOfDatePH(Date: TDate): String;
  487. Const
  488.   CnDayStr: Array[1..30] Of String = (
  489.     '初一', '初二', '初三', '初四', '初五',
  490.     '初六', '初七', '初八', '初九', '初十',
  491.     '十一', '十二', '十三', '十四', '十五',
  492.     '十六', '十七', '十八', '十九', '二十',
  493.     '廿一', '廿二', '廿三', '廿四', '廿五',
  494.     '廿六', '廿七', '廿八', '廿九', '三十');
  495. Var
  496.   Day: Integer;
  497. Begin
  498.   //  Date := StrToDate(FormatDateTime('yyyy/mm/dd', Date));
  499.   Day := Abs(CnDateOfDate(Date)) Mod 100;
  500.   Result := CnDayStr[Day];
  501. End;

  503. Function CnDateOfDateStr(Date: TDate): String;
  504. Begin
  505.   Result := CnMonthOfDate(Date) + CnDayOfDatePH(Date);
  506. End;

  508. Function CnDayOfDate(Date: TDate; Days: integer; ShowDate: Boolean = false): String; //指定日期的农历日包括节日
  509. Var
  510.   Year, Month, Day: word;
  511. Begin
  512.   DecodeDate(Date, Year, Month, Day);
  513.   Result := CnDayOfDate(EncodeDate(Year, Month, Days));

  515. End;

  517. Function CnDayOfDate(Year,Month,Day: integer): String; overload; //指定日期的农历日包括节日
  518. Begin
  519.   Result := CnDayOfDate(EncodeDate(Year, Month, Day));
  520. End;


  523. Function CnDay(Date: TDate): Integer;
  524. Begin
  525.   Result := Abs(CnDateOfDate(Date)) Mod 100;
  526. End;

  528. Function CnDayOfDate(Date: TDate): String;
  529. Const
  530.   CnDayStr: Array[1..30] Of String = (
  531.     '初一', '初二', '初三', '初四', '初五',
  532.     '初六', '初七', '初八', '初九', '初十',
  533.     '十一', '十二', '十三', '十四', '十五',
  534.     '十六', '十七', '十八', '十九', '二十',
  535.     '廿一', '廿二', '廿三', '廿四', '廿五',
  536.     '廿六', '廿七', '廿八', '廿九', '三十');
  537. Var
  538.   Day: Integer;
  539. Begin
  540.   //  Date := StrToDate(FormatDateTime('yyyy/mm/dd', Date));
  541.   Day := Abs(CnDateOfDate(Date)) Mod 100;
  542.   Result := CnDayStr[Day];

  544. End;

  546. Function CnDateOfDateStrPH(Date: TDate): String;
  547. Begin
  548.   Result := CnMonthOfDate(Date) + CnDayOfDate(Date);
  549. End;

  551. Function CnDayOfDateJr(Date: TDate; Days: Integer): String;
  552. Var
  553.   Year, Month, Day: word;
  554. Begin
  555.   DecodeDate(Date, Year, Month, Day);
  556.   Result := CnDayOfDateJr(EncodeDate(Year, Month, Days));

  558. End;

  560. Function CnDayOfDateJr(Date: TDate): String;
  561. Var
  562.   Day: Integer;
  563. Begin
  564.   Result := '';
  565.   Day := Abs(CnDateOfDate(Date)) Mod 100;
  566.   Case Day Of
  567.     1:
  568.       If (CnMonthOfDate(Date) = '正月') Then
  569.         Result := '春节';
  570.     5:
  571.       If CnMonthOfDate(Date) = '五月' Then
  572.         Result := '端午节';
  573.     7:
  574.       If CnMonthOfDate(Date) = '七月' Then
  575.         Result := '七夕节';
  576.     15:
  577.       If CnMonthOfDate(Date) = '八月' Then
  578.         Result := '中秋节'
  579.       Else
  580.         If (CnMonthOfDate(Date) = '正月') Then
  581.           Result := '元宵节';
  582.     9:
  583.       If CnMonthOfDate(Date) = '九月' Then
  584.         Result := '重阳节';
  585.     8:
  586.       If CnMonthOfDate(Date) = '腊月' Then
  587.         Result := '腊八节';
  588.   Else
  589.     If (CnMonthOfDate(Date + 1) = '正月') And (CnMonthOfDate(Date) <> '正月') Then
  590.       Result := '除夕';
  591.   End; {case}
  592. End;

  594. Function CnanimalOfYear(Date: TDate): String; //返回十二生肖
  595. Var
  596.   i: integer;
  597.   DateStr: String;
  598. Begin
  599.   DateStr := FormatDateTime('yyyy/mm/dd', Date);
  600.   i := length(inttostr(month(date)));
  601.   Case (StrToInt(Copy(DateStr, 1, 4)) - StrToInt(BaseAnimalDate))
  602.     Mod 12 Of
  603.     0:
  604.       If (StrToInt(Copy(DateStr, 6, i)) < 4) And ((Pos('腊',
  605.         CnMonthOfDate(Date)) = 0) And (Pos('冬', CnMonthOfDate(Date)) = 0)) Then
  606.         Result := '子鼠'
  607.       Else
  608.         Begin
  609.           If StrToInt(Copy(DateStr, 6, i)) < 4 Then
  610.             Result := '亥猪'
  611.           Else
  612.             Result := '子鼠';
  613.         End;
  614.     1, -11:
  615.       If (StrToInt(Copy(DateStr, 6, i)) < 4) And ((Pos('腊',
  616.         CnMonthOfDate(Date)) = 0) And (Pos('冬', CnMonthOfDate(Date)) = 0)) Then
  617.         Result := '丑牛'
  618.       Else
  619.         Begin
  620.           If StrToInt(Copy(DateStr, 6, i)) < 4 Then
  621.             Result := '子鼠'
  622.           Else
  623.             Result := '丑牛';
  624.         End;
  625.     2, -10:
  626.       If (StrToInt(Copy(DateStr, 6, i)) < 4) And ((Pos('腊',
  627.         CnMonthOfDate(Date)) = 0) And (Pos('冬', CnMonthOfDate(Date)) = 0)) Then
  628.         Result := '寅虎'
  629.       Else
  630.         Begin
  631.           If StrToInt(Copy(DateStr, 6, i)) < 4 Then
  632.             Result := '丑牛'
  633.           Else
  634.             Result := '寅虎';
  635.         End;
  636.     3, -9:
  637.       If (StrToInt(Copy(DateStr, 6, i)) < 4) And ((Pos('腊',
  638.         CnMonthOfDate(Date)) = 0) And (Pos('冬', CnMonthOfDate(Date)) = 0)) Then
  639.         Result := '卯兔'
  640.       Else
  641.         Begin
  642.           If StrToInt(Copy(DateStr, 6, i)) < 4 Then
  643.             Result := '寅虎'
  644.           Else
  645.             Result := '卯兔';
  646.         End;
  647.     4, -8:
  648.       If (StrToInt(Copy(DateStr, 6, i)) < 4) And ((Pos('腊',
  649.         CnMonthOfDate(Date)) = 0) And (Pos('冬', CnMonthOfDate(Date)) = 0)) Then
  650.         Result := '辰龙'
  651.       Else
  652.         Begin
  653.           If StrToInt(Copy(DateStr, 6, i)) < 4 Then
  654.             Result := '卯兔'
  655.           Else
  656.             Result := '辰龙';
  657.         End;
  658.     5, -7:
  659.       If (StrToInt(Copy(DateStr, 6, i)) < 4) And ((Pos('腊',
  660.         CnMonthOfDate(Date)) = 0) And (Pos('冬', CnMonthOfDate(Date)) = 0)) Then
  661.         Result := '巳蛇'
  662.       Else
  663.         Begin
  664.           If StrToInt(Copy(DateStr, 6, i)) < 4 Then
  665.             Result := '辰龙'
  666.           Else
  667.             Result := '巳蛇';
  668.         End;
  669.     6, -6:
  670.       If (StrToInt(Copy(DateStr, 6, i)) < 4) And ((Pos('腊',
  671.         CnMonthOfDate(Date)) = 0) And (Pos('冬', CnMonthOfDate(Date)) = 0)) Then
  672.         Result := '午马'
  673.       Else
  674.         Begin
  675.           If StrToInt(Copy(DateStr, 6, i)) < 4 Then
  676.             Result := '巳蛇'
  677.           Else
  678.             Result := '午马';
  679.         End;
  680.     7, -5:
  681.       If (StrToInt(Copy(DateStr, 6, i)) < 4) And ((Pos('腊',
  682.         CnMonthOfDate(Date)) = 0) And (Pos('冬', CnMonthOfDate(Date)) = 0)) Then
  683.         Result := '未羊'
  684.       Else
  685.         Begin
  686.           If StrToInt(Copy(DateStr, 6, i)) < 4 Then
  687.             Result := '午马'
  688.           Else
  689.             Result := '未羊';
  690.         End;
  691.     8, -4:
  692.       If (StrToInt(Copy(DateStr, 6, i)) < 4) And ((Pos('腊',
  693.         CnMonthOfDate(Date)) = 0) And (Pos('冬', CnMonthOfDate(Date)) = 0)) Then
  694.         Result := '申猴'
  695.       Else
  696.         Begin
  697.           If StrToInt(Copy(DateStr, 6, i)) < 4 Then
  698.             Result := '未羊'
  699.           Else
  700.             Result := '申猴';
  701.         End;
  702.     9, -3:
  703.       If (StrToInt(Copy(DateStr, 6, i)) < 4) And ((Pos('腊',
  704.         CnMonthOfDate(Date)) = 0) And (Pos('冬', CnMonthOfDate(Date)) = 0)) Then
  705.         Result := '酉鸡'
  706.       Else
  707.         Begin
  708.           If StrToInt(Copy(DateStr, 6, i)) < 4 Then
  709.             Result := '申猴'
  710.           Else
  711.             Result := '酉鸡';
  712.         End;
  713.     10, -2:
  714.       If (StrToInt(Copy(DateStr, 6, i)) < 4) And ((Pos('腊',
  715.         CnMonthOfDate(Date)) = 0) And (Pos('冬', CnMonthOfDate(Date)) = 0)) Then
  716.         Result := '戌狗'
  717.       Else
  718.         Begin
  719.           If StrToInt(Copy(DateStr, 6, i)) < 4 Then
  720.             Result := '酉鸡'
  721.           Else
  722.             Result := '戌狗';
  723.         End;
  724.     11, -1:
  725.       If (StrToInt(Copy(DateStr, 6, i)) < 4) And ((Pos('腊',
  726.         CnMonthOfDate(Date)) = 0) And (Pos('冬', CnMonthOfDate(Date)) = 0)) Then
  727.         Result := '亥猪'
  728.       Else
  729.         Begin
  730.           If StrToInt(Copy(DateStr, 6, i)) < 4 Then
  731.             Result := '戌狗'
  732.           Else
  733.             Result := '亥猪';
  734.         End;
  735.   End; {case}
  736. End;

  738. Function CnSkyStemOfYear(Date: TDate): String; //返回十大天干
  739. Var
  740.   i: integer;
  741.   DateStr: String;
  742. Begin
  743.   DateStr := FormatDateTime('yyyy/mm/dd', Date);
  744.   i := length(inttostr(month(date)));
  745.   Case (StrToInt(Copy(DateStr, 1, 4)) - StrToInt(BaseSkyStemDate))
  746.     Mod 10 Of
  747.     0:
  748.       If (StrToInt(Copy(DateStr, 6, i)) < 4) And ((Pos('腊',
  749.         CnMonthOfDate(Date)) = 0) And (Pos('冬', CnMonthOfDate(Date)) = 0)) Then
  750.         Result := '甲'
  751.       Else
  752.         Begin
  753.           If StrToInt(Copy(DateStr, 6, i)) < 4 Then
  754.             Result := '癸'
  755.           Else
  756.             Result := '甲';
  757.         End;
  758.     1, -9:
  759.       If (StrToInt(Copy(DateStr, 6, i)) < 4) And ((Pos('腊',
  760.         CnMonthOfDate(Date)) = 0) And (Pos('冬', CnMonthOfDate(Date)) = 0)) Then
  761.         Result := '乙'
  762.       Else
  763.         Begin
  764.           If StrToInt(Copy(DateStr, 6, i)) < 4 Then
  765.             Result := '甲'
  766.           Else
  767.             Result := '乙';
  768.         End;
  769.     2, -8:
  770.       If (StrToInt(Copy(DateStr, 6, i)) < 4) And ((Pos('腊',
  771.         CnMonthOfDate(Date)) = 0) And (Pos('冬', CnMonthOfDate(Date)) = 0)) Then
  772.         Result := '丙'
  773.       Else
  774.         Begin
  775.           If StrToInt(Copy(DateStr, 6, i)) < 4 Then
  776.             Result := '乙'
  777.           Else
  778.             Result := '丙';
  779.         End;
  780.     3, -7:
  781.       If (StrToInt(Copy(DateStr, 6, i)) < 4) And ((Pos('腊',
  782.         CnMonthOfDate(Date)) = 0) And (Pos('冬', CnMonthOfDate(Date)) = 0)) Then
  783.         Result := '丁'
  784.       Else
  785.         Begin
  786.           If StrToInt(Copy(DateStr, 6, i)) < 4 Then
  787.             Result := '丙'
  788.           Else
  789.             Result := '丁';
  790.         End;
  791.     4, -6:
  792.       If (StrToInt(Copy(DateStr, 6, i)) < 4) And ((Pos('腊',
  793.         CnMonthOfDate(Date)) = 0) And (Pos('冬', CnMonthOfDate(Date)) = 0)) Then
  794.         Result := '戊'
  795.       Else
  796.         Begin
  797.           If StrToInt(Copy(DateStr, 6, i)) < 4 Then
  798.             Result := '丁'
  799.           Else
  800.             Result := '戊';
  801.         End;
  802.     5, -5:
  803.       If (StrToInt(Copy(DateStr, 6, i)) < 4) And ((Pos('腊',
  804.         CnMonthOfDate(Date)) = 0) And (Pos('冬', CnMonthOfDate(Date)) = 0)) Then
  805.         Result := '巳'
  806.       Else
  807.         Begin
  808.           If StrToInt(Copy(DateStr, 6, i)) < 4 Then
  809.             Result := '戊'
  810.           Else
  811.             Result := '巳';
  812.         End;
  813.     6, -4:
  814.       If (StrToInt(Copy(DateStr, 6, i)) < 4) And ((Pos('腊',
  815.         CnMonthOfDate(Date)) = 0) And (Pos('冬', CnMonthOfDate(Date)) = 0)) Then
  816.         Result := '庚'
  817.       Else
  818.         Begin
  819.           If StrToInt(Copy(DateStr, 6, i)) < 4 Then
  820.             Result := '巳'
  821.           Else
  822.             Result := '庚';
  823.         End;
  824.     7, -3:
  825.       If (StrToInt(Copy(DateStr, 6, i)) < 4) And ((Pos('腊',
  826.         CnMonthOfDate(Date)) = 0) And (Pos('冬', CnMonthOfDate(Date)) = 0)) Then
  827.         Result := '辛'
  828.       Else
  829.         Begin
  830.           If StrToInt(Copy(DateStr, 6, i)) < 4 Then
  831.             Result := '庚'
  832.           Else
  833.             Result := '辛';
  834.         End;
  835.     8, -2:
  836.       If (StrToInt(Copy(DateStr, 6, i)) < 4) And ((Pos('腊',
  837.         CnMonthOfDate(Date)) = 0) And (Pos('冬', CnMonthOfDate(Date)) = 0)) Then
  838.         Result := '壬'
  839.       Else
  840.         Begin
  841.           If StrToInt(Copy(DateStr, 6, i)) < 4 Then
  842.             Result := '辛'
  843.           Else
  844.             Result := '壬';
  845.         End;
  846.     9, -1:
  847.       If (StrToInt(Copy(DateStr, 6, i)) < 4) And ((Pos('腊',
  848.         CnMonthOfDate(Date)) = 0) And (Pos('冬', CnMonthOfDate(Date)) = 0)) Then
  849.         Result := '癸'
  850.       Else
  851.         Begin
  852.           If StrToInt(Copy(DateStr, 6, i)) < 4 Then
  853.             Result := '壬'
  854.           Else
  855.             Result := '癸';
  856.         End;
  857.   End;
  858.   Result := Result + Copy(CnanimalOfYear(Date), 1, 3);
  859. End;

  861. Function CnSolarTerm(Date: TDate): String; //返回十大天干
  862. Var
  863.   Year, Month, Day, Hour: Word;
  864. Begin
  865.   DecodeDate(Date, Year, Month, Day);
  866.   //  d:=( ( 31556925974.7*(Year-1900) + SolarTerm[Month]*60000) + Date(1900,0,6,2,5) );

  868. End;

  870. Function GetLunarHolDay(InDate: TDateTime; Days: Integer): String;
  871. Var
  872.   Year, Month, Day, Hour: Word;
  873. Begin
  874.   DecodeDate(Date, Year, Month, Day);
  875.   Result := GetLunarHolDay(EncodeDate(Year, Month, Days));

  877. End;

  879. Function GetLunarHolDay(InDate: TDateTime): String;
  880. Var
  881.   i, iYear, iMonth, iDay: Word;
  882. Begin
  883.   //  InDate := StrToDate(FormatDateTime('yyyy/mm/dd', InDate));

  885.   Result := '';
  886.   DecodeDate(InDate, iYear, iMonth, iDay);

  888.   i := l_GetLunarHolDay(iYear, iMonth, iDay);
  889.   Case i Of
  890.     1: Result := '小寒';
  891.     2: Result := '大寒';
  892.     3: Result := '立春';
  893.     4: Result := '雨水';
  894.     5: Result := '惊蛰';
  895.     6: Result := '春分';
  896.     7: Result := '清明';
  897.     8: Result := '谷雨';
  898.     9: Result := '立夏';
  899.     10: Result := '小满';
  900.     11: Result := '芒种';
  901.     12: Result := '夏至';
  902.     13: Result := '小暑';
  903.     14: Result := '大暑';
  904.     15: Result := '立秋';
  905.     16: Result := '处暑';
  906.     17: Result := '白露';
  907.     18: Result := '秋分';
  908.     19: Result := '寒露';
  909.     20: Result := '霜降';
  910.     21: Result := '立冬';
  911.     22: Result := '小雪';
  912.     23: Result := '大雪';
  913.     24: Result := '冬至';
  914.   End;
  915. End;

  917. Function l_GetLunarHolDay(iYear, iMonth, iDay: Word): Word;
  918. Var
  919.   Flag: Byte;
  920.   Day: Word;
  921. Begin
  922.   //  var offDate = new Date( ( 31556925974.7*(y-1900) + sTermInfo[n]*60000  ) + Date.UTC(1900,0,6,2,5) )
  923.   Flag := gLunarHolDay[(iYear - START_YEAR) * 12 + iMonth - 1];
  924.   If iDay < 15 Then
  925.     Day := 15 - ((Flag Shr 4) And $0F)
  926.   Else
  927.     Day := (Flag And $0F) + 15;
  928.   If iDay = Day Then
  929.     If iDay > 15 Then
  930.       Result := (iMonth - 1) * 2 + 2
  931.     Else
  932.       Result := (iMonth - 1) * 2 + 1
  933.   Else
  934.     Result := 0;
  935. End;


  938. Function OtherHoliday(Month, Day: integer): String;
  939. Begin
  940.   //五月的第二个星期日庆祝母亲节
  941.   //將每年6月的第3個星期天定為父親節      ?
  942.   {

  944.   新年元旦[01/01] 腊八节[农历十二月初八]


  947.    世界湿地日[02/02] 国际气象节[02/10] 情人节[02/14]
  948.   除夕[农历十二月三十] 春节[农历正月初一] 元宵节[农历正月十五]


  951.    全国爱耳日[03/03] 妇女节[03/08] 植树节[03/12]
  952.   国际警察日[03/14] 国际消费日[03/15] 世界森林日[03/21]
  953.   世界水日[03/22] 世界气象日[03/23] 世界防治结核病日[03/24]


  956.    愚人节[04/01] 清明[04/05] 世界卫生日[04/07]
  957.   世界地球日[04/22]


  960.    国际劳动节[05/01] 中国青年节[05/04] 全国碘缺乏病日[05/05]
  961.   世界红十字日[05/08] 国际护士节[05/12] 国际家庭日[05/15]
  962.   世界电信日[05/17] 国际博物馆日[05/18] 全国助残日[05/19]
  963.   全国学生营养日[05/20] 国际生物多样性日[05/22] 国际牛奶日[05/23]
  964.   世界无烟日[05/31] 端午节[农历五月初五] 母亲节[第二个星期日]


  967.    国际儿童节[06/01] 世界环境日[06/05] 全国爱眼日[06/06]
  968.   端午节[06/15] 父亲节[第三个星期日] 防治荒漠化和干旱日[06/17]
  969.   国际奥林匹克日[06/23] 全国土地日[06/25] 国际反毒品日[06/26]


  972.    香港回归日[07/01] 七夕情人节[农历七月初七] 建党日[07/01]　
  973.   中国人民抗日战争纪念日[07/07] 世界人口日[07/11]　


  976.    八一建军节[08/01]　　


  979.    劳动节[09/02]　 国际扫盲日[09/08] 教师节[09/10]
  980.   国际臭氧层保护日[09/16] 国际和平日[09/17] 国际爱牙日[09/20]
  981.   中秋节[农历八月十五] 国际聋人节[09/22] 世界旅游日[09/27]
  982.   重阳节[农历九月九日]


  985.    国庆节[10/01]　 国际音乐节[10/01] 国际减轻自然灾害日[10/02]
  986.   世界动物日[10/04] 国际住房日[10/07] 全国高血压日[10/08]
  987.   世界视觉日[10/08] 世界邮政日[10/09] 世界精神卫生日[10/10]
  988.   国际盲人节[10/15] 世界粮食节[10/16] 世界消除贫困日[10/17]
  989.   世界传统医药日[10/22] 联合国日[10/24] 万圣节[10/31]



  993.    中国记者日[11/08]　 消防宣传日[11/09] 世界糖尿病日[11/14]
  994.   国际大学生节[11/17] 感恩节[11/28]


  997.    冬至节[农历12月22日] 世界艾滋病日[12/01] 世界残疾人日[12/03]
  998.   世界足球日[12/09] 圣诞节[12/25]





  1004.   }
  1005.   result := '';

  1007.   Case Month Of
  1008.     1:
  1009.       Begin
  1010.       End;

  1012.     2:
  1013.       Begin

  1015.         If day = 2 Then
  1016.           result := '湿地日';

  1018.         If day = 10 Then
  1019.           result := '气象节';

  1021.       End;
  1022.     3:
  1023.       Begin
  1024.         If day = 3 Then
  1025.           result := '爱耳日';


  1028.         If day = 12 Then
  1029.           result := '植树节';

  1031.         If day = 14 Then
  1032.           result := '警察日';

  1034.         If day = 15 Then
  1035.           result := '消费节';

  1037.         If day = 21 Then
  1038.           result := '森林日';

  1040.         If day = 22 Then
  1041.           result := '水日';

  1043.         If day = 23 Then
  1044.           result := '气象日';

  1046.       End;
  1047.     4:
  1048.       Begin

  1050.         If day = 7 Then
  1051.           result := '卫生日';

  1053.         If day = 22 Then
  1054.           result := '地球日';

  1056.       End;
  1057.     5:
  1058.       Begin
  1059.         If day = 8 Then
  1060.           result := '红十字';

  1062.         If day = 12 Then
  1063.           result := '护士节';

  1065.         If day = 15 Then
  1066.           result := '家庭日';

  1068.         If day = 17 Then
  1069.           result := '电信日';

  1071.         If day = 18 Then
  1072.           result := '博物馆';

  1074.         If day = 19 Then
  1075.           result := '助残日';

  1077.         If day = 23 Then
  1078.           result := '牛奶日';

  1080.         If day = 31 Then
  1081.           result := '无烟日';

  1083.         // 母亲节[第二个星期日]
  1084.       End;
  1085.     6:
  1086.       Begin

  1088.         If day = 5 Then
  1089.           result := '环境日';

  1091.         If day = 6 Then
  1092.           result := '爱眼日';

  1094.         If day = 23 Then
  1095.           result := '体育日';

  1097.         If day = 25 Then
  1098.           result := '土地日';

  1100.         If day = 26 Then
  1101.           result := '反毒品';

  1103.         // 父亲节[第三个星期日]
  1104.       End;
  1105.     7:
  1106.       Begin

  1108.         If day = 11 Then
  1109.           result := '人口日';

  1111.       End;
  1112.     8:
  1113.       Begin

  1115.       End;
  1116.     9:
  1117.       Begin
  1118.         If day = 8 Then
  1119.           result := '扫盲日';


  1122.         If day = 17 Then
  1123.           result := '和平日';

  1125.         If day = 20 Then
  1126.           result := '爱牙日';

  1128.         If day = 22 Then
  1129.           result := '聋人节';

  1131.         If day = 27 Then
  1132.           result := '旅游日';

  1134.       End;
  1135.     10:
  1136.       Begin

  1138.         If day = 6 Then
  1139.           result := '老人节';

  1141.         If day = 4 Then
  1142.           result := '动物日';

  1144.         If day = 7 Then
  1145.           result := '住房日';

  1147.         If day = 9 Then
  1148.           result := '邮政日';

  1150.         If day = 15 Then
  1151.           result := '盲人节';

  1153.         If day = 16 Then
  1154.           result := '粮食日';


  1157.       End;

  1159.     11:
  1160.       Begin
  1161.         If day = 8 Then
  1162.           result := '记者日';

  1164.         If day = 9 Then
  1165.           result := '消防日';

  1167.         If day = 17 Then
  1168.           result := '大学生';


  1171.       End;
  1172.     12:
  1173.       Begin
  1174.         If day = 9 Then
  1175.           result := '足球日';

  1177.         If day = 24 Then
  1178.           result := '平安夜';
  1179.       End;

  1181.   End;
  1182. End;

  1184. Function Holiday(Date: TDateTime; Day: integer): String;
  1185. Var
  1186.   dDate: TDate;
  1187. Begin
  1188.   result := '';
  1189. //  result := OtherHoliday(Month(Date), Day);

  1191.   Case Month(Date) Of
  1192.     1:
  1193.       Begin
  1194.         If day = 1 Then
  1195.           result := '元旦节';
  1196.       End;

  1198.     2:
  1199.       Begin
  1200.         If day = 14 Then
  1201.           result := '情人节';
  1202.       End;
  1203.     3:
  1204.       Begin
  1205.         If day = 8 Then
  1206.           result := '妇女节';
  1207.       End;
  1208.     4:
  1209.       Begin
  1210.         If day = 1 Then
  1211.           result := '愚人节';
  1212.       End;
  1213.     5:
  1214.       Begin
  1215.         If day = 1 Then
  1216.           result := '劳动节';

  1218.         If day = 4 Then
  1219.           result := '青年节';

  1221.         // 母亲节[第二个星期日]
  1222.         dDate := EnCodeDate(Year(Date), Month(Date), Day);
  1223.         If (DayOfWeek(dDate) = 1) Then
  1224.           If (Trunc((Day - 1) / 7) = 1) Then
  1225.             result := '母亲节';

  1227.       End;
  1228.     6:
  1229.       Begin
  1230.         If day = 1 Then
  1231.           result := '儿童节';

  1233.         // 父亲节[第三个星期日]
  1234.         dDate := EnCodeDate(Year(Date), Month(Date), Day);
  1235.         If (DayOfWeek(dDate) = 1) Then
  1236.           If (Trunc((Day - 1) / 7) = 2) Then
  1237.             result := '父亲节';
  1238.       End;
  1239.     7:
  1240.       Begin
  1241.         If day = 1 Then
  1242.           result := '建党节';
  1243.       End;
  1244.     8:
  1245.       Begin
  1246.         If day = 1 Then
  1247.           result := '建军节';

  1249.       End;
  1250.     9:
  1251.       Begin
  1252.         If day = 10 Then
  1253.           result := '教师节';
  1254.       End;
  1255.     10:
  1256.       Begin
  1257.         If day = 1 Then
  1258.           result := '国庆节';

  1260.         If day = 6 Then
  1261.           result := '老人节';

  1263.         If day = 31 Then
  1264.           result := '万圣节';

  1266.       End;

  1268.     11:
  1269.       Begin
  1270.         If day = 8 Then
  1271.           result := '记者日';

  1273.         // 感恩节(11月的第四个星期四 )
  1274.         dDate := EnCodeDate(Year(Date), Month(Date), Day);
  1275.         If (DayOfWeek(dDate) = 5) Then
  1276.           If (Trunc((Day - 1) / 7) = 3) Then
  1277.             result := '感恩节';

  1279.       End;
  1280.     12:
  1281.       Begin
  1282.         If day = 25 Then
  1283.           result := '圣诞节';
  1284.       End;

  1286.   End;
  1287. End;

  1289. Function GetCnDateToDate(dDate: TDateTime): TDateTime;
  1290. Begin
  1291.   Result := GetCnDateToDate(Year(Now), CnMonth(dDate), CnDay(dDate));
  1292. End;

  1294. Function GetCnDateToDate(cYear, cMonth, cDay: word): TDateTime;
  1295. Var
  1296.   tempDate: TDateTime;
  1297.   tempDay, tempMonth: Integer;

  1299. Begin
  1300.   If cMonth > 11 Then
  1301.     tempDate := EnCodeDate(cYear - 1, cMonth, cDay)
  1302.   Else
  1303.     tempDate := EnCodeDate(cYear, cMonth, cDay);

  1305.   Result := 0;
  1306.   tempMonth := 0;
  1307.   tempDay := 0;
  1308.   While Result = 0 Do
  1309.     Begin
  1310.       tempDate := tempDate + 1;

  1312.       If CnMonth(tempDate) = cMonth Then
  1313.         If CnDay(tempDate) = cDay Then
  1314.           Begin
  1315.             Result := tempDate;
  1316.             exit;
  1317.           End
  1318.         Else
  1319.           If (cDay = 30) And (CnDay(tempDate) = 29)
  1320.             And (CnDay(tempDate + 1) <> 30) Then
  1321.             Begin
  1322.             //如果是没有30(闰月)，就提前一天
  1323.               Result := tempDate;
  1324.               exit;
  1325.             End;

  1327.     End;
  1328. End;

  1330. Function GetDays(ADate: TDate): Extended;
  1331. Var
  1332.   FirstOfYear: TDateTime;
  1333. Begin
  1334.   FirstOfYear := EncodeDate(StrToInt(FormatDateTime('yyyy', now)) - 1, 12, 31);
  1335.   Result := ADate - FirstOfYear;
  1336. End;

  1338. Function Constellation(Date: TDateTime; Day: integer): String; overload;
  1339. Var
  1340.   Year, Month, Days, Hour: Word;
  1341. Begin
  1342.   DecodeDate(Date, Year, Month, Days);
  1343.   Result := Constellation(EncodeDate(Year, Month, Day));
  1344. end;

  1346. Function Constellation(ADate: TDate): String;
  1347. Begin
  1348.   Case Month(ADate) Of
  1349.     1:
  1350.       Begin
  1351.         If day(ADate) <= 19 Then
  1352.           result := '摩羯座';

  1354.         If day(ADate) >= 20 Then
  1355.           result := '水瓶座';
  1356.       End;

  1358.     2:
  1359.       Begin
  1360.         If day(ADate) <= 18 Then
  1361.           result := '水瓶座';

  1363.         If day(ADate) >= 19 Then
  1364.           result := '双鱼座';
  1365.       End;

  1367.     3:
  1368.       Begin
  1369.         If day(ADate) <= 20 Then
  1370.           result := '双鱼座';

  1372.         If day(ADate) >= 21 Then
  1373.           result := '白羊座';
  1374.       End;

  1376.     4:
  1377.       Begin
  1378.         If day(ADate) <= 19 Then
  1379.           result := '白羊座';

  1381.         If day(ADate) >= 20 Then
  1382.           result := '金牛座';
  1383.       End;

  1385.     5:
  1386.       Begin
  1387.         If day(ADate) <= 20 Then
  1388.           result := '金牛座';

  1390.         If day(ADate) >= 21 Then
  1391.           result := '双子座';
  1392.       End;

  1394.     6:
  1395.       Begin
  1396.         If day(ADate) <= 21 Then
  1397.           result := '双子座';

  1399.         If day(ADate) >= 22 Then
  1400.           result := '巨蟹座';
  1401.       End;

  1403.     7:
  1404.       Begin
  1405.         If day(ADate) <= 22 Then
  1406.           result := '巨蟹座';

  1408.         If day(ADate) >= 23 Then
  1409.           result := '狮子座';
  1410.       End;

  1412.     8:
  1413.       Begin
  1414.         If day(ADate) <= 22 Then
  1415.           result := '狮子座';

  1417.         If day(ADate) >= 24 Then
  1418.           result := '处女座';
  1419.       End;

  1421.     9:
  1422.       Begin
  1423.         If day(ADate) <= 22 Then
  1424.           result := '处女座';

  1426.         If day(ADate) >= 23 Then
  1427.           result := '天秤座';
  1428.       End;

  1430.     10:
  1431.       Begin
  1432.         If day(ADate) <= 23 Then
  1433.           result := '天秤座';

  1435.         If day(ADate) >= 24 Then
  1436.           result := '天蝎座';
  1437.       End;

  1439.     11:
  1440.       Begin
  1441.         If day(ADate) <= 21 Then
  1442.           result := '天蝎座';

  1444.         If day(ADate) >= 22 Then
  1445.           result := '射手座';
  1446.       End;

  1448.     12:
  1449.       Begin
  1450.         If day(ADate) <= 21 Then
  1451.           result := '射手座';

  1453.         If day(ADate) >= 22 Then
  1454.           result := '摩羯座';
  1455.       End;
  1456.   End;
  1457. End;
  1458. {
  1459. //存储星座配信息
  1460. 1白羊座： 03月21日-------04月19日  Aries
  1461. 2金牛座： 04月20日-------05月20日  Taurus
  1462. 3双子座： 05月21日-------06月21日  Gemini
  1463. 4巨蟹座： 06月22日-------07月22日  Cancer
  1464. 5狮子座： 07月23日-------08月22日  Leo
  1465. 6处女座： 08月23日-------09月22日  Virgo
  1466. 7天秤座： 09月23日-------10月23日  Libra
  1467. 8天蝎座： 10月24日-------11月21日  Scorpio
  1468. 9射手座： 11月22日-------12月21日  Sagittarius
  1469. 10摩羯座： 12月22日-------01月19日  Capricorn
  1470. 11水瓶座： 01月20日-------02月18日  Aquarius
  1471. 12双鱼座： 02月19日-------03月20日  Pisces
  1472. }
  1473. End.

复制代码
PYG19周年生日快乐！
回复 支持 反对

使用道具 举报

黑夜彩虹

该用户从未签到
 楼主| 发表于 2006-6-4 22:49:28 | 显示全部楼层

DateWin.pas

DateWin.pas
  1. unit DateWin;

  3. interface

  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   ExtCtrls, StdCtrls, ComCtrls, DateUtils;

  9. type
  10.   TFRM_Date = class(TForm)
  11.     Label1: TLabel;
  12.     Label2: TLabel;
  13.     Label3: TLabel;
  14.     Label4: TLabel;
  15.     Label5: TLabel;
  16.     Label6: TLabel;
  17.     Label7: TLabel;
  18.     Label8: TLabel;
  19.     day1: TLabel;
  20.     Cnday: TLabel;
  21.     Label9: TLabel;
  22.     Label10: TLabel;
  23.     Label11: TLabel;
  24.     Label12: TLabel;
  25.     Label13: TLabel;
  26.     Label14: TLabel;
  27.     Label15: TLabel;
  28.     Bevel1: TBevel;
  29.     Bevel2: TBevel;
  30.     Label16: TLabel;
  31.     Label17: TLabel;
  32.     Label18: TLabel;
  33.     Label19: TLabel;
  34.     Shape2: TShape;
  35.     UpDown1: TUpDown;
  36.     UpDown2: TUpDown;
  37.     Label20: TLabel;
  38.     StaticText1: TStaticText;
  39.     Label21: TLabel;
  40.     Label22: TLabel;
  41.     Image1: TImage;
  42.     Shape1: TShape;
  43.     //CnDayClick
  44.     procedure CnDayClick(Sender: TObject);
  45.     procedure CHnDayClick(Sender: TObject);
  46.     procedure Label1Click(Sender: TObject);
  47.     procedure FormCreate(Sender: TObject);
  48.     procedure FormShow(Sender: TObject);
  49.     procedure UpDown1Click(Sender: TObject; Button: TUDBtnType);
  50.     procedure Label17Click(Sender: TObject);
  51.     procedure UpDown2Click(Sender: TObject; Button: TUDBtnType);
  52.     procedure Label5Click(Sender: TObject);
  53.     procedure FormDeactivate(Sender: TObject);
  54.     procedure CnDayMouseDown(Sender: TObject; Button: TMouseButton;
  55.       Shift: TShiftState; X, Y: Integer);
  56.     procedure ChnDateMouseDown(Sender: TObject; Button: TMouseButton;
  57.       Shift: TShiftState; X, Y: Integer);
  58.     procedure StaticText1Click(Sender: TObject);
  59.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
  60.     procedure FormPaint(Sender: TObject);

  62.   private
  63.     { Private declarations }
  64.     procedure LoadLAB;
  65.     procedure DateChange(MyTime: TDateTime);
  66.     procedure OK;
  67.   public
  68.     { Public declarations }
  69.     FPicture_AlphaBlend: Byte;
  70.     FPicture: TbitMap;
  71.     NDate: Tdate;
  72.     YearEdit, MonthEdit, DayEdit: TEdit;
  73.     ChDateLabel: TLabel;

  75.     procedure ShowDateWin(YearEdit1, MonthEdit1, DayEdit1: TEdit; {ChDateLabel1: TLabel;} HostControl: TControl; Bmp: TBitMap = nil; iAlphaBlend: Byte = 150);
  76.   end;

  78. var
  79.   FRM_Date: TFRM_Date;
  80.   CnDate: array[1..37] of TLabel;
  81.   ChnDate: array[1..37] of TLabel;
  82.   NYear, NMonth, NDay: Word;
  83.   MHostControl: TControl;
  84. implementation

  86. uses DateCn, ChnCalendar;

  88. {$R *.DFM}



  92. function FormExists(FORM_NAME: string): BOOLEAN;
  93. begin
  94.   if Application.FindComponent(FORM_NAME) = nil then
  95.     RESULT := FALSE
  96.   else
  97.     RESULT := TRUE;
  98. end;

  100. function DayOfMonth(Year, Month: Integer): integer; overload;
  101. begin
  102.   try
  103.     Result := MonthDays[IsLeapYear(Year), Month];
  104.   except
  105.     Result := 0;
  106.   end;
  107. end;

  109. function DayOfMonth(Dates: TDateTime): integer; overload;
  110. var
  111.   Year, Month, Day, Hour: Word;

  113. begin
  114.   DecodeDate(Dates, Year, Month, day);
  115.   Result := MonthDays[IsLeapYear(Year), Month];
  116. end;

  118. function DaysOfMonth(Dates: TDateTime): Integer;
  119. begin
  120.   Result := DayOfMonth(YearOf(Dates), MonthOf(Dates));
  121. end;


  124. function SetDateTime(NYear, NMonth, NDay: Word): TDate;
  125. var
  126.   MyDay: Word;
  127. begin
  128.   MyDay := DayOfMonth(NYear, NMonth);
  129.   if MyDay < NDay then
  130.     NDay := MyDay;
  131.   Result := EncodeDate(NYear, NMonth, NDay);

  133. end;


  136. procedure TFRM_Date.Label1Click(Sender: TObject);
  137. begin
  138.   //  Self.Close ;
  139.   UpDown1.Visible := true;
  140.   UpDown2.Visible := false;

  142. end;

  144. procedure TFRM_Date.LoadLAB;
  145. var
  146.   i: integer;
  147. begin

  149.   for i := 1 to 37 do
  150.   begin
  151.     CnDate[i] := TLabel.Create(self);
  152.     CnDate[i].parent := self;
  153.     ChnDate[i] := TLabel.Create(self);
  154.     ChnDate[i].parent := self;

  156.     CnDate[i].OnClick := CnDayClick;
  157.     CnDate[i].OnMouseDown := CnDayMouseDown;
  158.     ChnDate[i].OnClick := ChnDayClick;
  159.     ChnDate[i].OnMouseDown := ChnDateMouseDown;
  160.     CnDate[i].AutoSize := false;
  161.     ChnDate[i].AutoSize := false;
  162.     CnDate[i].Width := day1.Width;
  163.     ChnDate[i].Width := Cnday.Width;
  164.     CnDate[i].Height := day1.Height;
  165.     ChnDate[i].Height := Cnday.Height;
  166.     CnDate[i].Alignment := day1.Alignment;
  167.     ChnDate[i].Alignment := Cnday.Alignment;
  168.     CnDate[i].Layout := day1.Layout;
  169.     ChnDate[i].Layout := Cnday.Layout;

  171.     if i = 1 then
  172.     begin
  173.       CnDate[i].Left := day1.Left;
  174.       CnDate[i].Top := day1.Top;
  175.       ChnDate[i].Left := Cnday.Left;
  176.       ChnDate[i].Top := Cnday.Top;

  178.     end
  179.     else
  180.     begin

  182.       if ((i - 1) / 7) = ((i - 1) div 7) then
  183.       begin
  184.         CnDate[i].Top := CnDate[i - 1].Top + 32;
  185.         CnDate[i].Left := day1.Left;
  186.         ChnDate[i].Top := ChnDate[i - 1].Top + 32;
  187.         ChnDate[i].Left := Cnday.Left;

  189.       end
  190.       else
  191.       begin

  193.         CnDate[i].Top := CnDate[i - 1].Top;
  194.         CnDate[i].Left := CnDate[i - 1].Left + 42;
  195.         ChnDate[i].Top := ChnDate[i - 1].Top;
  196.         ChnDate[i].Left := ChnDate[i - 1].Left + 42;

  198.       end;
  199.     end;
  200.     CnDate[i].Font := day1.Font;
  201.     ChnDate[i].Font := Cnday.Font;
  202.     CnDate[i].Font.Color := clBlack;
  203.     CnDate[i].AutoSize := false;
  204.     ChnDate[i].AutoSize := false;
  205.     CnDate[i].Transparent := true;
  206.     ChnDate[i].Transparent := true;

  208.       //        CnDate[i].Caption :='22';
  209.       //        CnDate[i].Visible  :=true;
  210.       //        ChnDate[i].Caption :='初一';

  212.   end;

  214. end;


  217. procedure TFRM_Date.DateChange(MyTime: TDateTime);
  218. var
  219.   i, S: integer;
  220.   StarNo: integer;
  221.   Present: TDateTime;
  222.   Year, Month, Day, Hour: Word;

  224. begin
  225.   //  Label6.Caption :=datetostr(MyTime);
  226.   //  Label14.Caption :='今天:'+datetostr(date);
  227.   //  MyDates:=MyTime;
  228.   Label20.Caption := IntToStr(DateUtils.YearOf(Mytime));
  229.   Label17.Caption := IntToStr(DateUtils.MonthOf(Mytime));
  230.   Label16.Caption := Label17.Caption;
  231.   Label1.Caption := IntToStr(DateUtils.YearOf(Mytime));
  232.   Label21.Caption := CnanimalOfYear(Mytime);


  235.   for i := 1 to 37 do
  236.   begin
  237.     CnDate[i].Visible := false;
  238.     ChnDate[i].Visible := false;
  239.     ChnDate[i].Font.Color := clBlack;
  240.     CnDate[i].Font.Color := clBlack;
  241.     CnDate[i].Font.Size := 11;
  242.     CnDate[i].Color := self.Color;
  243.     ChnDate[i].Color := self.Color;
  244.   end;

  246.   DecodeDate(MyTime, Year, Month, Day);
  247.   Present := EncodeDate(Year, Month, 1);
  248.   StarNo := dayofweek(Present);
  249.   s := starno + DayOfMonth(Present) - 1;
  250.   try
  251.     for i := StarNo to s do
  252.     begin
  253.       Present := EncodeDate(Year, Month, i - StarNo + 1);
  254.       CnDate[i].Caption := IntToStr(i - StarNo + 1);
  255.       CnDate[i].Tag := i - StarNo + 1;
  256.       ChnDate[i].Tag := CnDate[i].Tag;
  257.       ChnDate[i].Caption := CnDayOfDate(Present);
  258.       if ChnDate[i].Caption = '初一' then
  259.       begin
  260.         ChnDate[i].Caption := CnMonthOfDate(Present);
  261.         ChnDate[i].Font.Color := clRed;
  262.       end
  263.       else
  264.         ChnDate[i].Font.Color := Cnday.Font.Color;
  265.       if length(Holiday(MyTime, i - StarNo + 1)) > 3 then
  266.       begin
  267.         ChnDate[i].Caption := Holiday(MyTime, i - StarNo + 1);
  268.         ChnDate[i].Font.Color := $000080FF;
  269.       end;
  270.       if DateCn.GetLunarHolDay(Present) <> '' then
  271.       begin
  272.         ChnDate[i].Caption := GetLunarHolDay(Present);
  273.         ChnDate[i].Font.Color := $00FF5353;
  274.       end;
  275.       if DateCn.CnDayOfDateJr(Present) <> '' then
  276.       begin
  277.         ChnDate[i].Caption := CnDayOfDateJr(Present);
  278.         ChnDate[i].Font.Color := $000080FF;
  279.       end;
  280.       if i - StarNo + 1 = day then
  281.       begin

  283.         Shape2.Left := CnDate[i].left - 1;
  284.         Shape2.Top := CnDate[i].top + 1;
  285.         Label22.Caption := Constellation(Present, day);
  286.       end;


  289.       CnDate[i].Visible := true;
  290.       ChnDate[i].Visible := true;

  292.     end;

  294.   except
  295.     on EConvertError do
  296.     begin
  297.         //   showmessage(inttostr(i));
  298.       exit;
  299.     end
  300.   else exit;
  301.   end;

  303. end;


  306. procedure TFRM_Date.FormCreate(Sender: TObject);
  307. begin
  308.   LoadLAB;
  309.   NDate := Date;

  311. end;

  313. procedure TFRM_Date.FormShow(Sender: TObject);
  314. begin
  315.   DecodeDate(NDate, NYear, NMonth, NDay);
  316.   UpDown1.Position := NYear;
  317.   UpDown2.Position := NMonth;

  319.   DateChange(NDate);
  320. end;

  322. procedure TFRM_Date.CHnDayClick(Sender: TObject);
  323. begin
  324.   Label5Click(nil);
  325.   Nday := (sender as TLabel).Tag;
  326.   OK;
  327. end;

  329. procedure TFRM_Date.CnDayClick(Sender: TObject);
  330. begin
  331.   Label5Click(nil);
  332.   Nday := (sender as TLabel).Tag;
  333.   OK;

  335. end;

  337. procedure TFRM_Date.UpDown1Click(Sender: TObject; Button: TUDBtnType);
  338. var
  339.   Present: TDate;
  340. begin
  341.   NYear := UpDown1.Position;
  342.   Present := SetDateTime(NYear, NMonth, NDay);
  343.   DateChange(Present);
  344. end;

  346. procedure TFRM_Date.Label17Click(Sender: TObject);
  347. begin
  348.   UpDown2.Visible := true;
  349.   UpDown1.Visible := false;
  350. end;

  352. procedure TFRM_Date.UpDown2Click(Sender: TObject; Button: TUDBtnType);
  353. var
  354.   Present: TDate;
  355. begin
  356.   NMonth := UpDown2.Position;
  357.   Present := SetDateTime(NYear, NMonth, NDay);
  358.   DateChange(Present);

  360. end;

  362. procedure TFRM_Date.Label5Click(Sender: TObject);
  363. begin
  364.   UpDown2.Visible := False;
  365.   UpDown1.Visible := false;

  367. end;

  369. procedure TFRM_Date.FormDeactivate(Sender: TObject);
  370. begin
  371.   Self.Close;
  372. end;

  374. procedure TFRM_Date.ChnDateMouseDown(Sender: TObject; Button: TMouseButton;
  375.   Shift: TShiftState; X, Y: Integer);
  376. begin
  377.   Shape2.Left := (sender as TLabel).left;
  378.   Shape2.Top := (sender as TLabel).top - 16;

  380. end;

  382. procedure TFRM_Date.CnDayMouseDown(Sender: TObject; Button: TMouseButton;
  383.   Shift: TShiftState; X, Y: Integer);
  384. begin
  385.   Shape2.Left := (sender as TLabel).left - 1;
  386.   Shape2.Top := (sender as TLabel).top + 1;

  388. end;

  390. procedure TFRM_Date.StaticText1Click(Sender: TObject);
  391. begin
  392.   NDate := Date;
  393.   FormShow(nil);
  394. end;

  396. procedure TFRM_Date.OK;
  397. begin
  398.   NDate := EncodeDate(NYear, NMonth, NDay);
  399. //  TChnCalendar(MHostControl).IsInit := False;
  400.   TChnCalendar(MHostControl).DateTime := NDate;
  401.   Close;
  402. end;

  404. procedure TFRM_Date.ShowDateWin(YearEdit1, MonthEdit1, DayEdit1: TEdit;
  405.   HostControl: TControl; Bmp: TBitMap = nil; iAlphaBlend: Byte = 150);
  406. var
  407.   P: TPoint;
  408.   FBackPicture: TbitMap;
  409. begin
  410. {  if not FormExists('FRM_Date') then
  411.     Self := TFRM_Date.Create(Application);
  412.   YearEdit := YearEdit1;
  413.   MonthEdit := MonthEdit1;
  414.   DayEdit := DayEdit1;
  415. //  ChDateLabel := ChDateLabel1;
  416.   MHostControl := HostControl;

  418.   YearEdit.Text := IntToStr(StrTOIntDef(YearEdit.Text, YearOf(Date)));
  419.   MonthEdit.Text := IntToStr(StrTOIntDef(MonthEdit.Text, MonthOf(Date)));
  420.   DayEdit.Text := IntToStr(StrTOIntDef(DayEdit.Text, DayOfMonth(Date)));

  422.   if (StrToInt(YearEdit.Text) > 2050) or (StrToInt(YearEdit.Text) < 1901) then
  423.     YearEdit.Text := IntToStr(YearOf(Date));

  425.   if (StrToInt(MonthEdit.Text) > 12) or (StrToInt(MonthEdit.Text) < 1) then
  426.     MonthEdit.Text := IntToStr(MonthOf(Date));

  428.   if StrToInt(DayEdit.Text) > DayOfMonth(StrToInt(YearEdit.Text), StrToInt(MonthEdit.Text)) then
  429.     DayEdit.Text := IntToStr(DayOfMonth(StrToInt(YearEdit.Text), StrToInt(MonthEdit.Text)));

  431.   NDate := EncodeDate(StrToInt(YearEdit.text), StrToInt(MonthEdit.text), StrToInt(DayEdit.text));
  432.   AdjustDropDownForm(Self, HostControl);

  434.   Image1.Picture.Bitmap.Assign(Bmp);
  435.   Label16.Visible := Image1.Picture.Graphic = nil;
  436.   Label20.Visible := Image1.Picture.Graphic = nil;
  437.   if Image1.Picture.Graphic <> nil then
  438.   begin
  439.     FBackPicture := TbitMap.Create;
  440.     FBackPicture.Width := Image1.Width ;
  441.     FBackPicture.Height := Image1.Height;
  442.     FBackPicture.Canvas.Brush.Color := Color;
  443.     FBackPicture.Canvas.FillRect(RECT(0, 0, FBackPicture.Width,
  444.       FBackPicture.Height));

  446.     P := Point((FBackPicture.Width - bmp.Width) div 2,
  447.       (FBackPicture.Height - bmp.Height) div 2);
  448.     BmpAlphaBlend(FBackPicture, Bmp, P, iAlphaBlend);
  449.     Image1.Canvas.Draw(0, 0, FBackPicture);
  450.     FBackPicture.free;

  452.   end;
  453.   Self.Show;  }
  454. end;

  456. procedure TFRM_Date.FormClose(Sender: TObject; var Action: TCloseAction);
  457. begin
  458.   Application.RemoveComponent(Self);
  459.   Self := nil;
  460.   Self.Free;

  462. end;

  464. procedure TFRM_Date.FormPaint(Sender: TObject);
  465. var
  466.   P: TPoint;
  467.   FBackPicture: TbitMap;
  468. begin
  469. //
  470.                          {
  471.   if not FPicture.Empty then
  472.   begin
  473.     FBackPicture := TbitMap.Create;
  474.     FBackPicture.Width := ClientWidth;
  475.     FBackPicture.Height := ClientHeight;
  476.     FBackPicture.Canvas.Brush.Color := Color;
  477.     FBackPicture.Canvas.FillRect(RECT(0, 0, FBackPicture.Width,
  478.       FBackPicture.Height));

  480.     P := Point((FBackPicture.Width - FPicture.Width) div 2,
  481.       (FBackPicture.Height - FPicture.Height) div 2);
  482.     BmpAlphaBlend(FBackPicture, FPicture, P, FPicture_AlphaBlend);
  483.     Canvas.Draw(0, 0, FBackPicture);
  484.     FBackPicture.free;
  485.   end;
  486.   }
  487. end;

  489. end.
复制代码
PYG19周年生日快乐！
回复 支持 反对

使用道具 举报

黑夜彩虹

该用户从未签到
 楼主| 发表于 2006-6-4 22:50:17 | 显示全部楼层

DateWin.dfm

DateWin.dfm
  1. object FRM_Date: TFRM_Date
  2.   Left = 568
  3.   Top = 125
  4.   BorderStyle = bsNone
  5.   Caption = 'FRM_Date'
  6.   ClientHeight = 274
  7.   ClientWidth = 313
  8.   Color = clWhite
  9.   Font.Charset = GB2312_CHARSET
  10.   Font.Color = clWindowText
  11.   Font.Height = -12
  12.   Font.Name = #23435#20307
  13.   Font.Style = []
  14.   OldCreateOrder = False
  15.   OnClose = FormClose
  16.   OnCreate = FormCreate
  17.   OnDeactivate = FormDeactivate
  18.   OnPaint = FormPaint
  19.   OnShow = FormShow
  20.   PixelsPerInch = 96
  21.   TextHeight = 12
  22.   object Shape1: TShape
  23.     Left = 0
  24.     Top = 0
  25.     Width = 313
  26.     Height = 274
  27.     Align = alClient
  28.   end
  29.   object Image1: TImage
  30.     Left = 9
  31.     Top = 56
  32.     Width = 297
  33.     Height = 191
  34.   end
  35.   object Label20: TLabel
  36.     Left = 0
  37.     Top = 56
  38.     Width = 313
  39.     Height = 72
  40.     Alignment = taCenter
  41.     AutoSize = False
  42.     Caption = '2002'
  43.     Font.Charset = ANSI_CHARSET
  44.     Font.Color = 14543103
  45.     Font.Height = -64
  46.     Font.Name = 'Arial Black'
  47.     Font.Style = []
  48.     ParentFont = False
  49.     Transparent = True
  50.     Layout = tlCenter
  51.   end
  52.   object Label16: TLabel
  53.     Left = 0
  54.     Top = 98
  55.     Width = 313
  56.     Height = 134
  57.     Alignment = taCenter
  58.     AutoSize = False
  59.     Caption = '6'
  60.     Font.Charset = ANSI_CHARSET
  61.     Font.Color = 15461355
  62.     Font.Height = -120
  63.     Font.Name = 'Arial Black'
  64.     Font.Style = []
  65.     ParentFont = False
  66.     Transparent = True
  67.     Layout = tlCenter
  68.   end
  69.   object Bevel2: TBevel
  70.     Left = 9
  71.     Top = 46
  72.     Width = 297
  73.     Height = 10
  74.     Shape = bsBottomLine
  75.   end
  76.   object Shape2: TShape
  77.     Left = 12
  78.     Top = 56
  79.     Width = 38
  80.     Height = 30
  81.     Brush.Color = 8512126
  82.   end
  83.   object Label1: TLabel
  84.     Left = 120
  85.     Top = 0
  86.     Width = 76
  87.     Height = 41
  88.     Cursor = crHandPoint
  89.     Hint = #21333#20987#25913#21464#24180#20221
  90.     Alignment = taCenter
  91.     Caption = '2002'
  92.     Color = 15268607
  93.     Font.Charset = ANSI_CHARSET
  94.     Font.Color = clBlue
  95.     Font.Height = -29
  96.     Font.Name = 'Arial Black'
  97.     Font.Style = []
  98.     ParentColor = False
  99.     ParentFont = False
  100.     ParentShowHint = False
  101.     ShowHint = True
  102.     Transparent = True
  103.     Layout = tlCenter
  104.     OnClick = Label1Click
  105.   end
  106.   object Label2: TLabel
  107.     Left = 19
  108.     Top = 40
  109.     Width = 36
  110.     Height = 12
  111.     Alignment = taCenter
  112.     Caption = #26143#26399#26085
  113.     Font.Charset = GB2312_CHARSET
  114.     Font.Color = clRed
  115.     Font.Height = -12
  116.     Font.Name = #23435#20307
  117.     Font.Style = []
  118.     ParentFont = False
  119.     Layout = tlCenter
  120.     OnClick = Label5Click
  121.   end
  122.   object Label3: TLabel
  123.     Left = 59
  124.     Top = 40
  125.     Width = 36
  126.     Height = 12
  127.     Alignment = taCenter
  128.     Caption = #26143#26399#19968
  129.     Font.Charset = GB2312_CHARSET
  130.     Font.Color = clBlack
  131.     Font.Height = -12
  132.     Font.Name = #23435#20307
  133.     Font.Style = []
  134.     ParentFont = False
  135.     Layout = tlCenter
  136.     OnClick = Label5Click
  137.   end
  138.   object Label4: TLabel
  139.     Left = 99
  140.     Top = 40
  141.     Width = 36
  142.     Height = 12
  143.     Alignment = taCenter
  144.     Caption = #26143#26399#20108
  145.     Font.Charset = GB2312_CHARSET
  146.     Font.Color = clBlack
  147.     Font.Height = -12
  148.     Font.Name = #23435#20307
  149.     Font.Style = []
  150.     ParentFont = False
  151.     Layout = tlCenter
  152.     OnClick = Label5Click
  153.   end
  154.   object Label5: TLabel
  155.     Left = 179
  156.     Top = 40
  157.     Width = 36
  158.     Height = 12
  159.     Alignment = taCenter
  160.     Caption = #26143#26399#22235
  161.     Font.Charset = GB2312_CHARSET
  162.     Font.Color = clBlack
  163.     Font.Height = -12
  164.     Font.Name = #23435#20307
  165.     Font.Style = []
  166.     ParentFont = False
  167.     Layout = tlCenter
  168.     OnClick = Label5Click
  169.   end
  170.   object Label6: TLabel
  171.     Left = 139
  172.     Top = 40
  173.     Width = 36
  174.     Height = 12
  175.     Alignment = taCenter
  176.     Caption = #26143#26399#19977
  177.     Font.Charset = GB2312_CHARSET
  178.     Font.Color = clBlack
  179.     Font.Height = -12
  180.     Font.Name = #23435#20307
  181.     Font.Style = []
  182.     ParentFont = False
  183.     Layout = tlCenter
  184.     OnClick = Label5Click
  185.   end
  186.   object Label7: TLabel
  187.     Left = 259
  188.     Top = 40
  189.     Width = 36
  190.     Height = 12
  191.     Alignment = taCenter
  192.     Caption = #26143#26399#20845
  193.     Font.Charset = GB2312_CHARSET
  194.     Font.Color = clRed
  195.     Font.Height = -12
  196.     Font.Name = #23435#20307
  197.     Font.Style = []
  198.     ParentFont = False
  199.     Layout = tlCenter
  200.     OnClick = Label5Click
  201.   end
  202.   object Label8: TLabel
  203.     Left = 219
  204.     Top = 40
  205.     Width = 36
  206.     Height = 12
  207.     Alignment = taCenter
  208.     Caption = #26143#26399#20116
  209.     Font.Charset = GB2312_CHARSET
  210.     Font.Color = clBlack
  211.     Font.Height = -12
  212.     Font.Name = #23435#20307
  213.     Font.Style = []
  214.     ParentFont = False
  215.     Layout = tlCenter
  216.     OnClick = Label5Click
  217.   end
  218.   object day1: TLabel
  219.     Left = 14
  220.     Top = 56
  221.     Width = 36
  222.     Height = 16
  223.     Alignment = taCenter
  224.     AutoSize = False
  225.     Caption = '22'
  226.     Font.Charset = ANSI_CHARSET
  227.     Font.Color = clBlack
  228.     Font.Height = -14
  229.     Font.Name = 'Arial Black'
  230.     Font.Style = []
  231.     ParentFont = False
  232.     Transparent = True
  233.     Layout = tlCenter
  234.     Visible = False
  235.   end
  236.   object Cnday: TLabel
  237.     Left = 13
  238.     Top = 73
  239.     Width = 36
  240.     Height = 12
  241.     Alignment = taCenter
  242.     AutoSize = False
  243.     Caption = #21021#19968
  244.     Font.Charset = GB2312_CHARSET
  245.     Font.Color = 16384
  246.     Font.Height = -12
  247.     Font.Name = #23435#20307
  248.     Font.Style = []
  249.     ParentFont = False
  250.     Transparent = True
  251.     Layout = tlCenter
  252.     Visible = False
  253.   end
  254.   object Label9: TLabel
  255.     Left = 20
  256.     Top = 253
  257.     Width = 36
  258.     Height = 12
  259.     Alignment = taCenter
  260.     Caption = #26143#26399#26085
  261.     Font.Charset = GB2312_CHARSET
  262.     Font.Color = clRed
  263.     Font.Height = -12
  264.     Font.Name = #23435#20307
  265.     Font.Style = []
  266.     ParentFont = False
  267.     Layout = tlCenter
  268.   end
  269.   object Label10: TLabel
  270.     Left = 60
  271.     Top = 253
  272.     Width = 36
  273.     Height = 12
  274.     Alignment = taCenter
  275.     Caption = #26143#26399#19968
  276.     Font.Charset = GB2312_CHARSET
  277.     Font.Color = clBlack
  278.     Font.Height = -12
  279.     Font.Name = #23435#20307
  280.     Font.Style = []
  281.     ParentFont = False
  282.     Layout = tlCenter
  283.   end
  284.   object Label11: TLabel
  285.     Left = 100
  286.     Top = 253
  287.     Width = 36
  288.     Height = 12
  289.     Alignment = taCenter
  290.     Caption = #26143#26399#20108
  291.     Font.Charset = GB2312_CHARSET
  292.     Font.Color = clBlack
  293.     Font.Height = -12
  294.     Font.Name = #23435#20307
  295.     Font.Style = []
  296.     ParentFont = False
  297.     Layout = tlCenter
  298.   end
  299.   object Label12: TLabel
  300.     Left = 140
  301.     Top = 253
  302.     Width = 36
  303.     Height = 12
  304.     Alignment = taCenter
  305.     Caption = #26143#26399#19977
  306.     Font.Charset = GB2312_CHARSET
  307.     Font.Color = clBlack
  308.     Font.Height = -12
  309.     Font.Name = #23435#20307
  310.     Font.Style = []
  311.     ParentFont = False
  312.     Layout = tlCenter
  313.   end
  314.   object Label13: TLabel
  315.     Left = 180
  316.     Top = 253
  317.     Width = 36
  318.     Height = 12
  319.     Alignment = taCenter
  320.     Caption = #26143#26399#22235
  321.     Font.Charset = GB2312_CHARSET
  322.     Font.Color = clBlack
  323.     Font.Height = -12
  324.     Font.Name = #23435#20307
  325.     Font.Style = []
  326.     ParentFont = False
  327.     Layout = tlCenter
  328.   end
  329.   object Label14: TLabel
  330.     Left = 220
  331.     Top = 253
  332.     Width = 36
  333.     Height = 12
  334.     Alignment = taCenter
  335.     Caption = #26143#26399#20116
  336.     Font.Charset = GB2312_CHARSET
  337.     Font.Color = clBlack
  338.     Font.Height = -12
  339.     Font.Name = #23435#20307
  340.     Font.Style = []
  341.     ParentFont = False
  342.     Layout = tlCenter
  343.   end
  344.   object Label15: TLabel
  345.     Left = 260
  346.     Top = 253
  347.     Width = 36
  348.     Height = 12
  349.     Alignment = taCenter
  350.     Caption = #26143#26399#20845
  351.     Font.Charset = GB2312_CHARSET
  352.     Font.Color = clRed
  353.     Font.Height = -12
  354.     Font.Name = #23435#20307
  355.     Font.Style = []
  356.     ParentFont = False
  357.     Layout = tlCenter
  358.   end
  359.   object Bevel1: TBevel
  360.     Left = 9
  361.     Top = 240
  362.     Width = 297
  363.     Height = 10
  364.     Shape = bsBottomLine
  365.   end
  366.   object Label17: TLabel
  367.     Left = 10
  368.     Top = 3
  369.     Width = 36
  370.     Height = 37
  371.     Cursor = crHandPoint
  372.     Hint = #21333#20987#25913#21464#26376#20221
  373.     Alignment = taCenter
  374.     Caption = '12'
  375.     Font.Charset = ANSI_CHARSET
  376.     Font.Color = 12615808
  377.     Font.Height = -32
  378.     Font.Name = 'Arial'
  379.     Font.Style = [fsBold]
  380.     ParentFont = False
  381.     ParentShowHint = False
  382.     ShowHint = True
  383.     Transparent = True
  384.     OnClick = Label17Click
  385.   end
  386.   object Label18: TLabel
  387.     Left = 45
  388.     Top = 20
  389.     Width = 15
  390.     Height = 14
  391.     Caption = #26376
  392.     Font.Charset = GB2312_CHARSET
  393.     Font.Color = clWindowText
  394.     Font.Height = -14
  395.     Font.Name = #23435#20307
  396.     Font.Style = [fsBold]
  397.     ParentFont = False
  398.   end
  399.   object Label19: TLabel
  400.     Left = 205
  401.     Top = 17
  402.     Width = 15
  403.     Height = 14
  404.     Caption = #24180
  405.     Font.Charset = GB2312_CHARSET
  406.     Font.Color = clWindowText
  407.     Font.Height = -14
  408.     Font.Name = #23435#20307
  409.     Font.Style = [fsBold]
  410.     ParentFont = False
  411.   end
  412.   object Label21: TLabel
  413.     Left = 230
  414.     Top = 212
  415.     Width = 78
  416.     Height = 35
  417.     Alignment = taCenter
  418.     AutoSize = False
  419.     Caption = #26411#40857
  420.     Font.Charset = GB2312_CHARSET
  421.     Font.Color = 16768477
  422.     Font.Height = -35
  423.     Font.Name = #38582#20070
  424.     Font.Style = [fsBold]
  425.     ParentFont = False
  426.     Transparent = True
  427.   end
  428.   object Label22: TLabel
  429.     Left = 152
  430.     Top = 223
  431.     Width = 69
  432.     Height = 23
  433.     Alignment = taCenter
  434.     AutoSize = False
  435.     Caption = #26411#40857
  436.     Font.Charset = GB2312_CHARSET
  437.     Font.Color = 16744703
  438.     Font.Height = -19
  439.     Font.Name = #40657#20307
  440.     Font.Style = [fsBold]
  441.     ParentFont = False
  442.     Transparent = True
  443.   end
  444.   object UpDown1: TUpDown
  445.     Left = 221
  446.     Top = 10
  447.     Width = 16
  448.     Height = 24
  449.     Min = 1901
  450.     Max = 2050
  451.     Position = 1901
  452.     TabOrder = 0
  453.     Visible = False
  454.     OnClick = UpDown1Click
  455.   end
  456.   object UpDown2: TUpDown
  457.     Left = 61
  458.     Top = 10
  459.     Width = 16
  460.     Height = 24
  461.     Min = 1
  462.     Max = 12
  463.     Position = 12
  464.     TabOrder = 1
  465.     Visible = False
  466.     OnClick = UpDown2Click
  467.   end
  468.   object StaticText1: TStaticText
  469.     Left = 272
  470.     Top = 17
  471.     Width = 28
  472.     Height = 16
  473.     Cursor = crHandPoint
  474.     Alignment = taCenter
  475.     BorderStyle = sbsSingle
  476.     Caption = #20170#22825
  477.     Color = 13693646
  478.     ParentColor = False
  479.     TabOrder = 2
  480.     OnClick = StaticText1Click
  481.   end
  482. end
复制代码
PYG19周年生日快乐！
回复 支持 反对

使用道具 举报

wpj1122

该用户从未签到
发表于 2006-6-5 20:39:23 | 显示全部楼层
晕了....
PYG19周年生日快乐！
回复 支持 反对

使用道具 举报

xgh163

该用户从未签到
发表于 2006-6-5 22:07:08 | 显示全部楼层
倒了~~~
PYG19周年生日快乐！
回复 支持 反对

使用道具 举报

caterpilla

该用户从未签到
发表于 2006-6-7 12:42:22 | 显示全部楼层
收下了！！！！
PYG19周年生日快乐！
回复 支持 反对

使用道具 举报

野猫III
  • TA的每日心情
    开心
    2018-5-6 16:27

    • 签到天数: 7 天

    [LV.3]偶尔看看II
    发表于 2006-6-10 12:32:57 | 显示全部楼层
    写编程。。。谈何容易呀。。。
    PYG19周年生日快乐！
    回复 支持 反对

    使用道具 举报

    fdisk926

    该用户从未签到
    发表于 2006-6-13 12:55:49 | 显示全部楼层
    慌了~~~~~
      这么多地~~~
    有没有POWERBUILDER    这样的东西啊 ~
      学习学习啊~
    PYG19周年生日快乐！
    回复 支持 反对

    使用道具 举报

    返回列表 发新帖
    高级模式
    B Color Image Link Quote Code Smilies
    您需要登录后才可以回帖 登录 | 加入我们

    本版积分规则

    快速回复 返回顶部 返回列表