Tipp 5.27 - Zahlentrennzeichen ermitteln

Wie kann ich die Tausender- und Dezimal-Trennzeichen ermitteln?

Mit dieser Funktion können Sie die Tausender- und Dezimal-Trennzeichen ermitteln. Kopieren Sie einfach nachfolgenden Quellcode in die Zwischenablage und fügen Sie anschließend den Inhalt der Zwischenablage in ein neues Modul ein. Die Aufrufparameter finden Sie im Quellcode beschrieben.

Api-AufrufeVerwendete Win32-Api-Aufrufe und Typen: GetLocaleInfo

Beispiel:

Option Explicit
 
Const LOCALE_USER_DEFAULT   As Long = &H400
Const LOCALE_SDECIMAL       As Long = &HE
Const LOCALE_STHOUSAND      As Long = &HF
 
Declare Function GetLocaleInfo Lib "kernel32" Alias _
                "GetLocaleInfoA" _
                (ByVal Locale As Long, _
                 ByVal LCType As Long, _
                 ByVal lpLCData As String, _
                 ByVal cchData As Long) As Long
 
Function ThousandSeparator() As String
'// -----------------------------------------------------
'// Methode:   | Tausender-Trennzeichen ermitteln
'// -----------------------------------------------------
'// Parameter: | -
'// -----------------------------------------------------
'// Rückgabe:  | Ermitteltes Tausender-Trennzeichen
'// -----------------------------------------------------
'// Autor:     | Stefan Kulpa
'//            | EDV Innovation & Consulting - Dormagen
'// -----------------------------------------------------
    Dim lResult As Long
    Dim sHelp As String
 
    sHelp = String(10, 0)
    lResult = GetLocaleInfo(LOCALE_USER_DEFAULT, _
                            LOCALE_STHOUSAND, sHelp, 10)
    ThousandSeparator = Left$(sHelp, lResult)
 
End Function
 
Function DecimalSeparator() As String
'// -----------------------------------------------------
'// Methode:   | Dezimal-Trennzeichen ermitteln
'// -----------------------------------------------------
'// Parameter: | -
'// -----------------------------------------------------
'// Rückgabe:  | Ermitteltes Dezimal-Trennzeichen
'// -----------------------------------------------------
'// Autor:     | Stefan Kulpa
'//            | EDV Innovation & Consulting - Dormagen
'// -----------------------------------------------------
    Dim lResult As Long
    Dim sHelp As String
 
    sHelp = String(10, 0)
    lResult = GetLocaleInfo(LOCALE_USER_DEFAULT, _
                            LOCALE_SDECIMAL, sHelp, 10)
    DecimalSeparator = Left$(sHelp, lResult)
 
End Function


Zurück Tipp 5.26 - Netzwerk-Ressourcen ermitteln | Inhalt | Tipp 5.28 - CPU-Auslastung ermitteln Weiter