Pregunta: | 1806 - API PARA SIGNOS DECIMALES |
Autor: | Alvaro García Sánchez |
Me gustaría saber cómo puedo cambiar la configuración regional de Windows desde un programa, para definir el punto como separación decimal y la coma como separación de miles |
Respuesta: | Gabriel H. Arenovich Busquet |
Este código te permitirá cambiar los separadores de decimales y de miles. ----------------------------------------------- Const LOCALE_SDECIMAL = &HE ´ separador de decimales Const LOCALE_STHOUSAND = &HF ´ separador de miles Declare Function SetLocaleInfo Lib "kernel32" Alias "SetLocaleInfoA" (ByVal Locale As Long, ByVal LCType As Long, ByVal lpLCData As String) As Long Declare Function GetUserDefaultLCID Lib "kernel32" () As Long Dim LocalID As Long LocalID = GetUserDefaultLCID() SetLocaleInfo LocalID, LOCALE_SDECIMAL, "," SetLocaleInfo LocalID, LOCALE_STHOUSAND, "." |