Palabras clave: configuración, regional, API, SetLocaleInfo
Autor: Cecilia Colalongo
Extraído de: La Web del programador (https://www.lawebdelprogramador.com/foros/Visual-Basic/530977-Utilizar-SetLocaleInfo.html)
Objetivo:
Cambiar la configuración regional de la máquina. En este ejemplo, el formato de fecha y los separadores decimales y de miles.
En un módulo independiente:
Option Compare Database
Option Explicit
#If Win64 Then
Public Declare PtrSafe Function GetSystemDefaultLCID Lib "kernel32" () As Long
Public Declare PtrSafe Function SetLocaleInfo Lib "kernel32" Alias "SetLocaleInfoA" (ByVal Locale As Long, ByVal LCType As Long, ByVal lpLCData As String) As Long
#Else
Public Declare Function GetSystemDefaultLCID Lib "kernel32" () As Long
Public Declare Function SetLocaleInfo Lib "kernel32" Alias "SetLocaleInfoA" (ByVal Locale As Long, ByVal LCType As Long, ByVal lpLCData As String) As Long
#End If
Public Const LOCALE_SSHORTDATE = &H1F
Public Const LOCALE_SDECIMAL = &HE
Public Const LOCALE_STHOUSAND = &HF
Function testCambioConfReg()
SetLocaleInfo GetSystemDefaultLCID, LOCALE_SSHORTDATE, "dd/MM/yyyy"
SetLocaleInfo GetSystemDefaultLCID, LOCALE_SDECIMAL, "."
SetLocaleInfo GetSystemDefaultLCID, LOCALE_STHOUSAND, ","
End Function