Hast Du den Schnellstart ein- oder ausgeschaltet?
.... und tschüss
Franklin
Am 2025-01-18 um 14:12:32 schrieb officetechnik:
Hallo,
Leider ist das Problem doch nicht behoben! Zu früh gefreut.
Der Fehler im u.a. Programm trat wieder auf. Zwischenzeitlich war der
Computer im Ruhezustand. Beim neuen Hochfahren trat der Fehler wieder
auf. Nach neustart des Programms war er wieder weg.
Also meine Vermutung, dass das Programm Sich verändert im Ruhezusand
scheint zu stimmen. Was kann man tun?
Horst
Am 17.01.2025 um 07:39 schrieb officetechnik:
Hallo,
danke für den Hinweis.
Ich habe jetzt auf die neueste Version 24.8.24.2 geupdatet und da
funktioniert es. Also entweder bereits gefixt oder das Programm ist
durch den Ruhezustand erodiert. Mein anderer Bug mit
msgbox("Alle Kategorien auswerten?",3+256) 'gibt als Vorgabe "Abbrechen"
bleibt leder
Horst
Am 17.01.2025 um 00:31 schrieb Gerhard Weydt:
Hallo Horst,
ich habe mir zunächst nicht die Mühe gemacht, deinen Code zu
verstehen, sondern selber folgenden Test gemacht:
sub test
dim a as string
a = "a,b.c"
msgbox mid(a,2,1) & " " & mid(a,4,1)
end sub
Die Msgbox gibt wie erwartet ", ." zurück.
Und dein Programm, das ich dann doch probiert habe, liefert bei mir
22376,93, was ich nach dem Code auch erwarten würde. Warum das
allerdings als Warnung ausgegeben wird, weiß ich nicht. Ich habe den
print-Befehl, den ich nie verwende, durch msgbox ersetzt, was ja an
der Funktionsweise von mid nichts ändert, und bekomme auch da 22376,93
als Ergebnis.
Wo ist da ein Problem?
Getestet mit 7.6.4.1 unter Windows
Grüße
Gerhard
Am 16.01.2025 um 23:51 schrieb officetechnik:
Hallo,
ich habe ein Dokument, dass unter Openoffice erstellt wurde . Das ist
schon eine Weile her.
Jetzt gibt mir das eine falsche Ausgabe.
Anscheinend gibt mid() Komma, leerzeichen u.a. als 0 zurück.
hier der vollständige code wichtig ist nur a zu verfolgen.
Horst
sub test123
print c2zahl("22.376,93 $")
end sub
'''''''''''''##########
function c2zahl(stext as string) as double
dim stext2 as string
for f =1 to len(stext)
a=mid(stext,f,1)
if isnumeric(a) then stext2=stext2 & a
if a="," then stext2=stext2 & a
'if a="." then stext2=stext2 & a
next f
on error goto fehler
i=cdbl(trim(stext2))
c2zahl=i
exit function
fehler:
on error goto 0
c2zahl=""
end function
--
Liste abmelden mit E-Mail an: [email protected]
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/
Datenschutzerklärung: https://www.documentfoundation.org/privacy
