Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Функция КОНМЕСЯЦА через VBA
 
#1
23.04.2014 12:36:48
Уважаемые форумчане, пытаюсь найти, есть ли в VBA функция, для того, чтобы она могла находить последний день месяца, основываясь на конкретном дне. Например 05.10.2014, результат будет 31 (она последняя дата в Октябре). Знаю фукцию Day, но она вычисляет конкретный день из даты. Можете подсказать? Если подобная функция есть, сразу вопрос, нормально ли он работает с високосным годом?
Когда испробованы все варианты, я начинаю плясать с бубном. Как правило — помогает.
 
 
 
#2
23.04.2014 12:46:00
Посмотрите ЗДЕСЬ
 
 
 
#3
23.04.2014 12:55:21
Вот спасибо, огромное.

Код
Function LastOfMonth(Optional dteDate As Date) As Date
'если параметр dteDate = 0 то для вычисления берется текущая дата
If CLng(dteDate) = 0 Then
dteDate = Date
End If
'Ищется первый день следующего месяца, и вычитается один день
LastOfMonth = DateSerial(Year(dteDate), Month(dteDate) + 1, 1) - 1
MsgBox "Первый день месяца - " & LastOfMonth
End Function
Она вычисляет последнюю дату месяца, а уж день я оттуда достану
Когда испробованы все варианты, я начинаю плясать с бубном. Как правило — помогает.
 
 
 
Страницы: 1
Наверх