как использовать daysinmonth в макросе?

[rimus]

Ребят может кто-нибудь сталкивался с такой проблемой...
Нужно в существующий макрос добавить функцию определения
количества дней в выбранном месяце, но при ее использовании
вылазит ошибка, что подпрограмма или функция не определена.
Пример:

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


Dim kolvo_days As Integer
kolvo_days=daysinmonth("2018-02-01")

Скорее всего нужно данную функцию подключать через какую-то либу,
но как не могу разобраться. Подскажите если кто с подобным сталкивался.

[rami]

Так:

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

Sub Main
svc=createUnoService("com.sun.star.sheet.FunctionAccess")
days=svc.callFunction("DAYSINMONTH",array("2018-02-01"))
Print days
End Sub

[rimus]

Спасибо огромное!!! С наступающим новым годом! Тема закрыта!