OpenOffice.info

Hallo Michael,

[quote="ykcim"]der Rundungbefehl ist überflüssig. Format() rundet von alleine.
[/quote]
Danke Michael, daran habe ich überhaupt nicht gedacht.

Schönes Wochenende.

Jürgen

Hi,
der Rundungbefehl ist überflüssig. Format() rundet von alleine.

mfg
Michael

Sub Zahl_Nachkomma
	FuncAcc = createunoservice("com.sun.star.sheet.FunctionAccess")
	aResult=FuncAcc.callFunction("ROUND", array(23 , 2))
	s =  Format(aResult, "0.00")
	myResult = "€ " + s
	msgbox myResult
End Sub

[quote="Schwedenbitter"]Ich vermute, dass die 2 in dem Array die Anzahl der Nachkommastellen angeben soll.
[/quote]
Nein, die 2 gibt die letzte Nachkommastelle an [b]wo gerundet[/b] wird.

Wenn Du zwei Stellen hinter den Komma brauchst dann hilft das hier:
[code]Sub Zahl_Nachkomma
FuncAcc = createunoservice("com.sun.star.sheet.FunctionAccess")
aResult=FuncAcc.callFunction("ROUND", array(23 , 2))
s = Format(aResult, "0.00")
myResult = "€ " + s
msgbox myResult
End Sub[/code]

[quote="Schwedenbitter"]Der von Calc (#.##0 [$€-407];[ROT]-#.##0 [$€-407]) ist es jedenfalls nicht und auch Probieren hat mich hier nicht weitergebracht.
[/quote]
Das ist das Zahlenformat für die [b]Zelle [/b]. Dazu findest Du [url=http://de.openoffice.info/viewtopic.php?f=18&t=18005#p75544]hier[/url] ein Beispiel.

Jetzt alles klar?

Jürgen

Danke Jürgen,

das sieht schon einmal gut aus. Ich vermute, dass die [b]2[/b] in dem Array die Anzahl der Nachkommastellen angeben soll. Nur leider scheint ihn das bei mir nicht zu interessieren. Wenn ich z.B. 197 (nicht 197,00 oder 197.00) als Wert mitgebe, dann bringt er als Ergebnis auch nur die "197" und nicht - wie gewünscht - die "197,00".

Ich habe in der Zwischenzeit auch gesehen, dass es im Basic die Function [b]Format (Zahl [, Format As String])[/b] gibt. Ich komme aber mit dem Formatstring überhaupt nicht klar. Der von Calc (#.##0 [$€-407];[ROT]-#.##0 [$€-407]) ist es jedenfalls nicht und auch Probieren hat mich hier nicht weitergebracht.

Gruß, Alex

P.S. Wo bekommt man mehr Informationen zum Programmieren mit OOo her, als aus dem lückenhaften Hilfetext? Die Seite [url=http://www.dannenhoefer.de/faqstarbasic/index.html]StarBasic FAQ[/url] kenne ich schon. Dort wird unter anderem Format auch als Runtime Function genannt; nicht aber, wie man sie genau verwendet.

Sub Zahl_Runden
	FuncAcc = createunoservice("com.sun.star.sheet.FunctionAccess")
	aResult=FuncAcc.callFunction("ROUND", array(13.371399747 , 2))
	myResult = "€ " + aResult
	'myresult =("123,999") 'zum Testen auf Zahl
	myCheck = isnumeric(myresult)
	if myCheck Then print "Zahl" else print "Keine Zahl"
	msgbox myResult
End Sub

Hallo Alex,

bringt Dich folgender Code weiter:
[code]Sub Zahl_Runden
FuncAcc = createunoservice("com.sun.star.sheet.FunctionAccess")
aResult=FuncAcc.callFunction("ROUND", array(13.371399747 , 2))
myResult = "€ " + aResult
'myresult =("123,999") 'zum Testen auf Zahl
myCheck = isnumeric(myresult)
if myCheck Then print "Zahl" else print "Keine Zahl"
msgbox myResult
End Sub[/code]

Jürgen

Hallo,

ich möchte gern ein Makro programmieren, welches Berechnungen mit Gleitkommazahlen vornimmt und die auch ausgibt. Das ist aber nicht mein Problem. Ich möchte aber gern, dass diese Zahlen möglichst einfach als Währung dargestellt werden. Das €-Zeichen davor zu setzen, bekomme ich hin.

[b]Wie schaffe ich es, dass mir OOo die Zahlen mit einer Genauigkeit von 2 Nachkommastellen in Strings umwandelt?[/b]

Ich habe schon einige Befehle ausprobiert. Leider ohne durchschlagenden Erfolg.

Gruß, Alex