[Solved] Runtime error 35 CDateToUnoDate

[artem78]

I have dialog with date field which value I need to set to today. This code works in LibreOffice, but not in OpenOffice:

Code: Select all

DialogLibraries.LoadLibrary("Standard")
Dim Dlg As Object
Dlg = CreateUnoDialog(DialogLibraries.Standard.InputDataDialog)
Dlg.getControl("DateField").Date = CDateToUnoDate(Date())

In OpenOfice it raises runtime error 35 CDateToUnoDate.

How to make this code works in both LibreOffice and OpenOffice?

Thanks.

[RoryOF]

See https://wiki.openoffice.org/wiki/Docume ... Date_Field for OpenOffice's take on this.

[JeJe]

OO doesn't have that function, CDateToUnoDate, natively so you have to write it - its trivial to do.

Note in OO the year in the Date struct is an unsigned short, in LO a short.

Code: Select all

function CDateToUnoDateOOAndLO(d as Date) as com.sun.star.util.Date
dim dd as new com.sun.star.util.Date
with dd
.month= month(d)
.day = day(d)
.year = year(d)
CDateToUnoDateOOAndLO = dd
end with
end function

[JeJe]

The date field value looks to be a long though (as per RoryOF's link) - so scrap that - instead you'll need to test for whether its LO or OO and use CDateToIso if its OO.

There's a lot of divergence between OO and LO in dialog controls now.

Edit: you may find this thread of interest
viewtopic.php?t=82181

[Zizi64]

How to make this code works in both LibreOffice and OpenOffice?

I suggest you to install the LibreOffice (same version on all of the related computers).

[artem78]

you'll need to test for whether its LO or OO and use CDateToIso if its OO.

I made this trick to detect LO/OO and it works:

Code: Select all

if TypeOf Dlg.getControl("DateField").Date is com.sun.star.util.Date Then
	' Code for LibreOffice
	Dlg.getControl("DateField").Date = CDateToUnoDate(Date())
Else
	' Code for OpenOffice
	Dlg.getControl("DateField").Date = CDateToIso(Date())
End If

Thanks.

[Lupp]

See also: viewtopic.php?p=538585#p538585