Rubrik: System/Windows · Computer/Benutzer/Ländereinstellungen | VB-Versionen: VB6 | 17.08.05 |
Dezimal- und Tausender-Trennzeichen einfach ermitteln Das im System eingestellte Dezimal- und Tausender-Trennzeichen lässt sich sehr einfach auch ohne API-Einsatz ermitteln. | ||
Autor: Dieter Otter | Bewertung: | Views: 17.333 |
www.tools4vb.de | System: Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 | Beispielprojekt auf CD |
Nachfolgender Code ermittelt das im System eingestellte Dezimal- und Tausender-Trennzeichen ohne dass hierbei irgendwelche Windows API-Funktionen verwendet werden müssen.
' Dezimalzeichen ermitteln Public Function GetDecimalChar() As String GetDecimalChar = Mid$(CStr(1.5), 2, 1) End Function
' Tausender-Trennzeichen ermitteln Public Function GetThousandGroupDigit() As String Dim sTemp As String sTemp = Mid$(FormatNumber(1000, 0, , , vbTrue), 2, 1) If sTemp = "0" Then sTemp = "" GetThousandGroupDigit = sTemp End Function