OpenOffice.info

Verfasst: **Mi, 12.09.2007 14:51**

Moin!

Ich würde zum Zwecke der Fristsetzung gern das Datum automatisiert einfügen, habe dafür folgenden code probiert:

dim args3(0) as new com.sun.star.beans.PropertyValue
args3(0).Name = "Text"
args3(0).Value = Date

dispatcher.executeDispatch(document, ".uno:InsertText", "", 0, args3())

Der funkioniert, es wird das aktuelle Datum im Format 12.09.2007 eingefügt. Nun will ich ja beim Frist setzen nicht das aktuelle Datum sondern eines in der Zukunft, exakt 2 Wochen. Also will ich folgenden Code:

Code: Alles auswählen

dim args3(0) as new com.sun.star.beans.PropertyValue
args3(0).Name = "Text"
args3(0).Value = DateAdd("ww", 2, Date)

dispatcher.executeDispatch(document, ".uno:InsertText", "", 0, args3())

Der mir jedoch den Rücklauf "Objektvariable nicht belegt" beschert.

Code: Alles auswählen

Sub example_dateadd
msgbox DateAdd("ww", 2, Date)
End Sub

liefert eine Box mit dem gewünschten Datum.

Jemand ne Idee?

Verfasst: **Mi, 12.09.2007 15:35**

ich denke, dass hat mit dem Rückgabewert zu tun: definierst Du den nicht, wird ein Variant verwendet, den der dispatcher nicht verarbeiten kann.
Das funktioniert für ein Writer-Dokument:

Code: Alles auswählen

Sub add2DateDispatcher

document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper") 

Dim myDate as String
myDate = DateAdd("ww", 2, Date)

dim args3(0) as new com.sun.star.beans.PropertyValue
args3(0).Name = "Text"
args3(0).Value = myDate

dispatcher.executeDispatch(document, ".uno:InsertText", "", 0, args3()  )

End Sub

War es das?

Verfasst: **Mi, 12.09.2007 15:51**

Danke das war es. Mit einer Variable hatte ich auch rumgemacht, hatte oDatum aber als object definiert. nun geht es

OpenOffice.info

Datumsfunktion

Datumsfunktion

Re: Datumsfunktion

Re: Datumsfunktion