Formelberechnung für Muttertag
gerhard beck
kann mir jemand die berechnungsformel für muttertag liefern?
wieviel tage nach ostern ist muttertag?
besten dank für die hilfe.
gerhard aus bayen
Hans Scheer
Muttertag ist der 2te Sonntag im Mai. Also
=(DATUM(2005;5;))+15-(WOCHENTAG((DATUM(2005;5;1));1))
Gruß Hans
"gerhard beck" <gerhar...@scario.de> schrieb im Newsbeitrag
news:3ahph9F...@individual.net...
Hans Scheer
=(DATUM(2005;5;1))+15-(WOCHENTAG((DATUM(2005;5;1));1))
"Hans Scheer" <has...@web.de> schrieb im Newsbeitrag
news:d20fdn$mma$05$1...@news.t-online.com...
Herbert Taferner
> Muttertag ist der 2te Sonntag im Mai.
das stimmt nicht immer siehe letzter Satz und diese
Konstellation trifft gerade in den nächsten Jahren
vermehrt zu
'****************************************
1872 trat die Schriftstellerin und
Frauenrechtlerin Julia W. Howe mit der Forderung,
daß amerikanischen Müttern ein offizieller
Feiertag gebühre, an die Öffentlichkeit.
Ihre Tochter, Ann Marie Reeves Jarvis,
griff die Idee wieder auf und startete am 9. Mai 1907, dem
2. Todestag ihrer Mutter, einen Werbefeldzug für die
Einführung eines offiziellen Muttertag, der letztlich
von Erfolg gekrönt war, als Präsident Woodrow Wilson
am 8. Mai 1914 den Muttertag für jeden zweiten Sonntag
im Mai zum nationalen Ehrentag erklärte.
Neben dem Brauch, an diesem Tage eine farbige Nelke
zu Ehren der lebenden Mütter zu tragen oder eine weiße
in Angedenken für die bereits gestorbenen, setzte sich
von da an auch das Versenden oder Übergeben von
Muttertagskarten durch.
Nach dem Ersten Weltkrieg setzte sich der Muttertag
auch auf dem europäischen Festland durch,
zunächst in Österreich und Skandinavien,
1923 dann auch in Deutschland.
Im »Dritten Reich« erklärten 1933 die Nationalsozialisten
den Familienfesttag zum Staatsfeiertag (zweiter Sonntag im Mai)
und mißbrauchten ihn für ihre Mutterkult-Ideologie.
Mit der Gründung der Bundesrepublik 1949 wurde
der Muttertag wieder ein rein privater Feiertag.
In der ehemaligen DDR wurde der Muttertag nicht offiziell begangen.
Er wurde durch den Internationalen Frauentag am 8. März ersetzt.
Hinweis: Sollte der Muttertag auf den Pfingstsonntag fallen,
so ist der Muttertag einen Sonntag früher.
siehe auch
http://frankfurt-interaktiv.de/specials/muttertag/muttertag.html
mfg Herbert
Hans Scheer
Das ist ja hochinteressant. Hab ich nicht gewusst, mich allerdings damit
auch noch nicht beschäftigt. Aber ich hab' da ein ruhiges Gewissen denn die
für Gerhard eingestellte Formel bezieht sich auf das Jahr 2005 und ist
richtig. (zufällig wie ich zugebe). Für spätere Jahre müsste man die Formel
mit einer Wenn-Abfrage die Pfingsten abprüft versehen. Dafür bist Du aber
der mit Abstand bessere Mann.
Gruß Hans Scheer
"Herbert Taferner" <t.he...@SPAMgmx.at> schrieb im Newsbeitrag
news:uYhufUSM...@TK2MSFTNGP15.phx.gbl...
Hans Scheer
Ich schäme mich sehr.
Asche über mein Haupt. Dein Hinweis trifft ja dieses Jahr schon zu. Hab'
einen alten
Kalender erwischt. Muttertag ist 2005 der 8.5.
Muss jetzt zur Schwiegermutter Kaffee trinken. Setz mich später mal dran wie
man das abfangen kann. Würde mich natürlich freuen wenn Du schneller wärst.
Viele Grüsse hans Scheer
"Hans Scheer" <has...@web.de> schrieb im Newsbeitrag
news:d210ch$5fs$01$1...@news.t-online.com...
Rudolf Hänni
Ich hattemal ein ähnliches Problem.
Ich habe dann in dieser NG ein Makro bekommen, dass Oster berechnet.
Ausgehend von diesem Resultat kann man eine Funktion basteln, die Alle
Feirtage anzeigt, unabhängig, welches Kalenderjahr.
Hier der Code
Public Function Ostern(Yr As Integer)
Dim D As Integer
D = (((255 - 11 * (Yr Mod 19)) - 21) Mod 30) + 21
Ostern = DateSerial(Yr, 3, 1) + D + (D > 48) + 6 - _
((Yr + Yr \ 4 + D + (D > 48) + 1) Mod 7)
End Function
Gruss
Rudolf
"Hans Scheer" <has...@web.de> schrieb im Newsbeitrag
news:d210ch$5fs$01$1...@news.t-online.com...
Herbert Taferner
> Ich schäme mich sehr.
> Asche über mein Haupt. Dein Hinweis trifft ja dieses Jahr schon zu. Hab'
> einen alten
> Kalender erwischt. Muttertag ist 2005 der 8.5.
> Muss jetzt zur Schwiegermutter Kaffee trinken. Setz mich später mal dran wie
> man das abfangen kann. Würde mich natürlich freuen wenn Du schneller wärst.
> Viele Grüsse hans Scheer
>
mir ginge es auch mal so, darum habe ich mir das gut gemerkt
hier die Geschichte dazu von Melanie
mfg Herbert
Hans Scheer
Folgende Formel funktioniert:
=WENN((DM((TAG(MINUTE(2005/38)/2+55)&".4."&2005)/7;)*7-6)+49=(DATUM(2005;5;1
))+15-(WOCHENTAG((DATUM(2005;5;1));1));(DATUM(2005;5;1))+8-(WOCHENTAG((DATUM
(2005;5;1));1));(DATUM(2005;5;1))+15-(WOCHENTAG((DATUM(2005;5;1));1)))
Gruß Hans
"Hans Scheer" <has...@web.de> schrieb im Newsbeitrag
news:d212mk$k1b$04$1...@news.t-online.com...
Herbert Taferner
> Folgende Formel funktioniert:
>
>
> =WENN((DM((TAG(MINUTE(2005/38)/2+55)&".4."&2005)/7;)*7-6)+49=(DATUM(2005;5;1
> ))+15-(WOCHENTAG((DATUM(2005;5;1));1));(DATUM(2005;5;1))+8-(WOCHENTAG((DATUM
> (2005;5;1));1));(DATUM(2005;5;1))+15-(WOCHENTAG((DATUM(2005;5;1));1)))
>
aber nur für 2005
z. B. 2011 und 2022 stimmt sie nicht
wenn z. B. in A1 das Jahr steht dann
=DATUM(A1;5;1)+14-WOCHENTAG(DATUM(A1;5;1);2)-(7*(
DATUM(A1;5;1)+14-WOCHENTAG(DATUM(A1;5;1);2)=
RUNDEN((TAG(MINUTE(A1/38)/2+55)&".4."&A1)/7;)*7-6+49))
hier
http://www.salesianer.de/util/kalframe.html
unter bewegliche Feste zum kontrollieren
mfg Herbert
Michael Zimmermann
gerhard beck:
> kann mir jemand die berechnungsformel für muttertag
> liefern?
Ist sie so streng mit Dir? ;-)
SCNR
Michael
Wolfgang Behrendt
"Rudolf Hänni" <ru...@gmx.ch> tackerte:
news:%23qi7Q0T...@TK2MSFTNGP09.phx.gbl...
> Ich hattemal ein ähnliches Problem.
Ich auch. :-)
> Ich habe dann in dieser NG ein Makro bekommen, dass Oster berechnet.
> Ausgehend von diesem Resultat kann man eine Funktion basteln, die Alle
> Feirtage anzeigt, unabhängig, welches Kalenderjahr.
>
> Hier der Code
Was dann kommt, ist bereits die Funktion, mit der Du lediglich den
Ostersonntag berechnen kannst. Diese Funktion nützt nur insofwern etwas
in vorliegendem Fall, zu prüfen, ob der zweite Sonntag im Monat Mai
zufällig auch der Pfingssonntag ist. Ansonsten passt gerade diese
Funktion nicht, um den Muttertag zu berechnen.
> Public Function Ostern(Yr As Integer)
> Dim D As Integer
> D = (((255 - 11 * (Yr Mod 19)) - 21) Mod 30) + 21
> Ostern = DateSerial(Yr, 3, 1) + D + (D > 48) + 6 - _
> ((Yr + Yr \ 4 + D + (D > 48) + 1) Mod 7)
> End Function
Im Übrigen war meine Funktion etwas länger gestaltet, was sie nicht
davon abhielt, zu funktionieren. Trotzdem danke für die kürzere Form.
Ich teste aber noch, ob das auch immer funktioniert. :-)
Ich hatte übrigens mal das hier aus einer Computerzeitschrift abgetippt:
-----------------------------------------------
Function IstOsterDatum(Jahr As Integer) As Date
' Berechnung des Ostersonntag nach Karl-Friedrich Gauß
Dim a As Integer, b As Integer, c As Integer, D As Integer
Dim e As Integer, Tag As Integer, Monat As Integer
a = Jahr Mod 19
b = Jahr Mod 4
c = Jahr Mod 7
D = (19 * a + 24) Mod 30
e = (2 * b + 4 * c + 6 * D + 5) Mod 7
Tag = 22 + D + e
Monat = 3
If Tag > 31 Then
Tag = D + e - 9
Monat = 4
End If
If Tag = 26 And Monat = 4 Then Tag = 19
If Tag = 25 And Monat = 4 And D = 28 And e = 6 And a > 10 Then _
Tag = 18
IstOsterDatum = DateSerial(Year:=Jahr, Month:=Monat, Day:=Tag)
End Function
-----------------------------------------------
Kann mal jemand prüfen, Torben zum Beispiel(?), ob das genau auf das
Gleiche herauskommt? Dann würde ich meine bisherige Funktion nämlich
verwerfen wollen.
Danke und Gruß, Wolfgang
--
**Antworten bitte nur in die News-Group posten. Danke :-)**
Übrigens:
Ich bin verantwortlich für das, was ich sage und schreibe,
nicht für das, was Du verstehst oder wie Du es auslegst. :-D
Michael Schwimmer
für Ostern habe ich auch noch eine:
Function Ostern(J As Integer) As Date'1900-2100
Ostern = CDate(Int((Abs(Abs(J - 2015) - 47.5) = _
13.5) + 0.9 + (DateSerial(J, 3, 21) + _
((204 - 11 * (J Mod 19)) Mod 30)) / 7) * 7 + 1)
End Function
Und meine berechnet auch noch für das ach so wichtige Jahr 2100 den
richtigen Ostersonntag: 28. März 2100
Da versagt sogar deine mit dem Gauß und liefert Sa. den 27.3.2100 ;-)
Ab 2100 werden bei beiden anderen sogar nur noch Samstage geliefert!
MfG
Michael
--
Michael Schwimmer
Home : http://michael-schwimmer.de
Excel VBA ISBN 3-8273-2183-2
Rudolf Hänni
Ich habe diese function eigentlich nur gepostet, weil man damit alle
Kirchlichen Feirtage bekommen kann, wenn man eine weitere funktion
dazubastelt.
Bei mir heisst die zusätzliche Funktion "Feiertag"
Ich habe den Code dafür ebenfalls von dieser NG bekommen und dann
angepasst.
Wenn dich dieser code intressiert, melde dich, ich poste ihn dann.
Gruss
Rudolf
Wolfgang Behrendt
"Rudolf Hänni" <ru...@gmx.ch> tackerte:
> Ich habe diese function eigentlich nur gepostet, weil man damit alle
> Kirchlichen Feirtage bekommen kann
Ja, das ist schon klar.
> wenn man eine weitere funktion
> dazubastelt.
Was für eine Funktion denn noch?
Da gibt man entweder in eine Zelle ein "=Ostern(Bezugszelle)" und für
jeden anderen beweglichen Feiertag, den man irgend wo benötigt, die
Differenz in plus Tage oder minus Tage zum Ostersonntag oder man
benutzt das in einem Makro.
Den Code brauchst Du deshlab nicht mehr posten. Der wichtige Code ist
allein der zur Bestimmung des Ostersonntags.
Wolfgang Behrendt
"Michael Schwimmer" <schw...@t-online.de> tackerte:
> für Ostern habe ich auch noch eine:
>
> Function Ostern(J As Integer) As Date'1900-2100
> Ostern = CDate(Int((Abs(Abs(J - 2015) - 47.5) = _
> 13.5) + 0.9 + (DateSerial(J, 3, 21) + _
> ((204 - 11 * (J Mod 19)) Mod 30)) / 7) * 7 + 1)
> End Function
>
>
> Und meine berechnet auch noch für das ach so wichtige Jahr 2100 den
> richtigen Ostersonntag: 28. März 2100
>
> Da versagt sogar deine mit dem Gauß und liefert Sa. den 27.3.2100 ;-)
> Ab 2100 werden bei beiden anderen sogar nur noch Samstage geliefert!
2100 bin ich mit an Sicherheit grenzender Wahrscheinlichkeit nicht mehr
unter den Lebenden. :-)
Das ist mir völlig wurscht, ob meine Arbeitsmappen da noch richtig
rechnen.
Und ob da wirklich Samstage bei herauskommen, ist auch noch fraglich,
weil das ausschließlich davon abhängt, was Du bestimmt hast, welche
numerischen Tage Sonntag, Samstag oder Montag sein sollen, oder so
ähnlich.
Rudolf Hänni
"Wolfgang Behrendt" <wb...@nurfuerspam.de> schrieb im Newsbeitrag
news:d223lo$2fm$05$1...@news.t-online.com...
> Hallo Rudolf,
>
> "Rudolf Hänni" <ru...@gmx.ch> tackerte:
>
>> Ich habe diese function eigentlich nur gepostet, weil man damit
>> alle
>> Kirchlichen Feirtage bekommen kann
>
> Ja, das ist schon klar.
>
>> wenn man eine weitere funktion
>> dazubastelt.
>
> Was für eine Funktion denn noch?
Wenn ich nun in einer Spalte die Datümer eines Jahres habe, brauche
ich in der Spalte daneben nur noch =Feiertag(A1)
einzutragen und kopiere das nach unten.
Bei den Datümern, die auf einen Feiertag fallen, wird der Name des
Feirtages in die Zelle geschrieben,zum Beispiel Pfingsten.
Sonst bleibt die Zelle leer.
Gruss
Rudolf
Michael Schwimmer
Wolfgang Behrendt schrieb:
> 2100 bin ich mit an Sicherheit grenzender Wahrscheinlichkeit nicht
> mehr unter den Lebenden. :-)
> Das ist mir völlig wurscht, ob meine Arbeitsmappen da noch richtig
> rechnen.
das habe ich mir schon fast gedacht. Just in dem Jahr, an dem dein Code
flasch rechnet, willst du dich der Verantwortung entziehen ;-)
> Und ob da wirklich Samstage bei herauskommen, ist auch noch fraglich,
> weil das ausschließlich davon abhängt, was Du bestimmt hast, welche
> numerischen Tage Sonntag, Samstag oder Montag sein sollen, oder so
> ähnlich.
Wie kommst du denn auf so etwas absurdes?
Man kann glücklicherweise noch nicht irgendwo einstellen, dass der Tag
vor Sonntag ein anderer als Samstag ist!
Ich habe die Jahre von 1900 bis 2200 in Spalte A geschrieben, in Spalte
B, C und D rechnen die verschiedenen benutzerdefinierten Funktionen das
Datum des Ostersonntags aus.
Und ab 2100 liefern die beiden anderen Funktionen immer das Datum des
Tages vor dem Ostersonntag. Und das sollte eigentlich immer und überall
ein Samstag sein, Ländereinstellung hin oder her.
Kannst aber auch gerne noch einmal im Kalender nachschauen, ob
beispielsweise der 8.4.2102 nun plötzlich doch zum Sonntag wird.
Jahr Ostern 1 Ostern 2 Ostern 3
2096 So 15.04.2096 So 15.04.2096 So 15.04.2096
2097 So 31.03.2097 So 31.03.2097 So 31.03.2097
2098 So 20.04.2098 So 20.04.2098 So 20.04.2098
2099 So 12.04.2099 So 12.04.2099 So 12.04.2099
2100 So 28.03.2100 Sa 27.03.2100 Sa 27.03.2100
2101 So 17.04.2101 Sa 16.04.2101 Sa 16.04.2101
2102 So 09.04.2102 Sa 08.04.2102 Sa 08.04.2102
2103 So 25.03.2103 Sa 24.03.2103 Sa 24.03.2103
2104 So 13.04.2104 Sa 12.04.2104 Sa 12.04.2104
2105 So 05.04.2105 Sa 04.04.2105 Sa 04.04.2105
2106 So 25.04.2106 Sa 24.04.2106 Sa 24.04.2106
2107 So 10.04.2107 Sa 09.04.2107 Sa 09.04.2107
2108 So 01.04.2108 Sa 31.03.2108 Sa 31.03.2108
2109 So 21.04.2109 Sa 20.04.2109 Sa 20.04.2109
2110 So 06.04.2110 Sa 05.04.2110 Sa 05.04.2110
2111 So 29.03.2111 Sa 28.03.2111 Sa 28.03.2111
2112 So 17.04.2112 Sa 16.04.2112 Sa 16.04.2112
2113 So 02.04.2113 Sa 01.04.2113 Sa 01.04.2113
2114 So 22.04.2114 Sa 21.04.2114 Sa 21.04.2114
2115 So 14.04.2115 Sa 13.04.2115 Sa 13.04.2115
2116 So 29.03.2116 Sa 04.04.2116 Sa 04.04.2116
2117 So 18.04.2117 Sa 17.04.2117 Sa 17.04.2117
2118 So 10.04.2118 Sa 09.04.2118 Sa 09.04.2118
Wolfgang Behrendt
"Rudolf Hänni" <ru...@gmx.ch> tackerte:
>> Was für eine Funktion denn noch?
> Ich habe, wie gesagt, eine weitere funktion mit namen "Feiertage.
> Wenn ich nun in einer Spalte die Datümer eines Jahres habe, brauche
> ich in der Spalte daneben nur noch =Feiertag(A1)
> einzutragen und kopiere das nach unten.
> Bei den Datümern, die auf einen Feiertag fallen, wird der Name des
> Feirtages in die Zelle geschrieben,zum Beispiel Pfingsten.
> Sonst bleibt die Zelle leer.
Ah so, da habe ich dich nicht richtig verstanden.
Das geht natürlich auch.
Ich löse das bei meinem Arbeitszeitnachweis zum Beispiel so, dass ich
die beweglichen Feiertage, die ja immer die gleichen sind, auf einem
Blatt Daten eintrage, dahinter den Tagesabstand zu Ostersonntag. Dann
den Datumsbereich markieren, den Namen "FTage" vergeben.
Das ist relativ wenig Vorarbeit, wenn man bedenkt, dass man das
Ergebnis aus der Abfrage von "FTage" sowohl in Formeln als auch in
Makros verwenden kann. Sicher, mit einer Funktion geht es auch,aber
auch hierfür muss man dann noch das Jahr extra abfragen und damit die
Funktion aufrufen.
Wie man wieder sieht, führen viele Wege nach Rom.
Also denne, Gruß und Frohes Fest, Wolfgang
gerhard beck
mitunter ist eine anfängliche konfusion bei einer undurchsichtige formel
einfacher zu handhaben und zu ertragen als die verwirrungen damit, die
schwiegermutter zu verstehen! noch fragen?
besten dank für die formel.
gruzss von gerhard
"Michael Zimmermann" <Zimme...@SZWeb.de> schrieb im Newsbeitrag
news:3aiqhpF...@individual.net...