Здравствуйте
Вопрос в заглавии.
Если месяц находится в томже году, что и заданный - нет проблем.
Делаю так (кпримеру)
Sub ttt()
iYear = Year(Now()) 'год
iMonth = Month(Now()) 'месяц
iDay = DateSerial(iYear, iMonth + 1, 1) - 1 'последний день месяца
n = Application.InputBox("Введите количество месяцев", "Окно ввода", "1") ' количество месяцев назад
iiDay = DateSerial(iYear, iMonth + 1 - n, 1) - 1 'последний день месяца необходимой даты
MsgBox "iDay = " & iDay & " iiDay = " & iiDay
End Sub
Если месяц находится в другом году - есть проблема.
Подскажите, пожалуйста, а то мозги закипают. ;(
Вопрос в заглавии.
Если месяц находится в томже году, что и заданный - нет проблем.
Делаю так (кпримеру)
Sub ttt()
iYear = Year(Now()) 'год
iMonth = Month(Now()) 'месяц
iDay = DateSerial(iYear, iMonth + 1, 1) - 1 'последний день месяца
n = Application.InputBox("Введите количество месяцев", "Окно ввода", "1") ' количество месяцев назад
iiDay = DateSerial(iYear, iMonth + 1 - n, 1) - 1 'последний день месяца необходимой даты
MsgBox "iDay = " & iDay & " iiDay = " & iiDay
End Sub
Если месяц находится в другом году - есть проблема.
Подскажите, пожалуйста, а то мозги закипают. ;(