В следующем примере функции 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
|