Datumsfunktion

[kvogelsa]

Moin!

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

Code: Alles auswählen

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?

[komma4]

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?

[kvogelsa]

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