vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
sevDataGrid - Gönnen Sie Ihrem SQL-Kommando diesen krönenden Abschluß!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2024
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

VB.NET - Ein- und Umsteiger
Re: prüfe Datum ob es ein Feiertag ist 
Autor: JangoF
Datum: 28.12.20 17:56

Folgend Funktion liefert den Ostersonntag, alle beweglichen Feiertage sind damit berechenbar.

Private Function OsterSonntag(ByVal Jahr As Integer) As Date
        ' Function OsterSonntag gibt das Datum für den
        ' Ostersonntag des in Jahr übergebenen Jahres zurück.
        Dim m As Integer
        Dim n As Integer
 
        Dim a As Integer
        Dim b As Integer
        Dim c As Integer
        Dim d As Integer
        Dim e As Integer
 
        Dim Tag As Integer
        Dim Monat As Integer
 
        m = 23
        n = 3
 
        If Jahr > 1799 Then
            n = 4
        End If
 
        If Jahr > 1899 Then
            n += 1
            m = 24
        End If
 
        If Jahr > 2099 Then
            n += 1
        End If
 
        a = Jahr Mod 19
        b = Jahr Mod 4
        c = Jahr Mod 7
        d = ((a * 19) + m) Mod 30
        e = ((b * 2) + (c * 4) + (d * 6) + n) Mod 7
        Tag = d + e + 22
 
        If Tag > 31 Then
            Tag -= 31
            If (Tag = 26) Or ((Tag = 25) And (d = 28) And (a > 10)) Then
                Tag -= 7
            End If
            Monat = 4
        Else
            Monat = 3
        End If
 
        Return DateSerial(Jahr, Monat, Tag)
    End Function
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
prüfe Datum ob es ein Feiertag ist1.103ERBRU27.12.20 12:14
Re: prüfe Datum ob es ein Feiertag ist488effeff27.12.20 18:35
Re: prüfe Datum ob es ein Feiertag ist463ERBRU28.12.20 08:34
Re: prüfe Datum ob es ein Feiertag ist422effeff28.12.20 13:23
Re: prüfe Datum ob es ein Feiertag ist441JangoF28.12.20 17:56
Re: prüfe Datum ob es ein Feiertag ist388ERBRU28.12.20 20:03
Re: prüfe Datum ob es ein Feiertag ist460Manfred X30.12.20 02:59
Re: prüfe Datum ob es ein Feiertag ist401ERBRU30.12.20 11:51
Re: prüfe Datum ob es ein Feiertag ist426Manfred X03.01.21 02:33

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2024 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel