OpenOffice.info

Sorry,
hat sich erledigt, ich habe das "Array" in der Übergabe übersehen.
Dank an alle, die sich beteiligt haben-
Gruß Markus

Sub Main
   Print uebergabetest (Array(1,2,8))
End Sub

Function uebergabetest (args()) As Integer

   uebergabetest = args(1)
   
End Function

Ok, ich habe die Umlaute entfernt und die Variablendeklaration mit Integer entfernt. Leider wird mir jede einzige Zahl des Arrays mit 1 angezeigt:

[code]Sub Main
Print uebergabetest (Array(1,2,8))
End Sub

Function uebergabetest (args()) As Integer

uebergabetest = args(1)

End Function[/code]

Gruß Markus

Sub Main
	Print Übergabetest (1,2,8)
End Sub

Function Übergabetest (args() As Interger) As Integer

	Übergabetest = args(1)
	
End Function

Liebe Leute,
ich komme mit dem Übergeben eines Arrays nicht zurecht. Kann da mal jemand drauf schauen?

[code]Sub Main
Print Übergabetest (1,2,8)
End Sub

Function Übergabetest (args() As Interger) As Integer

Übergabetest = args(1)

End Function[/code]

Gruß Markus

Sub Main
oFunctionAccess = createUnoService( "com.sun.star.sheet.FunctionAccess" )
args() = array(-5, 2, 8)
result = oFunctionAccess.callFunction( "MIN", args() )
print result
End Sub

Hallo
[code]Sub Main
oFunctionAccess = createUnoService( "com.sun.star.sheet.FunctionAccess" )
args() = array(-5, 2, 8)
result = oFunctionAccess.callFunction( "MIN", args() )
print result
End Sub[/code]

Noch Fragen?

Karolus

[quote="Shirkan"]Ich weiss nur nicht wie ich die Anzahl der Argumente variabel halten kann.[/quote]
Dafür gibt es grundsätzlich zwei Möglichkeiten. Das eine sind [b]optionale Parameter[/b] bei Definition und Aufruf der Funktion, siehe den Abschnitt "Optional Parameters" (Seite 32) im [url=http://wiki.documentfoundation.org/images/d/dd/BasicGuide_OOo3.2.0.odt]Basic Programmers Guide[/url]. Das andere Verfahren ist in deinem Fall erheblich besser, weil alle Parameter vom gleichen Typ sind, nämlich ein [b]Array of Integers[/b], das du einfach in einer Schleife durchlaufen kannst; mehr dazu steht bei [url=http://www.pitonyak.org/OOME_3_0.odt]Andrew's Macros[/url] im Abschnitt Language > Variable > Arrays.

Solange dein Array nicht mehrere Hundert Einträge hat, dürfte die Zeit der Prüfung nicht zu spüren sein. Viel Erfolg! Jürgen

Function Max(Item1 as Integer, Item2 As integer)
	If Item1 >= Item2 then
		Max = Item1
	Else
		Max = Item2
	EndIf
End Function

Hallo Jürgen,
ich benötige die Funktion in einer Programmroutine. Das ist also völlig unabhängig von einem Zellbereich. Der Wunsch wäre eine beliebige Anzahl von Argumenten zu haben und dann den maximalen Wert zu erhalten. Im Grunde ist es ja einfach für eine bestimmte Anzahl von Argumenten

[code]Function Max(Item1 as Integer, Item2 As integer)
If Item1 >= Item2 then
Max = Item1
Else
Max = Item2
EndIf
End Function[/code]

Ich weiss nur nicht wie ich die Anzahl der Argumente variabel halten kann.
Gruß Markus

Hallo Markus, im ersten Moment war ich auch verblüfft: Diese Funktionen gibt es offensichtlich nicht. Beim zweiten Nachdenken ist das aber auch verständlich: Sie können nur das Ergebnis [u]innerhalb eines bestimmten Bereichs[/u] liefern; dieser Bereich muss geeignet definiert sein. Davon sind auch die Vergleichsverfahren abhängig: Zahlen und auch Datumswerte werden anders geordnet als Texte.

Du musst also zunächst sagen, für welchen Bereich du diese Funktionen benötigst. Für Calc-Funktionen gibt es sie. Für andere Zwecke können dir vielleicht Tipps gegeben werden; bei Datenbanken beispielsweise kann MIN/MAX für Spalten bestimmt und über SELECT zurückgegeben werden. Jürgen

Liee Leute,
gibt es in StarBasic keine Min- / Max - Funktion? Wenn nicht, hat jemand so etwas mal programmiert oder weiss wo so etwas steht?
Danke für Eure Hilfe
Gruß Markus