Thema Datum  Von Nutzer Rating
Antwort
17.11.2023 22:00:09 xlKing
Solved
17.11.2023 23:11:18 xlKing
NotSolved
18.11.2023 00:37:55 xlKing
NotSolved
20.11.2023 11:12:30 Der Steuerfuzzi
NotSolved
20.11.2023 17:29:44 xlKing
NotSolved
18.11.2023 01:40:22 Gast01287
NotSolved
Rot Ostersonntag korrekt berechnen
18.11.2023 04:09:40 Gast77653
NotSolved
18.11.2023 17:41:38 xlKing
NotSolved
18.11.2023 18:58:03 Gast69709
NotSolved
19.11.2023 03:00:06 xlKing
NotSolved
19.11.2023 12:30:20 Gast158
NotSolved
19.11.2023 19:47:24 Gast95273
NotSolved
19.11.2023 22:50:38 xlKing
NotSolved
19.11.2023 23:04:15 xlKing
NotSolved
20.11.2023 10:03:13 Gast28942
NotSolved
20.11.2023 10:27:21 Gast9314
NotSolved
21.11.2023 00:11:33 Gast75580
NotSolved
22.11.2023 12:22:01 Gast45652
NotSolved

Ansicht des Beitrags:
Von:
Gast77653
Datum:
18.11.2023 04:09:40
Views:
109
Rating: Antwort:
  Ja
Thema:
Ostersonntag korrekt berechnen

Hallo Community

Zum ergänzen

Datum unf Name laufen Parallel

2 Datum ist der 2 Name

5 Datum ist der 5 Name etc.

Zelle ist ein Datum

Function Feiertag2(Zelle As Date) As String
    Dim DatumString As String
    Dim IntYear As Integer, OsterDatum As Integer
    IntYear = Year(Zelle)
    OsterDatum = (((255 - 11 * (IntYear Mod 19)) - 21) Mod 30) + 21
    DatumString = _
    DateSerial(IntYear, 1, 1) & _
                  DateSerial(IntYear, 1, 6) & _
                  DateSerial(IntYear, 3, 1) + OsterDatum + (OsterDatum > 48) + 6 - ((IntYear + IntYear \ 4 + OsterDatum + (OsterDatum > 48) + 1) Mod 7) - 2 & _
                  DateSerial(IntYear, 3, 1) + OsterDatum + (OsterDatum > 48) + 6 - ((IntYear + IntYear \ 4 + OsterDatum + (OsterDatum > 48) + 1) Mod 7) & _
                  DateSerial(IntYear, 3, 1) + OsterDatum + (OsterDatum > 48) + 6 - ((IntYear + IntYear \ 4 + OsterDatum + (OsterDatum > 48) + 1) Mod 7) + 1 & _
                  DateSerial(IntYear, 5, 1) & _
                  DateSerial(IntYear, 3, 1) + OsterDatum + (OsterDatum > 48) + 6 - ((IntYear + IntYear \ 4 + OsterDatum + (OsterDatum > 48) + 1) Mod 7) + 39 & _
                  DateSerial(IntYear, 3, 1) + OsterDatum + (OsterDatum > 48) + 6 - ((IntYear + IntYear \ 4 + OsterDatum + (OsterDatum > 48) + 1) Mod 7) + 50 & _
                  DateSerial(IntYear, 3, 1) + OsterDatum + (OsterDatum > 48) + 6 - ((IntYear + IntYear \ 4 + OsterDatum + (OsterDatum > 48) + 1) Mod 7) + 60 & _
                  DateSerial(IntYear, 10, 3) & _
                  DateSerial(IntYear, 11, 1) & _
                  DateSerial(IntYear, 12, 24) & _
                  DateSerial(IntYear, 12, 25) & _
                  DateSerial(IntYear, 12, 26) & _
                  DateSerial(IntYear, 12, 31) & _
                  "31.10.2017"
    FName = Array("Neujahr", "Dreikönig", "Karfreitag", "Ostersontag", "Ostermontag", "Tag der Arbeit", "Christi Himmelfahrt", "Pfingstmontag", "Fronleichnam", "Tag der Einheit", "Allerheiligen", "Heiligabend", "1. Weihnachtstag", "2. Weihnachtstag", "Silvester", "Reform")
    If InStr(DatumString, Zelle) > 0 Then Feiertag2 = FName(InStr(DatumString, Zelle) / 10)
End Function

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
17.11.2023 22:00:09 xlKing
Solved
17.11.2023 23:11:18 xlKing
NotSolved
18.11.2023 00:37:55 xlKing
NotSolved
20.11.2023 11:12:30 Der Steuerfuzzi
NotSolved
20.11.2023 17:29:44 xlKing
NotSolved
18.11.2023 01:40:22 Gast01287
NotSolved
Rot Ostersonntag korrekt berechnen
18.11.2023 04:09:40 Gast77653
NotSolved
18.11.2023 17:41:38 xlKing
NotSolved
18.11.2023 18:58:03 Gast69709
NotSolved
19.11.2023 03:00:06 xlKing
NotSolved
19.11.2023 12:30:20 Gast158
NotSolved
19.11.2023 19:47:24 Gast95273
NotSolved
19.11.2023 22:50:38 xlKing
NotSolved
19.11.2023 23:04:15 xlKing
NotSolved
20.11.2023 10:03:13 Gast28942
NotSolved
20.11.2023 10:27:21 Gast9314
NotSolved
21.11.2023 00:11:33 Gast75580
NotSolved
22.11.2023 12:22:01 Gast45652
NotSolved