[Solved] Calc Macro - DAYSINMONTH gives error

[hopeman]

I am trying to create a macro which uses spreadsheet function DAYSINMONTH() but it gives me error. Here is my code :

Code: Select all

Dim spreadsheetService As Object
Dim daysInMonth As Integer 

spreadsheetService = createUnoService("com.sun.star.sheet.FunctionAccess")
daysInMonth=spreadsheetService.callFunction("DAYSINMONTH", "2021-01-01") 

Why the last line gives "Runtime Error : Object variable not set" error ?

[FJCC]

The second argument of callFunction needs to be an array.

Code: Select all

spreadsheetService = createUnoService("com.sun.star.sheet.FunctionAccess")
daysInMonth=spreadsheetService.callFunction("DAYSINMONTH", array("2021-01-01"))
print daysInMonth

[hopeman]

Hi FJCC,
Thanks for fast answer! But this time I got this error :

[hopeman]

The second argument of callFunction needs to be an array.

Code: Select all

spreadsheetService = createUnoService("com.sun.star.sheet.FunctionAccess")
daysInMonth=spreadsheetService.callFunction("DAYSINMONTH", array("2021-01-01"))
print daysInMonth

OK!! Thanks FJCC, your solution works ! I did not know that I can use function's localized names (for instance my office if in Turkish and DAYSINMONTH replaced by AYDAKİGÜNLER) . So when I used Turkish function name, it worked !
I learnt that :
1 . callFunction always use array for function parameters
2. I can use function names of my local language in OpenOffice
Thanks.

[Villeroy]

The true name of DAYSINMONTH is "com.sun.star.sheet.addin.DateFunctions.getDaysInMonth" because it is an additional function. This function is not part of the Open Document Standard.

Enter =AYDAKİGÜNLER("2021-01-01") into some cell, select the cell and call this macro:

Code: Select all

Sub showFormula()
inputbox "","", ThisComponent.CurrentSelection.getFormula()
End Sub

This should work with all user interface languages:

Code: Select all

daysInMonth=spreadsheetService.callFunction("com.sun.star.sheet.addin.DateFunctions.getDaysInMonth", array("2021-01-01"))