🙏 Helfen Sie jetzt mit, unser LibreOffice Forum zu erhalten! 🙏
Mit Ihrer Spende sichern Sie den Fortbestand, den Ausbau und die laufenden Kosten dieses Forums. 🌱

🍀 Jeder Beitrag zählt – vielen Dank für Ihre Unterstützung!🍀

❤️ DANKE >> << DANKE ❤️

>> Dank Ihrer Unterstützung -> Keine Werbung für alle registrierten LibreOffice-Forum User! <<
🤗 Als Dankeschön werden Sie im Forum als LO-SUPPORTER gekennzeichnet. 🤗

[gelöst] ein Double-Ergebnis in der msgbox 2-stellig ausgeben wie?

Alles zur Programmierung im LibreOffice.
Antworten
wega
Beiträge: 121
Registriert: Mi 16. Jul 2014, 19:15

[gelöst] ein Double-Ergebnis in der msgbox 2-stellig ausgeben wie?

Beitrag von wega » Do 28. Mai 2020, 22:14

Hallo zusammen,

bei einer Rechenaufgabe wird mit dem Format "Double" gerechnet.
Das Ergebnis sollte aber in einer msgbox nur 2-Stellig dargestellt werden.

Geht das? Wenn ja, wie?

Mit Gruß
Werner
Zuletzt geändert von wega am Fr 29. Mai 2020, 21:49, insgesamt 1-mal geändert.

gogo
* LO-Experte *
Beiträge: 1081
Registriert: Sa 5. Feb 2011, 19:07

Re: ein Double-Ergebnis in der msgbox 2-stellig ausgeben wie?

Beitrag von gogo » Fr 29. Mai 2020, 10:44

... warscheinlich mehrere Möglichkeiten ...

Code: Alles auswählen

Option VBASupport 1
Sub Main
a=3/7
msgbox str(Round(a,2))
' ergibt ".43"
end sub

Code: Alles auswählen

Sub Main
a=3/7
s= split(str(a), ".")
msgbox s(0) + "." + left(s(1),2)
'' ergibt "0.42"
end sub
g
2008 LucidL./MaverickM./WinXP LibreOffice 3.3.2 > 02/13 LinuxMint13/Xubuntu > 09/13 Debian Wheezy+LO3.5.4.2 > 01/15 Debian Jessie KDE+LO4.3.3.2/Mint17 openbox auf USB+LO4.2.8.2 > 03/16 ArchLin & LO5.1+ff > 02/18 Kubuntu

wega
Beiträge: 121
Registriert: Mi 16. Jul 2014, 19:15

Re: ein Double-Ergebnis in der msgbox 2-stellig ausgeben wie?

Beitrag von wega » Fr 29. Mai 2020, 21:48

Danke Dir,

damit ist mein Problem gelöst.

viele Grüße Werner

mikele
* LO-Experte *
Beiträge: 1930
Registriert: Mo 1. Aug 2011, 20:51

Re: [gelöst] ein Double-Ergebnis in der msgbox 2-stellig ausgeben wie?

Beitrag von mikele » Sa 30. Mai 2020, 11:43

Hallo,
oder auch

Code: Alles auswählen

msgbox format(3/7,"#0.00")
Gruß,
mikele


An alle, die das LibreOffice-Forum gern nutzen und unterstützen wollen:


Bitte helfen Sie uns mit 7 Euro pro Monat.
Durch Ihren Beitrag tragen Sie dazu bei, unsere laufenden Kosten für die kommenden Monate zu decken.
Unkompliziert per Kreditkarte oder PayPal.
Als ein kleines Dankeschön werden Sie im LO-Forum als SUPPORTER gekennzeichnet.



Antworten