Fwd: Re: Aufrunden in Basic-Makro?

[Oliver Brinzing]

Hi,


ich verzweifel gerade; ich müsste in einem Makro (also Basic) einen Wert
*aufrunden*, finde aber dazu keine Funktion. Gibt es wirklich nur INT


Du kannst aus Basic grds. die Calc Funktionen über csss.FunctionAccess
https://wiki.openoffice.org/wiki/Documentation/DevGuide/Spreadsheets/Function_Handling#Calculating_Function_Results
aufrufen

Gruß
Oliver

OPTION EXPLICIT
Sub Main
Dim oFuncAccess as Object
Dim num as Double
Dim res as Double
Dim count as Integer

num = 123.45678
count = 1

oFuncAccess = createUnoService( "com.sun.star.sheet.FunctionAccess")
res = oFuncAccess.callFunction("ROUND", Array(num, count))
msgBox res
End Sub


-
To unsubscribe, e-mail: users-de-unsubscr...@openoffice.apache.org
For additional commands, e-mail: users-de-h...@openoffice.apache.org

Re: Aufrunden in Basic-Makro?

[Bernd Obermayr]

Wolfgang Jäth schrieb am 25.05.2017 um 10:32:
> Hi,
> 
> ich verzweifel gerade; ich müsste in einem Makro (also Basic) einen Wert
> *aufrunden*, finde aber dazu keine Funktion. Gibt es wirklich nur INT
> bzw. FIX (die aber lediglich *abrunden*), oder bin ich blind?
> 
> Gips evtl. irgend einen Workaround? Im Internet hab ich z. B. so was wie
> 
> | WorksheetFunction.Round(2.7, 2)

Da fehlt

Option VBAsupport 1

am Anfang des Moduls

public Function myround(optional zahl)
if IsMissing (zahl) then
zahl=123.34567
end if
myround=WorksheetFunction.Round(zahl, 2)
End Function

so gehts auch ohne:

public Function myround(optional zahl)
if IsMissing (zahl) then
zahl=123.34567
end if
myround=round(zahl,2)
End Function


> 
> gefunden, aber da meckert mein (deutsches) OO eine nicht belegte
> Objektvariable an.
> 
> Wolfgang
> 


-- 
Gruss
  Bernd


-
To unsubscribe, e-mail: users-de-unsubscr...@openoffice.apache.org
For additional commands, e-mail: users-de-h...@openoffice.apache.org

Re: Aufrunden in Basic-Makro?

[Wolfgang Jäth]

Am 25.05.2017 um 13:48 schrieb Mechtilde:
> Hallo Wolfgang,
> 
> mit der Funktion "Runden" wir auf die nächste ganze Zahl gerundet. 

Das weiß ich; aber das eintscheidende ist, die Funktion RUNDEN ist eine
*Calc*-Funktion, keine *Basic*-Funktion.

Das Makro schreibt Calc-Formeln in Tabellenblatt-Zellen. Damit kann ich
aber nix anfangen; ich muss *in Basic* runden, nicht in /Calc/.

> Damit
> dies auf für Dezimalzahlen mit festen Nachkommastellen , wie bei
> Beträgen, funktioniert, muss zunächst die Zahl, die gerundet werden soll
> mit 100 multipliziert werden, dann ge"rundet, und dann wieder durch 100
> geteilt werden.

In Calc aka dem Tabellenblatt kann ich auch problemlos mit der Funktion
AUFRUNDEN aufrunden; das ist nicht das Problem. Das Problem ist, dass
ich das im *Makro* brauche, nicht in einer /Zelle/.

> Sollte die Funktion immer nur abrunden, muss vor der Multiplikation mit
> 100 noch 0,5 addiert werden.

Das hab ich schon probiert; vielleicht bist Du da ja anderer Ansicht,
aber *meiner* Meinung nach sind Formeln wie

| myTypA = (int(myTypB+0.5)/15) +
((int(myTypC+0.5)*20+0.5)/5)/(int(myTypD) + (int(myTypA+0.5)/30))

wirklich nicht mehr übersichtlich. Selbst das 'Original'

| myTypA = (Aufrunden(myTypB)/15 +
Aufrunden(myTypC*20)/5)/(Abrunden(myTypD) + Aufrunden(myTypA)/30)

ist schon hart an der Grenze (aber noch(!) verstehbar).

Wolfgang
-- 

-
To unsubscribe, e-mail: users-de-unsubscr...@openoffice.apache.org
For additional commands, e-mail: users-de-h...@openoffice.apache.org

Re: Aufrunden in Basic-Makro?

[Bernd Obermayr]

Wolfgang Jäth schrieb am 25.05.2017 um 10:32:
> Hi,
> 
> ich verzweifel gerade; ich müsste in einem Makro (also Basic) einen Wert
> *aufrunden*, finde aber dazu keine Funktion. Gibt es wirklich nur INT
> bzw. FIX (die aber lediglich *abrunden*), oder bin ich blind?
> 
> Gips evtl. irgend einen Workaround? Im Internet hab ich z. B. so was wie
> 
> | WorksheetFunction.Round(2.7, 2)
> 
> gefunden, aber da meckert mein (deutsches) OO eine nicht belegte
> Objektvariable an.
> 
> Wolfgang
> 
Hi,
wie wärs damit:


-- 
Gruss
  Bernd


-
To unsubscribe, e-mail: users-de-unsubscr...@openoffice.apache.org
For additional commands, e-mail: users-de-h...@openoffice.apache.org

Re: Aufrunden in Basic-Makro?

[Mechtilde]

Hallo Wolfgang,

mit der Funktion "Runden" wir auf die nächste ganze Zahl gerundet. Damit
dies auf für Dezimalzahlen mit festen Nachkommastellen , wie bei
Beträgen, funktioniert, muss zunächst die Zahl, die gerundet werden soll
mit 100 multipliziert werden, dann ge"rundet, und dann wieder durch 100
geteilt werden.

Sollte die Funktion immer nur abrunden, muss vor der Multiplikation mit
100 noch 0,5 addiert werden.

Gruß

Mechtilde

Am 25.05.2017 um 13:35 schrieb Wolfgang Jäth:
> Am 25.05.2017 um 10:56 schrieb Mechtilde:
>> Hallo,
>>
>> Schau mal in
>>
>> http://canzeley.de/download/forderungsberechnung/096/Forderungsberechnung367.ots
>>
>> Dort sind alle Beträge auf 2 Stellen hinter dem Komma gerundet.
>>
>> Im Makro stehen die entsprechenden Rechenformeln
> 
> Danke; aber soweit ich das erkennen kann, werden in den Makros lediglich
> *Calc-Formeln* [1] erstellt, die dann wohl in Tabellenblatt-Zellen
> eingefügt werden sollen. Direkte Rundungsoperationen *in Basic* kann ich
> aber leider nicht finden. Oder hab ich irgendwo was übersehen?
> 
> [1] z. B. so was:
> | sFormel = "=RUNDEN(L" & CStr(iLeereZeile-1) & "*H" & CStr(iLeereZeile)
> & "*Q" & CStr(iLeereZeile-1) & "/360*100)/100"
> 
> Wolfgang
> 

-- 
Mechtilde Stehmann
## Apache OpenOffice.org
## Freie Office Suite für Linux, MacOSX, Windows
## Debian Developer
## Loook, calender-exchange-provider, libreoffice-canzeley-client
## PGP encryption welcome
## Key-ID 0x141AAD7F



signature.asc
Description: OpenPGP digital signature

Re: Aufrunden in Basic-Makro?

[Wolfgang Jäth]

Am 25.05.2017 um 10:56 schrieb Mechtilde:
> Hallo,
> 
> Schau mal in
> 
> http://canzeley.de/download/forderungsberechnung/096/Forderungsberechnung367.ots
> 
> Dort sind alle Beträge auf 2 Stellen hinter dem Komma gerundet.
> 
> Im Makro stehen die entsprechenden Rechenformeln

Danke; aber soweit ich das erkennen kann, werden in den Makros lediglich
*Calc-Formeln* [1] erstellt, die dann wohl in Tabellenblatt-Zellen
eingefügt werden sollen. Direkte Rundungsoperationen *in Basic* kann ich
aber leider nicht finden. Oder hab ich irgendwo was übersehen?

[1] z. B. so was:
| sFormel = "=RUNDEN(L" & CStr(iLeereZeile-1) & "*H" & CStr(iLeereZeile)
& "*Q" & CStr(iLeereZeile-1) & "/360*100)/100"

Wolfgang
-- 

-
To unsubscribe, e-mail: users-de-unsubscr...@openoffice.apache.org
For additional commands, e-mail: users-de-h...@openoffice.apache.org

Re: Aufrunden in Basic-Makro?

[Mechtilde]

Hallo,

Schau mal in

http://canzeley.de/download/forderungsberechnung/096/Forderungsberechnung367.ots

Dort sind alle Beträge auf 2 Stellen hinter dem Komma gerundet.

Im Makro stehen die entsprechenden Rechenformeln

Gruß

Mechtilde

Am 25.05.2017 um 10:32 schrieb Wolfgang Jäth:
> Hi,
> 
> ich verzweifel gerade; ich müsste in einem Makro (also Basic) einen Wert
> *aufrunden*, finde aber dazu keine Funktion. Gibt es wirklich nur INT
> bzw. FIX (die aber lediglich *abrunden*), oder bin ich blind?
> 
> Gips evtl. irgend einen Workaround? Im Internet hab ich z. B. so was wie
> 
> | WorksheetFunction.Round(2.7, 2)
> 
> gefunden, aber da meckert mein (deutsches) OO eine nicht belegte
> Objektvariable an.
> 
> Wolfgang
> 

-- 
Mechtilde Stehmann
## Apache OpenOffice.org
## Freie Office Suite für Linux, MacOSX, Windows
## Debian Developer
## Loook, calender-exchange-provider, libreoffice-canzeley-client
## PGP encryption welcome
## Key-ID 0x141AAD7F



signature.asc
Description: OpenPGP digital signature

Aufrunden in Basic-Makro?

[Wolfgang Jäth]

Hi,

ich verzweifel gerade; ich müsste in einem Makro (also Basic) einen Wert
*aufrunden*, finde aber dazu keine Funktion. Gibt es wirklich nur INT
bzw. FIX (die aber lediglich *abrunden*), oder bin ich blind?

Gips evtl. irgend einen Workaround? Im Internet hab ich z. B. so was wie

| WorksheetFunction.Round(2.7, 2)

gefunden, aber da meckert mein (deutsches) OO eine nicht belegte
Objektvariable an.

Wolfgang
-- 

-
To unsubscribe, e-mail: users-de-unsubscr...@openoffice.apache.org
For additional commands, e-mail: users-de-h...@openoffice.apache.org

Re: Druckvorlagen

[Martin Jenniges]

Hallo,

ich habe gerade die Druckvorlagen für OpenOffice von Hermann 
runtergeladen und eine geöffnet.


die geöffnete Vorlage ist schreibgeschützt und OpenOffice schlägt die 
Bearbeitung in einer Kopie vor. Dann kann ich Text einfügen.
mir fiel noch auf, dass es sich um eine Tabelle in Writer handelt; also 
keine echte Etikettenvorlage, wie sie meines Wissens Writer bietet.


viele Grüsse
Martin



Am 25.05.2017 um 08:24 schrieb Martin Jenniges:

Hallo Herbert,

eine Lösung habe ich leider auch nicht!

Mich interessiert aber dein Problem, kannst du es bitte näher 
beschreiben ?


Welche Software von Hermann nutzt du ?
Gibt OpenOffice eine Meldung aus ?

viele Grüsse
Martin Jenniges




Am 24.05.2017 um 11:27 schrieb Herbert Scholl:

Sehr geehrte Herren,

ich habe seit einer Woche  Probleme mit dem Open Office Writer da 
alle meine Etiketten -
Druckvorlagen von Open Office gelöscht und blockiert werden auch wenn 
ich von Herma eine

Print Software für Open Office downloaden will.
Warum haben sie plötzlich die Software geändert !!!
Wann kann ich wieder  normal meine Etiketten Druckvorlagen wie vorher 
nützen wie das seit Jahren

der Fall war.
Die Firma HERMA Etiketten ist damit auch belastet.
Ich danke für eine schnelle Info wann u. wie diese Blockade 
verschwindet.

H.Scholl – Belgien -




-
To unsubscribe, e-mail: users-de-unsubscr...@openoffice.apache.org
For additional commands, e-mail: users-de-h...@openoffice.apache.org




-
To unsubscribe, e-mail: users-de-unsubscr...@openoffice.apache.org
For additional commands, e-mail: users-de-h...@openoffice.apache.org

Re: Druckvorlagen

[Josef Latt]

Hi,

Am 24.05.2017 um 11:27 schrieb Herbert Scholl:
> Sehr geehrte Herren,
> 
> ich habe seit einer Woche  Probleme mit dem Open Office Writer da alle meine 
> Etiketten -
> Druckvorlagen von Open Office gelöscht und blockiert werden auch wenn ich von 
> Herma eine
> Print Software für Open Office downloaden will.

Es gibt von Herma Etiketten Vorlagen für OpenOffice aber keine
Print Software.

Um die Etiketten zu sehen, müssen die Tabellenbegrenzungen aktiviert sein.

Gruß

-
To unsubscribe, e-mail: users-de-unsubscr...@openoffice.apache.org
For additional commands, e-mail: users-de-h...@openoffice.apache.org

Re: Druckvorlagen

[Martin Jenniges]

Hallo Herbert,

eine Lösung habe ich leider auch nicht!

Mich interessiert aber dein Problem, kannst du es bitte näher beschreiben ?

Welche Software von Hermann nutzt du ?
Gibt OpenOffice eine Meldung aus ?

viele Grüsse
Martin Jenniges




Am 24.05.2017 um 11:27 schrieb Herbert Scholl:

Sehr geehrte Herren,

ich habe seit einer Woche  Probleme mit dem Open Office Writer da alle meine 
Etiketten -
Druckvorlagen von Open Office gelöscht und blockiert werden auch wenn ich von 
Herma eine
Print Software für Open Office downloaden will.
Warum haben sie plötzlich die Software geändert !!!
Wann kann ich wieder  normal meine Etiketten Druckvorlagen wie vorher nützen 
wie das seit Jahren
der Fall war.
Die Firma HERMA Etiketten ist damit auch belastet.
Ich danke für eine schnelle Info wann u. wie diese Blockade verschwindet.
H.Scholl – Belgien -




-
To unsubscribe, e-mail: users-de-unsubscr...@openoffice.apache.org
For additional commands, e-mail: users-de-h...@openoffice.apache.org