Форум поддержки пользователей LibreOffice, Apache OpenOffice

Товарищи подскажите как сделать следующее:

Если дата документа (формат 'dd.mm.yyyy) выпадает на вторник, среду, четверг -> дата отправки на почту пятница (в ячейку запись 'dd.mm.yyyy)
Если дата документа (формат 'dd.mm.yyyy) выпадает на пятницу, субботу, воскресенье, понедельник -> дата отправки на почту вторник (в ячейку запись 'dd.mm.yyyy)

WeekDay(date) - вернет число [1..7]

Цитата: Aleksandr H. от 20 июля 2016, 14:42WeekDay(date) - вернет число [1..7]

Вернёт номер дня недели, а надо дату ближайшего вторника или пятницы.
Sub Main
aDate=CDate(Thiscomponent.Sheets(0).getCellByPosition(0,4).String)
oCell=Thiscomponent.Sheets(0).getCellByPosition(1,4)
oCell.Value=aDate+choose((aDate Mod 7) +1,3,2,1,3,2,1,4)
oCell.NumberFormat=36
End Sub
Исходная дата в ячейке A5, результат в B5. Результат может зависеть от настроек первого дня недели (в данном случае воскресенье)