1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:
126:
127:
128:
129:
130:
131:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Grids, Spin;

type
  TForm1 = class(TForm)
    SpinEdit1: TSpinEdit;
    StringGrid1: TStringGrid;
    ComboBox1: TComboBox;
    procedure FormCreate(Sender: TObject);
    procedure MonateChange(Sender: TObject);
    procedure JahrChange(Sender: TObject);
  private
    { Private-Deklarationen }
    Monatstage: Array[1..12] of Integer;
    function IstSchaltjahr(Jahr: Integer): Boolean;
    function Wochentag(Tag, Monat, Jahr: Integer): Integer;
    function Monatstage(Monat, Jahr: Integer): Integer;
    procedure leer;
    procedure ausfuellen;

  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
  with Tage do
    begin
      Cells[0,0]:= '  Mo';
      Cells[1,0]:= '  Di';
      Cells[2,0]:= '  Mi';
      Cells[3,0]:= '  Do';
      Cells[4,0]:= '  Fr';
      Cells[5,0]:= '  Sa';
      Cells[6,0]:= '  So';
    end;
  Monate.ItemIndex:= 0;
  Monatstage[ 1]:= 31;
  Monatstage[ 2]:= 28;
  Monatstage[ 3]:= 31;
  Monatstage[ 4]:= 30;
  Monatstage[ 5]:= 31;
  Monatstage[ 6]:= 30;
  Monatstage[ 7]:= 31;
  Monatstage[ 8]:= 31;
  Monatstage[ 9]:= 30;
  Monatstage[10]:= 31;
  Monatstage[11]:= 30;
  Monatstage[12]:= 31;
  Zeigen;
end;


function TForm1.Wochentag(Tag, Monat, Jahr: Integer): Integer;
begin
  if Monat > 2 then begin
       Monat:= Monat - 2;
  Result:= (Tag + (13*Monat-1) div 5 +
            Jahr + Jahr div 4 - Jahr div 100 + Jahr div 400) mod 7;
            else
  then begin
    Monat:= 10 + Monat;
    Jahr:= Jahr - 1;
    end;

procedure TForm1.leer;
  Var i, j: Integer;
begin
  for j:= 1 to 6 do
    for i:= 0 to 6 do
      Tage.Cells[i,j]:= '';
end;


procedure TForm1.ausfuellen;
  var i, j, Tag, Monat, Jahr, Wochentag, Woche: Integer;
begin
  Loeschen;
  Jahr := Jahr.Value;
  Monat:= Monate.ItemIndex + 1;
  Tag  := 1;
  Wochentag:= Wochentag(Tag, Monat, Jahr);
  If Wochentag = 0
    then Wochentag:= 6
    else Wochentag:= Wochentag - 1;
  Woche:= 1;
  for i:= 1 to Monatstage(Monat, Jahr) do begin
    if i < 10
      then Tage.Cells[Wochentag, Woche]:= '    ' + IntToStr(i)
      else Tage.Cells[Wochentag, Woche]:= '  ' + IntToStr(i);
    Wochentag:= Wochentag + 1;
    If Wochentag = 7 then begin
      Wochentag:= 0;
      Woche:= Woche + 1;
    end;
  end;
end;


function TForm1.Monatstage(Monat, Jahr: Integer): Integer;
begin
  Result:= Monatstage[Monat];
  If (Monat = 2) and IstSchaltjahr(Jahr) then
    Result:= Monatstage[2]+1
end;

procedure TForm1.MonateChange(Sender: TObject);
begin
  ausfuellen;
end;

procedure TForm1.JahrChange(Sender: TObject);
begin
  ausfuellen;
end;



end.