Supportnet Computer Supportnet Games Supportnet Kochen Explipedia
Login: guestBesucher online: 194
Supportnet Computerforum
SUPPORT
Home
Forum
Tipps & Infos
Blitz Angebote
Members
Hilfe
Video

TOP THEMEN
SSD Test
Alles über SSDs

Android Tipps
iPad Tipps
Google Tipps
Windows 8 FAQ
Windows 7 FAQ
E-Mail FAQ
Netzwerk FAQ
Festplatten FAQ
Datenrettung FAQ
Bildbearbeitung FAQ

Top iPhone Apps
Computer Einsteiger
Die 5 besten...
Explipedia
Themen
Direktlinks

Neue Einträge
News einsenden News einschicken
Tipps einsenden Tipp einschicken

SN-LINKS

Suche
Befreundete Seiten
Top Seiten

Supportnet/Forum/Tabellenkalkulation



Supportnet/Forum/Tabellenkalkulation
von ahorn38 vom 03.05.2018, 09:35 Diese Seite den Supportnet Favoriten hinzufügen  Mißbrauch, Beleidigungen und Blödsinn den Moderatoren melden


Feiertage erkennen, markieren

 (451 Hits)

Hallo,

ich suche nach einem Code, der in einer Liste verschiedener Datums in Spalte "A" die Feiertage erkennt und markiert.
Im web habe ich noch nichts passendes dazu gefunden außer Funktionen und Excel-Formeln, die aber mein Problem nicht vollständig lösen. Hat jemand einen Tipp?
Danke und Gruß A.


Antwort schreiben 50 Bonuspunkte

Antworten...
Antwort 1 von M.O. vom 03.05.2018, 10:59 Mißbrauch, Beleidigungen und Blödsinn den Moderatoren melden

Hallo Andreas,

einen solchen Code wirst du wahrscheinlich nicht finden. Es gibt Codes, mit denen du die variablen Feiertage berechnen kannst. Andere Feiertage haben ein festes Datum und einige Feiertage gelten nur in bestimmten Bundesländern bzw. teilweise sogar nur in einzelnen Regionen.

Ich habe für eines meiner Projekte eine Liste mit den für mich gültigen Feiertagen für das betreffende Jahr erstellt. Damit habe ich dann die Feiertage in einem Kalender markiert.

Falls es sich immer nur um Daten aus einem Jahr handelt kannst du entsprechend vorgehen. Falls es Daten aus verschiedenen Jahren sind, müsstest du eben für jedes Datum einzeln prüfen, ob ein Feiertag auf dieses Datum fällt.

Gruß
M.O.


Antwort noch nicht bewertet Als gute Antwort bewerten
Antwort 2 von steffen2 vom 03.05.2018, 13:11 Mißbrauch, Beleidigungen und Blödsinn den Moderatoren melden

und wenn du das jedes Jahr benötigst, kannst du die jeweiligen Feiertage auch teilweise berechnen. Der Abstand von Ostern, Himmelfahrt und Pfingsten z.B. ist immer gleich.

Gruß Steffen2


Antwort noch nicht bewertet Als gute Antwort bewerten
Antwort 3 von ahorn38 vom 03.05.2018, 14:30 Mißbrauch, Beleidigungen und Blödsinn den Moderatoren melden

Danke für die Tipps.
Ich habe einmal eine variable Liste der Feiertage für ein beliebiges Jahr erstellt. Diese würde ich jetzt in einem Array ablegen und dann in einer Schleife abfragen und markieren:

Sub feiertage()
Dim a As Long, b As Long, c As Long, d As Long, e As Long, f As Long
Dim OsterSo As Date
'
' Wurde kein Jahr angegeben, wird das aktuelle Jahr verwendet:
If Jahr = 0 Then
  Jahr = Year(Now)
End If

' Die "magische" Gauss-Formel anwenden:
a = Jahr Mod 19
b = Jahr \ 100
c = (8 * b + 13) \ 25 - 2
d = b - (Jahr \ 400) - 2
e = (19 * (Jahr Mod 19) + ((15 - c + d) Mod 30)) Mod 30
If e = 28 Then
  If a > 10 Then
    e = 27
  End If
ElseIf e = 29 Then
  e = 28
End If
f = (d + 6 * e + 2 * (Jahr Mod 4) + 4 * (Jahr Mod 7) + 6) Mod 7
OsterSo = DateSerial(Jahr, 3, e + f + 22)

i = 1
Cells(i, 2) = DateSerial(Jahr, 1, 1)
Cells(i, 3) = "Neujahr"
i = i + 1
Cells(i, 2) = DateAdd("d", -2, OsterSo)
Cells(i, 3) = "Karfreitag"
i = i + 1
Cells(i, 2) = DateSerial(Jahr, 3, e + f + 22)
Cells(i, 3) = "Ostersonntag"
i = i + 1
Cells(i, 2) = DateAdd("d", 1, OsterSo)
Cells(i, 3) = "Ostermontag"
i = i + 1
Cells(i, 2) = DateSerial(Jahr, 5, 1)
Cells(i, 3) = "1.Mai"
i = i + 1
Cells(i, 2) = DateAdd("d", 39, OsterSo)
Cells(i, 3) = "ChristiHimmelfahrt"
i = i + 1
Cells(i, 2) = DateAdd("d", 49, OsterSo)
Cells(i, 3) = "Pfingstsonntag"
i = i + 1
Cells(i, 2) = DateAdd("d", 50, OsterSo)
Cells(i, 3) = "Pfingstmontag"
i = i + 1
'Cells(i, 2) = DateAdd("d", 60, OsterSo)
'Cells(i, 3) = "Fronleichnam"
'i = i + 1
'Cells(i, 2) = DateSerial(Jahr, 12, 25) - Weekday(DateSerial(Jahr, 12, 25), vbMonday) - 4 * 7 - vbWednesday
'Cells(i, 3) = "BußundBetTag"
'i = i + 1
Cells(i, 2) = DateSerial(Jahr, 10, 3)
Cells(i, 3) = "TagDerEinheit"
i = i + 1
Cells(i, 2) = DateSerial(Jahr, 10, 31)
Cells(i, 3) = "Reformationstag"
i = i + 1
Cells(i, 2) = DateSerial(Jahr, 12, 25)
Cells(i, 3) = "1.Weihnachsfeiertag"
i = i + 1
Cells(i, 2) = DateSerial(Jahr, 12, 26)
Cells(i, 3) = "2.Weihnachsfeiertag"
i = i + 1

End Sub

Gruß A.


Antwort noch nicht bewertet Als gute Antwort bewerten
Antwort 4 von Nighty___ vom 04.05.2018, 13:00 Mißbrauch, Beleidigungen und Blödsinn den Moderatoren melden

Hallo Andreas .-)

Ein Beispiel!

Gruß Nighty

Bei Fund = True

Feld 14,0 wäre dann ein weiterer Feiertag
Feld 14,1 dessen Namensgebung

Namensgebung dient zur Zeit nur der Orientierung bzw Umgestaltung der Function

Function Feiertag(Zelle As Date) As Boolean
    Dim varDates(13, 1) As Variant
    Dim IntYear As Integer, Index As Integer
    IntYear = Year(Zelle)
    varDates(0, 0) = DateSerial(IntYear, 1, 1)
    varDates(0, 1) = "Neujahr"
    varDates(1, 0) = DateSerial(IntYear, 1, 6)
    varDates(1, 1) = "Dreikönig"
    varDates(2, 0) = dEaster - 3
    varDates(2, 1) = "Karfreitag"
    varDates(3, 0) = dEaster + 1
    varDates(3, 1) = "Ostermontag"
    varDates(4, 0) = DateSerial(IntYear, 5, 1)
    varDates(4, 1) = "Tag der Arbeit"
    varDates(5, 0) = dEaster + 39
    varDates(5, 1) = "Christi Himmelfahrt"
    varDates(6, 0) = dEaster + 50
    varDates(6, 1) = "Pfingstmontag"
    varDates(7, 0) = dEaster + 60
    varDates(7, 1) = "Fronleichnam"
    varDates(8, 0) = DateSerial(IntYear, 10, 3)
    varDates(8, 1) = "Tag der Einheit"
    varDates(9, 0) = DateSerial(IntYear, 11, 1)
    varDates(9, 1) = "Allerheiligen"
    varDates(10, 0) = DateSerial(IntYear, 12, 24)
    varDates(10, 1) = "Heiligabend"
    varDates(11, 0) = DateSerial(IntYear, 12, 25)
    varDates(11, 1) = "1. Weihnachtstag"
    varDates(12, 0) = DateSerial(IntYear, 12, 26)
    varDates(12, 1) = "2. Weihnachtstag"
    varDates(13, 0) = DateSerial(IntYear, 12, 31)
    varDates(13, 1) = "Silvester"
    For Index = 0 To UBound(varDates)
        If Zelle = varDates(Index, 0) Then
            Feiertag = True
            Exit For
        End If
    Next Index
End Function


Antwort noch nicht bewertet
Diese Antwort hat das Problem gelöst!
Antwort 5 von ahorn38 vom 04.05.2018, 17:00 Mißbrauch, Beleidigungen und Blödsinn den Moderatoren melden

Danke nighty und den andern für die Hilfe. Problem gelöst!
Gruß A.


Antwort noch nicht bewertet Als gute Antwort bewerten
Antwort 6 von Nighty___ vom 06.05.2018, 11:45 Mißbrauch, Beleidigungen und Blödsinn den Moderatoren melden

Hallo Andreas

Habe noch die Berechnungsdaten eingesetzt

Gruß Nighty

Rückgabewert True könnte durch varDates(x,0) oder varDates(x,1) ersetzte werden
varDates(x,0)=Datum
varDates(x,1) =Bezeichner

Function Feiertag(Zelle As Date) As Boolean
    Dim varDates(13, 1) As Variant
    Dim IntYear As Integer, Index As Integer
    IntYear = Year(Zelle)
    OsterDatum = (((255 - 11 * (IntYear Mod 19)) - 21) Mod 30) + 21
    varDates(0, 0) = DateSerial(IntYear, 1, 1)
    varDates(0, 1) = "Neujahr"
    varDates(1, 0) = DateSerial(IntYear, 1, 6)
    varDates(1, 1) = "Dreikönig"
    varDates(2, 0) = DateSerial(IntYear, 3, 1) + OsterDatum + (OsterDatum > 48) + 6 - ((IntYear + IntYear \ 4 + OsterDatum + (OsterDatum > 48) + 1) Mod 7) - 2
    varDates(2, 1) = "Karfreitag"
    varDates(3, 0) = DateSerial(IntYear, 3, 1) + OsterDatum + (OsterDatum > 48) + 6 - ((IntYear + IntYear \ 4 + OsterDatum + (OsterDatum > 48) + 1) Mod 7) + 1
    varDates(3, 1) = "Ostermontag"
    varDates(4, 0) = DateSerial(IntYear, 5, 1)
    varDates(4, 1) = "Tag der Arbeit"
    varDates(5, 0) = DateSerial(IntYear, 3, 1) + OsterDatum + (OsterDatum > 48) + 6 - ((IntYear + IntYear \ 4 + OsterDatum + (OsterDatum > 48) + 1) Mod 7) + 39
    varDates(5, 1) = "Christi Himmelfahrt"
    varDates(6, 0) = DateSerial(IntYear, 3, 1) + OsterDatum + (OsterDatum > 48) + 6 - ((IntYear + IntYear \ 4 + OsterDatum + (OsterDatum > 48) + 1) Mod 7) + 50
    varDates(6, 1) = "Pfingstmontag"
    varDates(7, 0) = DateSerial(IntYear, 3, 1) + OsterDatum + (OsterDatum > 48) + 6 - ((IntYear + IntYear \ 4 + OsterDatum + (OsterDatum > 48) + 1) Mod 7) + 60
    varDates(7, 1) = "Fronleichnam"
    varDates(8, 0) = DateSerial(IntYear, 10, 3)
    varDates(8, 1) = "Tag der Einheit"
    varDates(9, 0) = DateSerial(IntYear, 11, 1)
    varDates(9, 1) = "Allerheiligen"
    varDates(10, 0) = DateSerial(IntYear, 12, 24)
    varDates(10, 1) = "Heiligabend"
    varDates(11, 0) = DateSerial(IntYear, 12, 25)
    varDates(11, 1) = "1. Weihnachtstag"
    varDates(12, 0) = DateSerial(IntYear, 12, 26)
    varDates(12, 1) = "2. Weihnachtstag"
    varDates(13, 0) = DateSerial(IntYear, 12, 31)
    varDates(13, 1) = "Silvester"
    For Index = 0 To UBound(varDates)
        If Zelle = varDates(Index, 0) Then
            Feiertag = True
            Exit For
        End If
    Next Index
End Function 


Antwort noch nicht bewertet
Antwort 7 von Nighty___ vom 08.05.2018, 16:59 Mißbrauch, Beleidigungen und Blödsinn den Moderatoren melden

Hallo Andreas :-)

Ohne Schleife!

Gruß Nighty

Rückgabewert ist diesmal der Feiertagsname!

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) + 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)
    FName = Array("Neujahr", "Dreikönig", "Karfreitag", "Ostermontag", "Tag der Arbeit", "Christi Himmelfahrt", "Pfingstmontag", "Fronleichnam", "Tag der Einheit", "Allerheiligen", "Heiligabend", "1. Weihnachtstag", "2. Weihnachtstag", "Silvester")
    If InStr(DatumString, Zelle) > 0 Then Feiertag2 = FName(InStr(DatumString, Zelle) / 10)
End Function


Antwort noch nicht bewertet
Antwort 8 von Nighty___ vom 16.05.2018, 07:47 Mißbrauch, Beleidigungen und Blödsinn den Moderatoren melden

Hallo Community

Nicht wiederkehrende Feierteage werden so ergänzt!

Gruß Nighty

Der letzte Eintrag waere einer! > "31.10.2017"
Der Bezeichner läuft Parallel zum Datumstring,ist also im Array der letzte Eintrag

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) + 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", "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


Antwort noch nicht bewertet
Antwort 9 von Nighty___ vom 19.05.2018, 12:20 Mißbrauch, Beleidigungen und Blödsinn den Moderatoren melden

Hallo Community

Da das Interesse größer ist als ich vermutete,hier ein Code der einen Selectierten Bereich auf Datum Abtastet und den jeweiligen Feiertag in das Kommentarfeld einträgt
Der Selectierte Bereich kann ein oder mehrere Monate oder Jahre beinhalten!

Feiertage
Feste,bewegliche oder einmalige Feiertage ,sollten den Bundesländern angepasst werden!


Syntax z.b.

Einmalige
"31.10.2017"

Feste
DateSerial(IntYear, 1, 6)

Bewegliche
DateSerial(IntYear, 3, 1) + OsterDatum + (OsterDatum > 48) + 6 - ((IntYear + IntYear \ 4 + OsterDatum + (OsterDatum > 48) + 1) Mod 7) - 2 &

Zum hinzufüfen
& _
bei dem letzten Eintrag

Gruß Nighty

Sub Feiertage_im_Kommentarfeld()
    Dim Zelle As Object, Eintrag As Object
    For Each Zelle In Selection
        If IsDate(Zelle) Then
            Set Eintrag = Range(Zelle.Address).Comment
            If Eintrag Is Nothing Then
                Range(Zelle.Address).AddComment
                Range(Zelle.Address).Comment.Text Text:="Feiertag:" & Chr(10) & Feiertag2(Range(Zelle.Address))
            Else
                Range(Zelle.Address).ClearComments
                Range(Zelle.Address).AddComment
                Range(Zelle.Address).Comment.Text Text:="Feiertag:" & Chr(10) & Feiertag2(Range(Zelle.Address))
            End If
        End If
    Next Zelle
End Sub

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) + 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", "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



Gruß Nighty


Antwort noch nicht bewertet
Antwort 10 von Nighty___ vom 19.05.2018, 14:05 Mißbrauch, Beleidigungen und Blödsinn den Moderatoren melden

Hallo Community

ops ... korrigiert

Gruß Nighty

Sub Feiertage_im_Kommentarfeld()
    Dim Zelle As Object, Eintrag As Object
    For Each Zelle In Selection
        If IsDate(Zelle) And Feiertag2(Range(Zelle.Address)) <> "" Then
            Set Eintrag = Range(Zelle.Address).Comment
            If Eintrag Is Nothing Then
                Range(Zelle.Address).AddComment
                Range(Zelle.Address).Comment.Text Text:="Feiertag:" & Chr(10) & Feiertag2(Range(Zelle.Address))
            Else
                Range(Zelle.Address).ClearComments
                Range(Zelle.Address).AddComment
                Range(Zelle.Address).Comment.Text Text:="Feiertag:" & Chr(10) & Feiertag2(Range(Zelle.Address))
            End If
        End If
    Next Zelle
End Sub

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) + 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", "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


Antwort noch nicht bewertet




Antwort schreiben
    Bitte einen 'Nickname' wählen.
Nickname:*
    (eMail-Adresse wird nicht veröffentlicht.)
eMail:
Nachricht: Ich möchte bei Antworten benachrichtigt werden.
    Hilfe zur Beitragsformatierung gibts [hier]
                   
Antwort:*
  Die Nutzungsbedingungen habe ich gelesen und akzeptiert.

MACHEN SIE IHRE WEBSITE ATTRAKTIVER
Sie haben eine eigene Website und wollen Ihre Besucher auf den Supportnet-Service aufmerksam machen? Kopieren Sie einfach den Quellcode in Ihre Seite und jeder Besucher Ihrer Seite kann direkt auf die Supportnet-Datenbank zugreifen.

My Supportnet


SUCHE

Gruppen im Forum
Betriebsysteme
Software
Hardware
Netzwerk
Programmierung
Sonstiges

Impressum © 1997-2018 Supportnet
Version: supportware 1.8.230E / 18.10.2010, Startzeit:Fri May 18 11:28:04 2018