Erster Wochentag im Monat, erster Tag im Jahr Zwei Funktionen, die den ersten Wochentag eines Monats und den ersten Wochentag eines Jahres ermitteln.
Autor:   Dieter Otter	Bewertung:     [ Jetzt bewerten ]	Views:  12.569
www.tools4vb.de	System:  Win9x, WinNT, Win2k, WinXP, Vista, Win7	Beispielprojekt auf CD

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

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Die beiden nachfolgenden Funktionen ermitteln jeweils den ersten Wochentag eines Monats bzw. den ersten Wochentag eines Jahres.

Fügen Sie nachfolgenden Code in ein Modul:

' Wochentag-Aufzählung
Public Enum eWeekDay
  Sunday = 1
  Monday = 2
  Tuesday = 3
  Wednesday = 4
  Thursday = 5
  Friday = 6
  Saturday = 7
End Enum

' Erster Wochentag eines Monats
Public Function FirstDayOfMonth(Optional ByVal nMonth As Variant, _
  Optional nYear As Variant) As eWeekDay
 
  If IsMissing(nMonth) Then nMonth = Month(Now)
  If IsMissing(nYear) Then nYear = Year(Now)
 
  FirstDayOfMonth = Format$(DateSerial(nYear, nMonth, 1), "w", _
    vbUseSystemDayOfWeek)
End Function

' Erster Wochentag eines Jahres
Public Function FirstDayOfYear(Optional nYear As Variant) As eWeekDay
 
  If IsMissing(nYear) Then nYear = Year(Now)
 
  FirstDayOfYear = Format$(DateSerial(nYear, 1, 1), "w", _
    vbUseSystemDayOfWeek)
End Function

Beispiel für den Aufruf:

' 1. Wochentag des aktuellen Monats im aktuellen Jahr
Dim nDay As eWeekDay
nDay = FirstDayOfMonth()
MsgBox "Der erste Tag war ein: " & WeekDayName(nDay)

' 1. Wochentag im Mai 2002
Dim nDay As eWeekDay
nDay = FirstDayOfMonth(5, 2002)
MsgBox "Der erste Tag war ein: " & WeekDayName(nDay)

' 1. Wochentag des aktuellen Jahres
Dim nDay As eWeekDay
nDay = FirstDayOfYear()
MsgBox "Der erste Tag war ein: " & WeekDayName(nDay)

' 1. Wochentag im jahr 1978
Dim nDay As eWeekDay
nDay = FirstDayOfMonth(1978)
MsgBox "Der erste Tag war ein: " & WeekDayName(nDay)