Re: [de-users] Calc: numbertext() in Base nutzen

Hallo Gerhard,
wow! das ist wirklich easy...

Sub EineFonctionCalc()
Dim params As Variant
params = Array(35,"de-DE")
print inWorten(params())
End Sub

Function inWorten(liste As Variant) As String
Dim acceder As Object
acceder = CreateUnoService("com.sun.star.sheet.FunctionAccess")
inWorten = acceder.callFunction("NUMBERTEXT", liste)
End Function

+ vielen Dank für den Tipp!
Gisbert



Am 19.04.2018 um 19:23 schrieb Gerhard Weydt:
> Hallo Gisbert,
>
> Marcelly und Godard geben in ihrem Buch "Programmation OpenOffice.org et 
> LibreOffice zwei Beispiele, wie man Calc-Funktionen von anderen Modulen 
> aus aufruft. Ich habe es selber nicht probiert.Ich schicke dir nur die 
> Makros, du bist ja wahrlich kein Anfänger, das wird dir sicher genügen:
>
> rem Code09-03.ods bibli : Fonctions Module1
> Option Explicit
> Sub UtiliserFonctionCalc()
> Dim params As Variant
> params = Array(35,75,1110)
> print PPCM(params())
> ' appel sans utiliser de variable intermédiaire
> print PPCM(Array(17, 525, 357, 76, 54))
> End Sub
> Function PPCM(liste As Variant) As Long
> Dim acceder As Object
> acceder = CreateUnoService("com.sun.star.sheet.FunctionAccess")
> PPCM = acceder.callFunction("LCM", liste)
> End Function
>
> und das zweite:
>
> rem Code09-03.ods bibli : Fonctions Module1
> Option Explicit
> Sub UtiliserFonctionCalc()
> Dim params As Variant
> params = Array(35,75,1110)
> print PPCM(params())
> ' appel sans utiliser de variable intermédiaire
> print PPCM(Array(17, 525, 357, 76, 54))
> End Sub
> Function PPCM(liste As Variant) As Long
> Dim acceder As Object
> acceder = CreateUnoService("com.sun.star.sheet.FunctionAccess")
> PPCM = acceder.callFunction("LCM", liste)
> End Function
>
> Gruß
>
> Gerhard
>
> Am 19.04.2018 um 18:00 schrieb dmaths:
> > Hallo,
> > bis jetzt habe ich in Base eine rudimentäre
> > Übersetzung von Zahlen in Worte
> > mit einer kleinen zweispaltigen Tabelle "inWorten" und
> > einer Abfrage bewerkstelligt:
> >
> >
> > SELECT  ( "Betrag" / 1000 ) AS "z", ...
> > ...
> > "inWorten"."text" || 'tausend' AS "BETRAGINWORTEN", ...
> > ...
> > WHERE "inWorten"."zahl" = "z"
> > ...
> >
> > Das geht solange gut wie als "Betrag" nur ganze Tausender vorkommen.
> > Ansonsten wird das ganze ziemlich unübersichtlich...
> >
> > Für Calc gibt es ja die Extension numbertext.oxt, die eine Funktion
> > NUMBERTEXT(z;"Sprachcode") zur Verfügung stellt und diese Übersetzung 
> > eigentlich ganz schön macht. Aber eben nur in Calc-Formeln.
> >
> > Muss man nun in Base (im Hintergrund) per Makro
> > - erst ein Calc-Dokument erzeugen,
> > - die Zahl eintragen
> > - die Funktion NUMBERTEXT verwenden
> > - das Ergebnis auslesen
> > - das Calc-Dokument wieder zumachen?
> >
> > Oder Weiß jemand einen eleganten Weg um mit einem Makro in Base direkt 
> > eine Calc-Funktion zu verwenden?
> >
> > Auf der Seite numbertext.org findet sich (neben der LO-Extension) auch 
> > noch eine Java-Datei numbertext.jar, die jemand vielleicht so in 
> > LibreOffice installieren könnte, dass man von Base aus darauf 
> > zugreifen könnte??
> > - LibreOffie ist doch so unglaublich flexibel erweiterbar!?
> >
> > Mit hoffnungsvollen Grüßen
> > Gisbert


--
Liste abmelden mit E-Mail an: users+unsubscribe@de.libreoffice.org
Probleme? https://de.libreoffice.org/hilfe-kontakt/mailing-listen/abmeldung-liste/
Tipps zu Listenmails: https://wiki.documentfoundation.org/Netiquette/de
Listenarchiv: https://listarchives.libreoffice.org/de/users/
Alle E-Mails an diese Liste werden unlöschbar öffentlich archiviert