Последний день месяца

NIKOLASCS Пользователь Сообщений: 123 Регистрация: 01.01.1970	#1 02.04.2010 07:19:29 Какой функцией на VBA вернуть последний день месяца?

Guest Гость	#2 02.04.2010 08:02:10 обязательно VBA? есть стандартная

The_Prist Пользователь Сообщений: 15475 Регистрация: 15.09.2012 Профессиональная разработка приложений для MS Office	#3 02.04.2010 10:30:48 Dim iLastDay As Integer iLastDay = Day(DateSerial(2010, 5, 1) - 1) iLastDay = Day(DateSerial(Year(Now), Month(Now), 1) - 1) Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...

NIKOLASCS Пользователь Сообщений: 123 Регистрация: 01.01.1970	#4 02.04.2010 12:23:05 Спасибо!

Владимир Гость	#5 02.04.2010 13:02:07 =КОНМЕСЯЦА(СЕГОДНЯ();0)

Guest Гость	#6 02.04.2010 13:03:46 Владимир, читаем вопрос: {quote}{login=NIKOLASCS}{date=02.04.2010 07:19}{thema=Последний день месяца}{post}Какой функцией на VBA вернуть последний день месяца?{/post}{/quote} VBA нужно.

Владимир Гость	#7 02.04.2010 13:16:52 Я не умею их писать...

Юрий М Модератор Сообщений: 61089 Регистрация: 14.09.2012 Контакты см. в профиле	#8 02.04.2010 14:00:57 Зачем тогда отвечаете? Формулы не просили.

vikttur

Пользователь

Сообщений: 47199 Регистрация: 15.09.2012

02.04.2010 17:20:16

{quote}{login=Юрий М}{date=02.04.2010 02:00}{thema=}{post}Зачем тогда отвечаете? Формулы не просили.{/post}{/quote}
Часто бывает, что спрашивающий не подозревает, что требуемое можно сделать без макросов, поэтому лищний пример не помешает. И вдруг потомкам... :)

Serge

Пользователь

Сообщений: 11312 Регистрация: 01.01.1970

#10

02.04.2010 17:23:19

{quote}{login=vikttur}{date=02.04.2010 05:20}{thema=Re: }{post}Часто бывает, что спрашивающий не подозревает, что требуемое можно сделать без макросов, поэтому лищний пример не помешает. И вдруг потомкам... :){/post}{/quote}
Если потомкам, то надо пояснить, что КОНМЕСЯЦА появится только установки пакета анализа :-)

vikttur Пользователь Сообщений: 47199 Регистрация: 15.09.2012	#11 02.04.2010 17:25:35 У потомков она будет вшита. В подсознание :)

Владимир Гость	#12 02.04.2010 17:30:06 У нас каждый десятый только знает, чего хочет, вот и предлагаются возможные варианты... --- Если подойдет функция, то и о пакете анализа расскажем.

ДМ

Гость

#13

06.04.2012 09:29:40

Если при помощи предложенной функции вычислять последний день
то получается что последний день мая 2012 года - 30!
Как можно исправить эту функцию чтобы считать правильно?
Dim iLastDay As Integer
iLastDay = Day(DateSerial(2011, 5, 1) - 1)

egonomist

Пользователь

Сообщений: 409 Регистрация: 21.12.2012

#14

06.04.2012 10:30:16

Узнаем последнее число следующего месяца
1) x = Dateadd("m",1,Date) '- вспомогательная дата должна быть на один месяц больше интересующего нас месяца
2) lastDate = Dateserial(Year(x), Month(x),0) 'дата последнего числа интересущего месяца
3) DayinMonth = Day(lastDate) 'цифра-результат

egonomist Пользователь Сообщений: 409 Регистрация: 21.12.2012	#15 06.04.2012 10:33:20 т.о для мая x = "01.06.2012" lastDate = Dateserial(Year(x), Month(x),0) '31/05/2012 DayinMonth = Day(lastDate) '31

ДМ Гость	#16 06.04.2012 11:24:50 Спасибо за быстрый ответ. Очень признателен.

Читают тему