vb@rchiv · Tipps & Tricks · Erster Wochentag im Monat, erster Tag im Jahr

Rubrik: Datum/Zeit und Timer · Datums- und Zeitfunktionen | VB-Versionen: VB5, VB6

01.11.03

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:	Views: 25.168
www.tools4vb.de	System: Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

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)