Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: VB in der Schweiz
Autor: Heizer
Datum: 13.06.07 18:20
Hi MarkDO, eigentlich steht schon alles da. Bei dem folgenden Beispiel ist nur wichtig, dass das Dezimaltrennzeichen VOR irgendwelchen Berechnungen/Umwandlungen abgefragt wird. Zum Ausprobieren brauchst Du zwei Textboxen, einen CommandButton , ein Formular und ein Modul (im Modul wird der zuvor angegebene Code eingefügt, aber anstelle von "Private" alles "Public"). Beispielhafter FORMULARCODE: Option Explicit Private ReplaceString As String ' Private Value As Double Private Sub cmdGo_Click() If ReplaceString = "," Then txtOutput.Text = txtInput.Text ' bzw. Exit Sub Else ' Value = Replace(txtInput.Text, ".", ",") txtOutput.Text = Replace(txtInput.Text, ".", ",") End If End Sub Private Sub Form_Load() ReplaceString = CStr(GetDecimaleSeparator) End Sub Weitere Vereinfachungen sind Dir überlassen. Gruß Heizer

VB in der Schweiz	790	MarkDO	07.06.07 17:55
Re: VB in der Schweiz	480	Zardoz	07.06.07 19:07
Re: VB in der Schweiz	474	MarkDO	08.06.07 14:51
Re: VB in der Schweiz	522	Heizer	08.06.07 22:45
Re: VB in der Schweiz	442	MarkDO	13.06.07 00:01
Re: VB in der Schweiz	441	Heizer	13.06.07 18:20
Re: VB in der Schweiz	527	MarkDO	02.07.07 20:34
Re: VB in der Schweiz	433	Lord_Duke	13.06.07 07:32
Re: VB in der Schweiz	442	MarkDO	02.07.07 20:33

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen