Как узнать сколько дней в месяце, по дате без циклов? - VBA (56580)
Формулировка задачи:
Ктонибудь знает как узнать сколько дней в месяце, по дате без циклов.
Например 10.2004 сколько в нём дней или какое последнее число.
Решение задачи: «Как узнать сколько дней в месяце, по дате без циклов?»
textual
Листинг программы
Sub Тест()
Dim datDate As Date
Dim bytDay As Byte
datDate = "1.10.2004"
bytDay = Day(DateAdd("d", -1, (DateAdd("m", 1, datDate))))
End Sub