Увеличение даты на месяц (год)

[siti]

Есть в ячейке Calc любая дата, например 10.08.2022
Как ее увеличить на один месяц до 10.09.2022, или на год до 10.08.2023 с учетом высокосных годов и разного кол-ва дней в месяце?
Можно это сделать как то просто, не разбирая дату на день/месяц/год и не собирая обратно?

[eeigor]

Можно. Добавляем 1 год:
=EDATE(StartDate;12)

[sokol92]

В таких задачах самое важное - понимать правила игры. Например, что будет (должно быть), если добавить один месяц к 30.01.2022?

[eeigor]

Например, что будет (должно быть), если добавить один месяц к 30.01.2022?

28.02.2022 - конец другого месяца с учётом високосных годов и пр., как указал автор.

[mikekaganski]

Например, что будет (должно быть), если добавить один месяц к 30.01.2022?

28.02.2022 - конец другого месяца с учётом високосных годов и пр., как указал автор.

Несомненно!
Но вот если немного усложнить, становится интереснее. Eсли месяцы прибавлять к фиксированной начальной дате, то в зависимости от количества прибавленных месяцев результат будет последним или не последним днём. Так что формула типа

Код Выделить Развернуть

=EDATE($A$1;ROW()-1)

даст снова 30й день для марта и т.д.

А вот если ту же задачу решать прибавлением одного месяца к дате из предыдущей ячейки, то внезапно результат изменится. Все последующие месяцы получат 28 (29) число.

Код Выделить Развернуть

=EDATE(A1;1)

Так что да, правила игры очень важны.

[sokol92]

Это - одна из интерпретаций. То есть:
28.01.2022 + 1 месяц = 28.02.2022
29.01.2022 + 1 месяц = 28.02.2022
30.01.2022 + 1 месяц = 28.02.2022
31.01.2022 + 1 месяц = 28.02.2022

Если надо через месяц сдать проект (экзамен), то лишние три дня не помешают. А вот для приговоренных... 

[eeigor]

Тогда просто прибавляйте дни к начальной дате:
=StartDate+30*2 - прибавляет 2 условных месяца и возвращает какую-то условную дату.

[sokol92]

Правила игры для функции Oracle ADD_MONTH:
Если дата является последним днем месяца или если в результирующем месяце меньше дней, чем номер дня даты, то результатом является последний день результирующего месяца. В противном случае результат имеет тот же компонент дня, что и дата.
То есть (для вышеуказанной функции): 28.02.2022 + 1 месяц = 31.03.2022

[siti]

Делаю чтото типа планировщика задач. Дя повторяющихся задач дата очередной активации задачи переносится на период повторения( неделя, месяц, год).
С годом допустимо просто +365 сделать. Високосный год- ерунда.
Неделя тоже +7 работает к дате из ячейки.
Главное месяц.
Для упрощения - дат с днем больше чем 28 число в ячейках не будет.
Соответственно если указана дата 25.08.2022 то ее надо будет сдвинуть на 25.09.2022
Для усложнения вопроса можно конечно попытаться сделать если дата является последним днем месяца то переносить на последний день следующего.

[siti]

Хотя опять же если ставить 28 число каждого месяца, то с февраля на март дата улетит на 31 марта.
Получается надо добавлять еще один тип повторения- «последнее число месяца», либо не ставить дату позднее 27 числа

[eeigor]

Ну вот, Вы сами всё знаете.

[siti]

Ну вот, Вы сами всё знаете.

Я только не понял в итоге, как лучше месяц плюсануть? Мне не формулу надо, а в VB макросом

[eeigor]

Например, вычислить позицию ячейки B2 и присвоить ей формулу.
oSheet = ThisComponent.CurrentController.ActiveSheet
oCell = oSheet.getCellByPosition(1, 1)  '.getCellRangeByName("B2")
oCell.Formula = "=EDATE(A2;1)"
oCell.Formula = "=A2+30"

Можно в цикле.

Код Выделить Развернуть

Sub Main()
''' Calls: GetCurrentRegion(), SetFormulaR1C1

Rem Demo code (not tested):
   Dim oSheet As Object, oRange As Object, oCell As Object
   Dim sFormulaR1C1$: sFormulaR1C1 = "EDATE(RC[-1];1)  'данные лежат в соседнем столбце слева: C[-1] текущей строки R

   oSheet = ThisComponent.CurrentController.ActiveSheet
   oRange = oSheet.getCellByPosition(0, 0)  'верхний левый угол диапазона
   oRange = GetCurrentRegion(oRange)  'текущий диапазон
   Dim i&
   For i = 0 To oRange.Rows.Count - 1  'For i = 1 To... #если надо пропустить строку заголовков столбцов
       oCell.getCellByPosition(1, i)
       Call SetFormulaR1C1(sFormulaR1C1, oCell)
   Next
End Sub

Function GetCurrentRegion(oRange As Object) As Object  '-> ScCellCursorObj
   Dim oCursor As Object
   oCursor = oRange.Spreadsheet.createCursorByRange(oRange)
   ' Expand the cursor into the region containing the cells to which
   ' it currently points. A region is a cell range bounded by empty cells.
   oCursor.collapseToCurrentRegion()
   GetCurrentRegion = oCursor  'oRange.Spreadsheet.getCellRangeByName(oCursor.AbsoluteName)
End Function

Sub SetFormulaR1C1(sFormulaR1C1$, oCell As Object)
   Dim oParser As Object
   oParser = ThisComponent.CreateInstance("com.sun.star.sheet.FormulaParser")
   oParser.FormulaConvention = com.sun.star.sheet.AddressConvention.XL_R1C1
   oCell.Tokens = oParser.parseFormula(sFormulaR1C1, oCell.CellAddress)
End Sub

Текущий диапазон не должен содержать разрывов и должен быть ограничен пустыми строками снизу/столбцами справа (по ситуации; а то и сверху и слева).

Ещё вопросы есть?
Примечание. Я процедуру Main не тестировал: набрал прямо здесь. Если не проходит - сигнализируйте...

[siti]

что-то я не так делаю  
формат обеих ячеек - дата

[economist]

Даты, Числа - в Calc лучше никогда не форматировать по центру. Путь они сами выровняются (текст - влево, даты/числа-вправо).
Формат не меняет содержимого ячейки (только ее вид). А формула работает только с содержимым.
Функции можно писать на русском и английском, но в соответствии с флажком настройках Alt+F12 - ...Calc - Формулы - Использовать английские