Kalender

[Klaus01]

... weil Weihnachten war

Delphi-Quellcode:

function schaltJahr(jahr:Integer):Byte;
begin
  // gibt 0 zurück wenn jahr kein Schaltjahr ist
  // gibt 1 zurück wenn jahr ein Schaltjahr ist
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  dayCount : Byte;
  i : Byte;
begin
  case (monatsAuswahl.Items.IndexOf(monatsAuswahl.Text)+1) of
    1,3,5,7,8,10,12 : dayCount:=31;
    2               : dayCount := 28 + schaltJahr(StrToInt(jahresAuswahl.Text));
  else
    dayCount := 30;
  end;

  for i:=0 to 35 do
    begin
      if i <= dayCount -1 then
        kalenderBlatt.Cells[(i) mod 7, (i) div 7]:=IntToStr(i+1)
      else
        kalenderBlatt.Cells[(i) mod 7, (i) div 7]:='';

    end;
end;

Was benutzt wurde,
2 x ComboBox (monatsAuswahl, jahresAuswahl)
1 x StringGrid ( 7 Spalten 5 Zeilen)

Grüße
Klaus