Rubrik: System/Windows · Computer/Benutzer/Ländereinstellungen | VB-Versionen: VB6 | 12.07.04 |
Dezimal- und Tausendertrennzeichen ermitteln Funktionen zum Ermitteln des Dezimal-, Tausendertrennzeichen und der Währungseinheit, ohne Einsatz von Windows-API Funktionen. | ||
Autor: Dieter Otter | Bewertung: | Views: 20.062 |
www.tools4vb.de | System: Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 | Beispielprojekt auf CD |
Um das Dezimal- und/oder Tausendertrennzeichen zu ermitteln, benötigt man normalerweise diverse API-Funktionen. Es geht aber auch einfacher, wie nachfolgender Tipp zeigt.
Public Function GetSystemDecimalSep() As String ' Dezimaltrennzeichen für Beträge Dim sTemp As String sTemp = FormatNumber(Val("1.00"), 2, , , -1) sTemp = Mid$(sTemp, 2, 1) GetSystemDecimalSep = sTemp End Function
Public Function GetSystemThousandSep() As String ' Tausender-Trennzeichen für Beträge Dim sTemp As String sTemp = FormatNumber(Val("1000.00"), 2, , , -1) sTemp = Mid$(sTemp, 2, 1) GetSystemThousandSep = sTemp End Function
Public Function GetSystemCurrency() As String ' Nationale Währungseinheit Dim sTemp As String sTemp = FormatCurrency(1, 0) sTemp = Trim$(Replace(sTemp, "1", "")) GetSystemCurrency = sTemp End Function