Re: [de-users] LO Hilfe - LO Basic - ''Mid ''- Beispiel '' ExampleUSDate'' fehlerhaft

Hallo Hans-Werner,

da ist die deutsche Hilfe nicht konsistent mit der englischsprachigen 
Fassung. Dort steht im Code
"Please input a date in the international format 'YYYY-MM-DD'".
In der deutschen Fassung steht aber eine ganz andere Formatdarstellung:
"Geben Sie bitte ein Datum im englischen Format MM-DD-YYYY ein".
Deine Korrektur am Programm ist wahrscheinlich richtig, auch wenn ich 
sie nur oberflächlich angeschaut habe, aber der wahre Fehler liegt eher 
in der falschen Formatbeschreibung im deutschen Makro, denn mit dem 
Format laut englischsprachigem Makro funktioniert das offenbar (Testen 
trotzdem empfehlenswert, ich habe es nämlich nicht probiert). Das 
Beispiel ist ja auch nicht schlecht, es ist eine - und dann auch für 
Deutschland benötigte - Version der leider häufiger notwendigen 
Umwandlungen in nationale Datumsformate aus der - z.B. in Datenbanken 
ziemlich universell verwendeten - Darstellung laut der international 
normierten Norm (ISO 8601). Die Norm ist ja gerade wegen der lokalen 
Schreibweisen für die EDV unumgänglich. (Und bei Überweisungsbelegen 
funktioniert sie, das habe ich schon vor Jahren getestet.) Und das 
Beispiel enthält ja die gleichen Befehle wie dein korrigiertes Beispiel, 
also ist es für ein Beispiel genauso gut.
Meine Empfehlung ist daher: einfach den Text der Inputbox an den 
englischen Text anpassen, dadurch ist in der beschriebenen 
Funktionalität nichts geändert.
Ich habe momentan nicht parat, an welche Liste man das am besten 
schicken sollte, vielleicht liest jemand mit, der das veranlasst.

Gruß

Geerhard


Am 13.06.2017 um 21:10 schrieb OoOHWHOoO:
> Hallo,
>
> das Beispiel "ExampleUSDate" für "Mid" soll wohl "MM-DD-YYYY" 
> umwandeln in "DD/MM/YYY", erzeugt aber "-Y/YY/MM-D".
>
> Gruß
> Hans-Werner
>
> [0]  LO 5.3.4.1 (x64) @ Windows 7 Home Premium (x64)
>
> [1] Fehlerhaftes (Original-) Makro
>
> Sub ExampleUSDate
> Dim sInput As String
> Dim sUS_date As String
> sInput = InputBox("Geben Sie bitte ein Datum im englischen Format 
> MM-DD-YYYY ein")
> sUS_date = Mid(sInput, 6, 2)
> sUS_date = sUS_date & "/"
> sUS_date = sUS_date & Right(sInput, 2)
> sUS_date = sUS_date & "/"
> sUS_date = sUS_date & Left(sInput, 4)
> MsgBox sUS_date
> End Sub
>
> [2] Korrigiertes Makro
>
> Sub ExampleUSDate_KORRIGIERT
> Dim sInput As String
> Dim sUS_date As String
> sInput = InputBox("Geben Sie bitte ein Datum im englischen Format 
> MM-DD-YYYY ein")
> sUS_date = Mid(sInput, 4, 2)
> sUS_date = sUS_date & "/"
> sUS_date = sUS_date & Left(sInput, 2)
> sUS_date = sUS_date & "/"
> sUS_date = sUS_date & Right(sInput, 4)
> MsgBox sUS_date
> End Sub


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