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

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!

Copyright ©2000-2024 vb@rchiv Dieter OtterAlle 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.