title image


Smiley Re: Systemsteuerung/Ländereinstellungen - Dezimaltrennzeichen ermitteln
Hallo!Mit folgender Routine erhälst du sämtliche Ländereinstellungen:Private Declare Function GetProfileSection Lib "kernel32" Alias "GetProfileSectionA" (ByVal lpAppName As String, ByVal lpReturnedString As String, ByVal nSize As Long) As LongSub LocalSettings() Dim sBuffer As String Dim sValues() As String Dim lResult As Long Dim lLBound As Long Dim lUBound As Long sBuffer = String(1024, 0) lResult = GetProfileSection("intl", sBuffer, Len(sBuffer)) If lResult > 0 Then sBuffer = Left$(sBuffer, lResult) sValues = Split(sBuffer, vbNullChar) lLBound = LBound(sValues) lUBound = UBound(sValues) For lResult = lLBound To lUBound Debug.Print sValues(lResult) Next Erase sValues End IfEnd SubFür dich konkret ist der Eintrag [sDecimal] relevant.Gruß StefanP.S.: Obwohl diese API-Funktion vermeintlich die WIN.INIausliest, erhälst du auch dann Werte, wenn diese nichtin der INI sondern in der Registry stehen (Bsp: NT).

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: