這是一個萬年暦的程式 , 透過button1來輸入年份, button2來輸入月份後,可以 執行結果如下一張圖檔連結,這是網路上找的所以作者不知名,我也看不懂他中間寫的那一段用"------"框起來的部分,希望各位大大能夠幫我解釋一下,如果可以就近量多寫或著是在旁邊註解一下也好...我不了解萬年暦的公式,不知道要去那兒找,急著想要了解,回答的人我會極力的感謝你的... (因為不會貼圖貼不出來,所以用圖檔連結,抱歉!!) http://homelf.kimo.com.tw/cleverman319/calender1.JPG http://homelf.kimo.com.tw/cleverman319/calender2.JPG 程式如下: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Edit1: TEdit; Edit2: TEdit; Button2: TButton; Label1: TLabel; Label2: TLabel; procedure FormCreate(Sender: TObject); procedure FormPaint(Sender: TObject); procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure FormDestroy(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; a:tbitmap; implementation {$R *.dfm} var sty:integer=1980; stw:integer=2; asky:integer; askm:integer=2; askw:integer; sday:integer=31; i,j,k:integer; ---------------------------------------------------------------------- procedure TForm1.Button1Click(Sender: TObject); var X,bb,cc,alday:integer; begin i:=1;j:=1;k:=1;askw:=stw;alday:=0; asky:=strtoint(edit1.Text); askm:=strtoint(edit2.Text); form1.Canvas.TextOut(17,1,'日 一 二 三 四 五 六'); for bb:=1980 to asky-1 do begin if((X mod 4= 0)and(asky mod 100<>0) )then alday:=alday 1; if((X mod 400=0) and (asky mod 100=0))then alday:=alday 1; alday:=alday 365; end; askw:=(alday askw) mod 7; for X:= 1 to askm-1 do begin case X of 1,3,5,7,8,10,12: begin askw:=(31 askw) mod 7 end; 4,6,9,11: begin askw:=(30 askw) mod 7 end; 2: begin askw:=(28 askw) mod 7 end; end; end; case askm of 1,3,5,7,8,10,12: begin sday:=31 end; 4,6,9,11: begin sday:=30 end; 2: begin sday:=28; if((asky mod 4= 0)and(asky mod 100<>0) )then sday:=sday 1; if((asky mod 400=0) and (asky mod 100=0))then sday:=sday 1 end; end; for k:= 1 to 7-askw do begin form1.Canvas.TextOut(17*(askw k),15*i,inttostr(k)); end; for i:= 2 to 6 do begin for j:= 1 to 7 do begin if(k-1 j (i-2)*7 <= sday)then form1.Canvas.TextOut(17*(j),15*i,inttostr(k-1 j (i-2)*7)); end; end; // edit1.Text :=inttostr(askw); button1.Hide ; end; ---------------------------------------------------------------------- procedure TForm1.Button2Click(Sender: TObject); begin close; end;