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;
Thread beobachten
Seitenaufteilung abschaltenBitte 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.