Hi Bin auf der Suche nach einer Funktion, welche mir die gesetzlichen Feiertage anhand des Jahres berechnen. Ostern habe ich nach der Gauss'schen Osterformel bereits berechnet, ist soweit auch kein Problem. http://www.a-m-i.de/tips/datetime/datetime.php Hat aber jemand eine Idee, wie man anhand des Osterdatums elegant auf zBsp. Pfingstsonntag schliessen kann (49Tage nach Ostern). Mit einer höheren Programmiersprache (Delphi, C# usw.) kein Problem, hier hat man die entsprechenden Funktionen, um Daten zu berechnen. Wie aber mach ich das am besten mit meinem CCS- Pic Compiler? Ist ziemlich mühsam das ganze mit if-Anweisungen durch zu kauen. Bin für Tip's sehr dankbar. Gruss Andy
>Hat aber jemand eine Idee, wie man anhand des Osterdatums elegant auf >zBsp. Pfingstsonntag schliessen kann (49Tage nach Ostern). 49/7=7 Rest 0. Hm.. vielleicht exakt 7Wochen später?
Gesucht: Compiler der folgenden Ausdruck auswerten kann: Pfingsten = 23.03.2008 + 7Wochen; :-)
Hallo Andy schau Dir mal diesen Delphi-Code an: http://www.delphi-fundgrube.de/files/feiertg.txt Den setzen wir ein, um alle möglichen Feiertage zu berechnen. Gruß Frank
Datum in Absolutzahl von Tagen seit Jahresbeginn umrechnen dann 49 Tage addieren und Absolutzahl wieder in Datum umrechen.
>Pfingsten = 23.03.2008 + 7Wochen; :-)
Hm..
23. 03. 2008
+49
----------------
72. 03. 2008
-31 + 1 ( da März )
----------------
41. 04. 2008 (weil größer als 30[April] ):
-30 + 1 ( da April )
----------------
11. 05. 2008
Denkbar?
Hi Ich habe mir für Delphi mal die Routinen im Anhang ausgedacht. Vielleicht hilft es. MfG Spess
Hi Danke Leute für die Infos! @Frank: Sowas hab ich auch gefunden, nur werden dort immer spezielle Funktionen (Encodedate usw.) verwendet, welches das ganze natürlich zum Kinderspiel werden lassen. @Matthias: Funktioniert sicher auch, wird aber glaub ich doch recht aufwändig, wenn es für alle Feiertage gemacht werden muss. Der Vorschlag von Ulli scheit ziemlich universell zu sein, werd ich mal versuchen: Hier mal der erste Teil. Datum in Absolutzahl von Tagen seit Jahresbeginn umrechnen: [c] bool istEinSchaltjahr(const UINT uJahr) { // Die Regel lautet: Alles, was durch 4 teilbar ist, ist ein Schaltjahr. // Es sei denn, das Jahr ist durch 100 teilbar, dann ist es keins. // Aber wenn es durch 400 teilbar ist, ist es doch wieder eins. if ((uJahr % 400) == 0) return true; else if ((uJahr % 100) == 0) return false; else if ((uJahr % 4) == 0) return true; return false; } // ----------------------- short getAnzahlTageImMonat(const UINT uMonat, const UINT uJahr) { // ungült,Jan,Feb,Mrz,Apr,Mai,Jun,Jul,Aug,Sep,Okt,Nov,Dez int arrTageImMonat[13] = { 0, 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31 }; if (uMonat == 2) { // Februar: Schaltjahr unterscheiden if (istEinSchaltjahr(uJahr)) return 29; else return 28; } if ((uMonat >= 1) && (uMonat <= 12)) return arrTageImMonat[uMonat]; else { _ASSERT(0); // ungültiger Monat ! return 0; } } // ----------------------- short getTagDesJahres(const UINT uTag, const UINT uMonat, const UINT uJahr) { // Der wievielte Tag des Jahres ist dieser Tag if ((uMonat == 0) || (uMonat > 12)) { _ASSERT(0); return -1; } UINT uLokalTag = uTag; UINT uLokalMonat = uMonat; while (uLokalMonat > 1) { uLokalMonat--; uLokalTag += getAnzahlTageImMonat(uLokalMonat, uJahr); } return uLokalTag; } [-c] Hat vielleicht jemand gerade C-Source zur Hand, um anhand einer Absolutzahl ein Datum zu berechnen? Bin nicht gerade der geborene Mathematiker. Würde das ganze bei Erfolg in die Codesammlung stellen.
Hallo spess53 Sieht gut aus! Werd ich mir für die Delphi Programmierung auch mal anschauen. Im Moment geht es mir aber wie gesagt um ANCI-C Code, welcher ich für verschiedene uC C- Compiler verwenden kann.
Hi Mir ging es weniger um Delphi. Aber ich habe damals einige Zeit verbracht, die Beziehungen zwischen den Feiertagen heraus zu bekommen. Die Osterberechnung stammt z.B. aus einem Brockhaus von 1936. MfG Spess
hier mal der Funktionscode für EncodeDate in Delphi. [c] MonthDays: array [Boolean] of TDayTable = ((31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31), (31, 29, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31)); function IsLeapYear(Year: Word): Boolean; begin Result := (Year mod 4 = 0) and ((Year mod 100 <> 0) or (Year mod 400 = 0)); end; function TryEncodeDate(Year, Month, Day: Word; out Date: TDateTime): Boolean; var I: Integer; DayTable: PDayTable; begin Result := False; DayTable := @MonthDays[IsLeapYear(Year)]; if (Year >= 1) and (Year <= 9999) and (Month >= 1) and (Month <= 12) and (Day >= 1) and (Day <= DayTable^[Month]) then begin for I := 1 to Month - 1 do Inc(Day, DayTable^[I]); I := Year - 1; Date := I * 365 + I div 4 - I div 100 + I div 400 + Day - DateDelta; Result := True; end; end; procedure DecodeDate(const DateTime: TDateTime; var Year, Month, Day: Word); var Dummy: Word; begin DecodeDateFully(DateTime, Year, Month, Day, Dummy); end; function DecodeDateFully(const DateTime: TDateTime; var Year, Month, Day, DOW: Word): Boolean; const D1 = 365; D4 = D1 * 4 + 1; D100 = D4 * 25 - 1; D400 = D100 * 4 + 1; var Y, M, D, I: Word; T: Integer; DayTable: PDayTable; begin T := DateTimeToTimeStamp(DateTime).Date; if T <= 0 then begin Year := 0; Month := 0; Day := 0; DOW := 0; Result := False; end else begin DOW := T mod 7 + 1; Dec(T); Y := 1; while T >= D400 do begin Dec(T, D400); Inc(Y, 400); end; DivMod(T, D100, I, D); if I = 4 then begin Dec(I); Inc(D, D100); end; Inc(Y, I * 100); DivMod(D, D4, I, D); Inc(Y, I * 4); DivMod(D, D1, I, D); if I = 4 then begin Dec(I); Inc(D, D1); end; Inc(Y, I); Result := IsLeapYear(Y); DayTable := @MonthDays[Result]; M := 1; while True do begin I := DayTable^[M]; if D < I then Break; Dec(D, I); Inc(M); end; Year := Y; Month := M; Day := D + 1; end; end; [c] Diese Routinen sollten sich eigentlich sehr einfach in C umsetzen lassen. Gruß Frank function EncodeDate(Year, Month, Day: Word): TDateTime; begin if not TryEncodeDate(Year, Month, Day, Result) then ConvertError(@SDateEncodeError); end;
Bitte melde dich an um einen Beitrag zu schreiben. Anmeldung ist kostenlos und dauert nur eine Minute.
Bestehender Account
Schon ein Account bei Google/GoogleMail? Keine Anmeldung erforderlich!
Mit Google-Account einloggen
Mit Google-Account einloggen
Noch kein Account? Hier anmelden.