В следующем примере функции DateSerial, Year, Month и Day использованы для вычисления количества дней в заданном месяце.
Параметром функции DaysInMonth может быть либо дата, либо строка.

Function DaysInMonth(dteInput As Date) As Integer
	Dim intDays As Integer

	' Добавим один месяц и вычтем даты, чтобы найти разницу.
	intDays = DateSerial(Year(dteInput), Month(dteInput) +  1 , Day(dteInput)) _
		- DateSerial(Year(dteInput), Month(dteInput), Day(dteInput))
	DaysInMonth = intDays
	Debug.Print intDays
End Function

В следующей процедуре Sub приведено несколько способов вызова функции DaysInMonth:

Sub CallDaysInMonth()
	Dim intDays As Integer
	intDays = DaysInMonth(# 4 / 1 / 96 #)
	intDays = DaysInMonth( "4 - 1 - 96 ")
	intDays = DaysInMonth( "April 1 ,  1996 ")
End Sub