Tage360-Funktion

Programmierung unter AOO/LO (StarBasic, Python, Java, ...)

Moderator: Moderatoren

lupolupp1
**
Beiträge: 32
Registriert: Do, 28.06.2007 14:51

Tage360-Funktion

Beitrag von lupolupp1 »

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
Stephan
********
Beiträge: 12368
Registriert: Mi, 30.06.2004 19:36
Wohnort: nahe Berlin

Re: Tage360-Funktion

Beitrag von Stephan »

Code: Alles auswählen

Function Tage30(Datum1, Datum2) as Integer
oFunctionAccess = createUnoService( "com.sun.star.sheet.FunctionAccess" ) 
Dim args(1)
args(0) = Datum1
args(1) = Datum2
Tage30 = oFunctionAccess.callFunction("DAYS360",args())
End Function
Eine Übersicht zu den englischen Namen ist in der StarBasicFAQ (siehe erster Thread im Forum) oder hier:
http://www.galileocomputing.de/download ... _de_en.pdf


Gruß
Stephan
lupolupp1
**
Beiträge: 32
Registriert: Do, 28.06.2007 14:51

Re: Tage360-Funktion

Beitrag von lupolupp1 »

Vielen Dank für die schnelle Antwort!
Das ist echt ein klasse Forum hier.

OpenOffice macht mir immer mehr Spaß, schade dass wir es (noch) nicht auf der Arbeit nutzen ...

Viele Grüße

Lupo
lupolupp1
**
Beiträge: 32
Registriert: Do, 28.06.2007 14:51

Re: Tage360-Funktion

Beitrag von lupolupp1 »

Hi Stephan,

ich bekam zunächst noch den gleichen Fehler.

args muss als String deklariert werden. Dann klappt's.

Vielen Dank nochmal.

Lupo
Stephan
********
Beiträge: 12368
Registriert: Mi, 30.06.2004 19:36
Wohnort: nahe Berlin

Re: Tage360-Funktion

Beitrag von Stephan »

ich bekam zunächst noch den gleichen Fehler.

args muss als String deklariert werden. Dann klappt's.
kann ich nicht bestätigen.
Tage360 (bzw. Days350) sollte beides akzeptieren, denn die Übergabe der Datumsparameter als String bewirkt lediglich das die Anzeige der Formel innerhalb der GUI nicht in eine serielle Zahl gewandelt wird.


Gruß
Stephan
Antworten