Announcement

**Mario.Noack** · 07.08.2000, 15:19

Hallo,
diese Klasse hab ich immer eingebunden, keine Ahnung mehr, wo die her ist:
{
   Klasse zum ermitteln der festen und beweglichen Feiertage
   aller Bundesländer.
  Bei Jahreszahlen, die in der Vergangenheit liegen, stimmen nicht
   alle Feiertage (z.b. Tag der deutschen Einheit, den gibt es
erst seit
   1991(?) )
  Feiertage, die innerhalb eines Bundeslandes nur Stadtbezogen
sind,
   sind nicht implementiert.
   Die wichtigsten sind aber alle da und stimmen hoffentlich auch,
aber...
   ...für die Richtigkeit der Feiertage gebe ich keine Gewähr

-----------------------------------------------------
   Autor:    Dieter Hildenbrand
        &nbs p;   
E-Mail: [email protected]
  Compiler: Delphi 3.0
   -----------------------------------------------------
  Abkürzungen der Bundesländer  (TLand)
  BW Baden Würtemberg
   BY Bayern
   BE Berlin
   BB Brandenburg
   HB Bremen
   HH Hamburg
   HE Hessen
   MV Mecklenburg-Vorpommern
   NI Niedersachsen
   NW Nordrhein-Westfalen
   RP Rheinland-Pfalz
   SL Saarland
   SN Sachsen
   ST Sachsen-Anhalt
   SH Schleswig Holstein
   TH Thüringen
  }
unit UnitFeiertage;
interface
uses
   SysUtils, Classes;
type
   TLand =(BW,BY,BE,BB,HB,HH,HE,MV,NI,NW,RP,SL,SN,ST,SH,TH) ;
type
   TFeiertage = class
   private
      FLand : TLand;
      FJahr : integer;
      FTage : TStringList;
      FOstern : TDateTime;
      procedure Feiertage;
      procedure Ostern;
      procedure SetFJahr(value:integer);
      procedure SetFLand(value:TLand);
   public
      constructor init(ajahr:integer);
      destructor Destroy;override;
      function IstFeiertag(tag,monat,jahr:integer):boolean;
      property Jahr: integer read FJahr write SetFJahr;
      property Land: TLand read FLand write SetFLand;
 end;
implementation
constructor TFeiertage.init(ajahr : integer);
 var
   j,m,t: Word;
 begin
  // ShortDateFormat := 'dd.mm.yyyy';
   FJahr := ajahr;
   FLand := BW;
   FTage := TStringList.Create;
   Feiertage;
 end;
destructor TFeiertage.Destroy;
 begin
   FTage.Free;
   inherited Destroy;
 end;
procedure TFeiertage.SetFJahr(value:integer);
 begin
   if value <> FJahr then
   begin
      FJahr := value;
      Feiertage;
   end;
 end;
procedure TFeiertage.SetFLand(value:TLand);
 begin
   if value <> FLand then
   begin
      FLand := value;
      Feiertage;
   end;
 end;
procedure TFeiertage.Feiertage;
 var
   temp: TDateTime;
 begin
   Ostern;
   FTage.Clear;
  //feste Feiertage aller Länder
   FTage.Add('01.01.' + IntToStr(FJahr));   //Neujahr
   FTage.Add('01.05.' + IntToStr(FJahr));   //Maifeiertag
   FTage.Add('03.10.' + IntToStr(FJahr));   //Tag der
deutschen Einheit
   FTage.Add('25.12.' + IntToStr(FJahr));   //1.Weihnachtsfeiertag
   FTage.Add('26.12.' + IntToStr(FJahr));   //2.Weihnachtsfeiertag
&#10

**Mario.Noack** · 07.08.2000, 15:22

und weiter gehts...
  //bewegliche Feiertage aller Länder
   FTage.Add(DateToStr(FOstern - 2));      
//Karfreitag
   FTage.Add(DateToStr(FOstern));   &n bsp;      
//Ostersonntag
   FTage.Add(DateToStr(FOstern + 1));      
//Ostermontag
   FTage.Add(DateToStr(FOstern + 39));     
//Himmelfahrt
   FTage.Add(DateToStr(FOstern + 49));     
//Pfingstsonntag
   FTage.Add(DateToStr(FOstern + 50));     
//Pfingstmontag
  //feste und bewegliche Feiertage nicht aller Länder
   if FLand in [BW,BY,ST] then
   FTage.Add('06.01.' + IntToStr(FJahr));   //Heilige
3 Könige
  if FLand in [BW,BY,HE,NW,RP,SL,SN,TH] then
   FTage.Add(DateToStr(FOstern + 60));     
//Fronleichnam
  if FLand in [BY,SL] then
   FTage.Add('15.08.' + IntToStr(FJahr));   //Mariä
Aufnahme
  if FLand in [BB,MV,SN,ST,TH] then
   FTage.Add('31.10.' + IntToStr(FJahr));   //Reformationstag
  if FLand in [BW,BY,NW,RP,SL] then
   FTage.Add('01.11.' + IntToStr(FJahr));   //Allerheiligen
  if FLand = SN then       &nbs p;               
//Buß-und Bettag
   begin
      temp := StrToDate('17.11.'+ IntToStr(FJahr));
      while DayOfWeek(temp) <> 4 do
         temp := temp + 1;
      FTage.Add(DateToStr(temp));
   end;
 end;
// Ermitteln des Ostersonntags (korrektes Datum nur von 1583-2399)
 // Die Funktion stammt aus dem SWAG-Archiv
 procedure TFeiertage.Ostern;
 var
   nMonth, nDay, nMoon, nEpact, nSunday, nGold, nCent, nCorx, nCorz:
Integer;
 begin
   { The Golden Number of the year in the 19 year Metonic Cycle
}
   nGold := ( ( FJahr mod 19 ) + 1  );
  { Calculate the Century }
   nCent := ( ( FJahr div 100 ) + 1 );
  { No. of Years in which leap year was dropped in order to keep
in step
   with the sun }
   nCorx := ( ( 3 * nCent ) div 4 - 12 );
  { Special Correction to Syncronize Easter with the moon's orbit
}
   nCorz := ( ( 8 * nCent + 5 ) div 25 - 5 );
  { Find Sunday }
   nSunday := ( ( 5 * FJahr ) div 4 - nCorx - 10 );
  { Set Epact (specifies occurance of full moon }
   nEpact := ( ( 11 * nGold + 20 + nCorz - nCorx ) mod 30 );
  if ( nEpact < 0 ) then
      nEpact := nEpact + 30;
  if ( ( nEpact = 25 ) and ( nGold > 11 ) ) or ( nEpact = 24 )
then
      nEpact := nEpact + 1;
  { Find Full Moon }
   nMoon := 44 - nEpact;
  if ( nMoon < 21 ) then
      nMoon := nMoon + 30;
  { Advance to Sunday }
   nMoon := ( nMoon + 7 - ( ( nSunday + nMoon ) mod 7 ) );
  if ( nMoon > 31 ) then
   begin
      nMonth := 4;
      nDay   := ( nMoon - 31 );
   end
     else
   begin
      nMonth := 3;
      nDay   := nMoon;
   end;
  FOstern := EncodeDate( FJahr, nMonth, nDay );
 end;
function TFeiertage.IstFeiertag(tag,monat,jahr:integer):boo lean;
 var
   ret:boolean;
   j:integer;
   temp1,temp2:TDateTime;
 begin
   ret := false;
   temp1 := EncodeDate(jahr,monat,tag);
&#10

**Mario.Noack** · 07.08.2000, 15:24

for j := 0 to FTage.Count - 1 do
   begin
      temp2 := StrToDate(FTage.Strings[j]);
      if temp1 = temp2 then
      begin
         ret := true;
         Break;
      end;
   end;
  Result := ret;
 end;
end

**Wolfgang Lemmermeyer** · 08.08.2000, 10:11

Hallo Mario!

Vielen herzlichen Dank!

Wolfgan

Announcement

Feiertage und so weiter

Feiertage und so weiter

Comment

Comment

Comment

Comment