Berechnen der Adventstage Eine Funktion zum Berechnen der Adventstage (kleines Weihnachtsgeschenk)
Autor:   Dietrich Herrmann	Bewertung:     [ Jetzt bewerten ]	Views:  2.125
ohne Homepage	System:  Win7, Win8, Win10, Win11	kein Beispielprojekt

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 4 Bewertung insgesamt: sehr gut Durchschnittliche Bewertung: 4.5 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Die folgende kleine Funktion berechnet die Adventstage eines Jahres:

''' <summary>
''' Berechnen Daten des Advent
''' </summary>
''' <param name="Jahr">das betreffende Jahr</param>
''' <returns></returns>
Public Function Adventstage(Jahr As Short) As Date()
  ' Der erste Advent ist der erste Sonntag nach dem 26.11.
  Dim Advent(3), hAdv, Adv As Date, i As Short
  hAdv = DateSerial(Jahr, 11, 26)
  Adv = hAdv
  For i = 1 To 7
    hAdv = DateAdd(DateInterval.Day, i, DateSerial(Jahr, Adv.Month, Adv.Day))
    If hAdv.DayOfWeek = 0 Then
      Advent(0) = hAdv
      Exit For
    End If
  Next 
  For i = 1 To 3
    Adv = DateAdd(DateInterval.Day, i * 7, DateSerial(Jahr, hAdv.Month, hAdv.Day))
    Advent(i) = Adv
  Next i
  Return Advent
End Function

Fröhliche Weihnachten!