Здравствуйте!
Мой макрос строит график Ганта.
В нём:
начальная дата - dtmin (допустим, 16.4.2020)
конечная дата - dtmax (допустим, 20.8.2020
разница между ними - dtDiff
Нижеприведённый код заполняет ячейки от dtmin до dtmax (со сдвигом на 10 ячеек, но это не суть важно):
Как получить заполнение ячеек:
не от 16.4.2020 до 20.8.2020,
а от 01.4.2020 до 31.8.2020, т.е. от начала начального месяца до конца конечного?
Чувствую, что нужно задействовать функцию определения месяца month(dtmin) и month(dtmax) и использовать её при заполнении ячеек с первого числа апреля до конечного числа августа. Как конкретно - ума не приложу. Прошу помощи.
Спасибо.
Мой макрос строит график Ганта.
В нём:
начальная дата - dtmin (допустим, 16.4.2020)
конечная дата - dtmax (допустим, 20.8.2020
разница между ними - dtDiff
Нижеприведённый код заполняет ячейки от dtmin до dtmax (со сдвигом на 10 ячеек, но это не суть важно):
Код |
---|
Plus = dtmin For k = 10 To dtDiff + 10 With Cells(1, k) .Value = Plus .NumberFormat = "m/d/yyyy" End With Plus = Plus + 1 Next |
не от 16.4.2020 до 20.8.2020,
а от 01.4.2020 до 31.8.2020, т.е. от начала начального месяца до конца конечного?
Чувствую, что нужно задействовать функцию определения месяца month(dtmin) и month(dtmax) и использовать её при заполнении ячеек с первого числа апреля до конечного числа августа. Как конкретно - ума не приложу. Прошу помощи.
Спасибо.