OpenOffice.info

Dim isumme as Currency
isumme = 0
oForm.first
do
  isumme = isumme + oForm.getDouble(6) - oForm.getDouble(7)
loop while oForm.next
bvalid = (isumme = 0)

Ich habe es jetzt mit [b]getDouble [/b]realisiert, habe aber meine Zweifel, ob das mit der Genauigkeit ausreichend sicher ist. Aufgabe: Kontrolliere in der Buchhaltung, ob für alle Teile Summe(Soll) gleich Summe(Haben) gilt.
[code]Dim isumme as Currency
isumme = 0
oForm.first
do
isumme = isumme + oForm.getDouble(6) - oForm.getDouble(7)
loop while oForm.next
bvalid = (isumme = 0)[/code]
Jürgen

Sowohl MySQL als auch StarBasic kennen einen [b]Datentyp für kaufmännische Genauigkeit[/b] (Decimal bzw. Currency). Aber in der [url=http://www.openoffice.org/api/docs/common/ref/com/sun/star/sdbc/XRow.html]API-Referenz[/url] gibt es keine passende Methode, um die Werte zu übernehmen. Wird etwa mit getDouble die Genauigkeit erhalten? (Das kann ich mir eigentlich nicht vorstellen.) Oder kann mit getObject, getBytes oder getLong getrickst werden?

Hintergrund: Die Daten werden in einem Base-Formular eingegeben. Diese Werte möchte ich innerhalb eines Makros auswerten. Notfalls geht es über ein UPDATE mit nachfolgendem SELECT über eine berechnete Spalte; aber wenn die Werte schon im Base-Formular sind, wäre ein direktes Berechnen angemessen.

Jürgen

LibreOffice Version 3.6.2.2 (Build ID: da8c1e6)



[color=#800000]Moderation,4[/color]: verschoben in BASIC-Unterbereich, wo alle Makro-Fragen hin gehören; Betreff angepasst
[i]Sorry, das war ein Versehen. Selbstverständlich ist das eine Basic-Frage. Jürgen[/i]