Systemeinstellungen per VBA Aendern
08.08.2002 00:16:06
Bruno
Habe ein Problem und hoffe jemand von Euch kann mir weiterhelfen:
Habe in einem früheren Beitrag gesehen, wie man die Währung aus den Settings ändern kann. Habe dies bei mir nachvollzogen und es funktioniert auch einwandfrei. Nur möchte ich nicht Die Währung ändern, sondern auf dem Reiter 'Datum' möchte ich gerne den 'Datum Separator' ändern. Da er bei einigen Rechnern auf / anstelle auf . ist und ebenfalls das Datumsformat sollte überall auf tt.MM.jj geändert werden. kann mir jemand sagen wie dafür die konstanten wären oder wo ich diese herausfinden kann. Merci - Nachfolgend das Beispiel für die Aenderung der Währung:
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
Declare Function SetLocaleInfo Lib "kernel32" Alias "SetLocaleInfoA" (ByVal Locale As Long, _
ByVal LCType As Long, ByVal lpLCData As String) As Boolean
Declare Function GetUserDefaultLCID% Lib "kernel32" ()
Public Const LOCALE_SCURRENCY = &H14 'Konstante für Währung
Private Sub Set_locale() 'Ändern der Ländereinstellungen als Beispiel
Dim Symbol As String
Dim iRet As Long
Dim Locale As Long
Locale = GetUserDefaultLCID() 'LICD
Symbol = "ITL" 'neues Währungssymbol
iRet = SetLocaleInfo(Locale, LOCALE_SCURRENCY, Symbol)
End Sub
Anzeige