VBA Anzahl Tage eines bestimmten Monats

Beschreibung

Um die Anzahl der Tage eines bestimmten Monats zu ermitteln, habe ich die nachfolgende Funktion geschrieben. Schaltjahre werden natürlich beachtet.

Parameter

Parameter Name	Parameter Wert
DDate	Das Datum das überprüft werden soll! Es muss ein komplettes Datum sein, da sonst die Schaltjahre nicht berücksichtigt werden können.

Rückgabe

Rückgabe Typ	Rückgabe Wert
Integer	Anzahl der Tage

Beispiel

debug.Print MaxDayMonth("12.2.2016")
29

Code

Public Function MaxDayMonth(DDate As Date) As Integer
	Dim M As Integer
	Dim Y As Integer
	M = Month(DDate)
	Y = Year(DDate)
	M = M + 1
	While M > 12
		M = M - 12
		Y = Y + 1
	Wend
	MaxDayMonth = Day(DateSerial(Y, M, 1) - 1)
End Function

Download

VBA Max Day Month

1 Datei(en) 0.24 KB

Download