vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#

https://www.vbarchiv.net
Rubrik: Datum/Zeit und Timer · Datums- und Zeit-Funktionen   |   VB-Versionen: VB2010 - VB201506.12.23
Berechnen der Adventstage

Eine Funktion zum Berechnen der Adventstage (kleines Weihnachtsgeschenk)

Autor:   Dietrich HerrmannBewertung:  Views:  643 
ohne HomepageSystem:  Win7, Win8, Win10, Win11kein 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!



Anzeige

Kauftipp Unser Dauerbrenner!Diesen und auch alle anderen Tipps & Tricks finden Sie auch auf unserer aktuellen vb@rchiv  Vol.6

Ein absolutes Muss - Geballtes Wissen aus mehr als 8 Jahren vb@rchiv!
- nahezu alle Tipps & Tricks und Workshops mit Beispielprojekten
- Symbol-Galerie mit mehr als 3.200 Icons im modernen Look
Weitere Infos - 4 Entwickler-Vollversionen (u.a. sevFTP für .NET), Online-Update-Funktion u.v.m.
 
 
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.