von lupolupp1 » Do, 16.08.2007 23:03
Hallo zusammen,
ich möchte in ooBasic gerne die Calc-Funktion Tage360 verwenden.
Dazu habe ich folgende Funktion programmiert:
Function Tage30(Datum1, Datum2) as Integer
oFunctionAccess = createUnoService( "com.sun.star.sheet.FunctionAccess" )
Dim args(1) as Date
args(0) = Datum1
args(1) = Datum2
Tage30 = oFunctionAccess.callFunction("Tage360",args())
End Function
Diese rufe ich wie folgt auf, wobei Vordatum beispielsweise 30.03.2004 und Vergleich 01.05.2004 ist:
Zinstage = Tage30(Vordatum,Vergleich)
Die Übernahme der Werte in die Funktion klappt auch einwandfrei. args(0) ist dann 30.03.2004 und args(1) 01.05.2004.
Ich bekomme jedoch immer den Fehlerhinweis: Basic-Laufzeitfehler, Objektvariable nicht belegt.
Wenn ich args als String deklariere erhalte ich den Fehlerhinweis: Basic-Laufzeitfehler, es ist eine Exception aufgetreten,
Type: Com.Sun.Star.Container.NoSuchElementException, Message: .
Als Integer kann ich args nicht deklarieren, da bekomme ich den Hinweis "unzulässiger Wert", da Datum1 + 2 ja Datenformat haben.
Selbst wenn ich args gar nicht deklariere (also als Variant bestehen lasse) bekomme ich den Fehlerhinweis Objektvariable nicht belegt.
Wie muss ich den Code ändern oder was muss ich berücksichtigen, um die Funktion Tage360 in ooBasic nutzen zu können?
Vielen Dank und viele Grüße
Lupo
Hallo zusammen,
ich möchte in ooBasic gerne die Calc-Funktion Tage360 verwenden.
Dazu habe ich folgende Funktion programmiert:
Function Tage30(Datum1, Datum2) as Integer
oFunctionAccess = createUnoService( "com.sun.star.sheet.FunctionAccess" )
Dim args(1) as Date
args(0) = Datum1
args(1) = Datum2
Tage30 = oFunctionAccess.callFunction("Tage360",args())
End Function
Diese rufe ich wie folgt auf, wobei Vordatum beispielsweise 30.03.2004 und Vergleich 01.05.2004 ist:
Zinstage = Tage30(Vordatum,Vergleich)
Die Übernahme der Werte in die Funktion klappt auch einwandfrei. args(0) ist dann 30.03.2004 und args(1) 01.05.2004.
Ich bekomme jedoch immer den Fehlerhinweis: Basic-Laufzeitfehler, Objektvariable nicht belegt.
Wenn ich args als String deklariere erhalte ich den Fehlerhinweis: Basic-Laufzeitfehler, es ist eine Exception aufgetreten,
Type: Com.Sun.Star.Container.NoSuchElementException, Message: .
Als Integer kann ich args nicht deklarieren, da bekomme ich den Hinweis "unzulässiger Wert", da Datum1 + 2 ja Datenformat haben.
Selbst wenn ich args gar nicht deklariere (also als Variant bestehen lasse) bekomme ich den Fehlerhinweis Objektvariable nicht belegt.
Wie muss ich den Code ändern oder was muss ich berücksichtigen, um die Funktion Tage360 in ooBasic nutzen zu können?
Vielen Dank und viele Grüße
Lupo