| |
|
|
H.Brill | Hallo Frank, Ich bräuchte in meiner Spalte im LV das EURO- Zeichen hinter meinen Preisen, will aber anderer- seits den Punkt (.) als Dezimaltrenner gerne beibehalten. ConvertDatas() tauscht ja den Punkt gegen ein Komma aus. Wäre es möglich, das Flag bei ConvertDatas() zu erweitern, daß die Funktion halt nur das EURO-Zeichen dahinter setzt, z. B. wenn Flag = 2 ist ? |
|
|
| Benutze XPROFAN X3 + FREEPROFAN Wir sind die XProfaner. Sie werden von uns assimiliert. Widerstand ist zwecklos! Wir werden alle ihre Funktionen und Algorithmen den unseren hinzufügen.
Was die Borg können, können wir schon lange. | 21.09.2005 ▲ |
|
|
|
|
Frank Abbing | Hallo Heinz,
das lässt sich bestimmt einrichten. Ich sehs mir an, sobald ich etwas Zeit habe |
|
|
| |
|
|
|
Frank Abbing | So, fertig. ConvertDatas hat ein neues Flag bekommen:
[quote:0302cd3589]ConvertDatas(H,S,F)
Convertiert alle Dezimalzahlen einer Spalte in das deutsche oder amerikanische Zahlenformat und fügt wahlweise das Eurozeichen (€) dazu.
H : Long - Handle eines mit CreateListview() erstellten Listview Controls S : Long - Index der Spalte von H (nullbasierend) F : Long - Flag
Hiermit werden alle nicht realen Zahlen einer Spalte so umgewandelt, das sie anstelle des Punktes ein Komma als Trennzeichen erhalten. Ist F=1, dann wird zusätzlich ein Leerzeichen und das Eurozeichen angefügt. Wenn F=2 ist, dann werden alle Kommata gegen Punkte ausgetauscht, also die amerikanische Schreibweise verwendet. Die Flags sind kombinierbar.
Beispiel für die Verwendung von F:
Flag = 0: Aus 6.53 wird 6,53 Flag = 1: Aus 6.53 wird 6,53 € Flag = 2: Aus 6,53 wird 6.53 Flag = 3: Aus 6,53 wird 6.53 €
Beispiel, um alle Items eines Listview zu convertieren und mit Eurozeichen zu versehen:
Whileloop GetColumns(listview&) ConvertDatas(listview&,(&loop-1),1) EndWhile [/quote:0302cd3589] |
|
|
| |
|
|