Visual Basic - cambiar fecha de windows

Life is soft - evento anual de software empresarial
 
Vista:

cambiar fecha de windows

Publicado por Gisell (5 intervenciones) el 02/02/2005 18:26:30
Por favor, necesito si alguien me puede decir como se puede cambiar la configuracion regional de windows (formato de fecha,hora e idioma), desde una aplicacion en visual basic.
Muchisimas gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:cambiar fecha de windows

Publicado por Benjo (679 intervenciones) el 03/02/2005 02:47:13
'Se utiliza la API SetLocaleInfo
'Acá va un jemplo que deberás adecuar a tus necesidades
Const LOCALE_ICOUNTRY = &H5 ' código del país
Const LOCALE_ICURRENCY = &H1B ' modo de moneda positiva
Const LOCALE_IDATE = &H21 ' orden del formato de fecha corta
Const LOCALE_ILANGUAGE = &H1 ' Id. de idioma
Const LOCALE_ILDATE = &H22 ' orden del formato de fecha larga
Const LOCALE_ITIME = &H23 ' especificador de formato de hora
Const LOCALE_SCOUNTRY = &H6 ' nombre traducido del país
Const LOCALE_SCURRENCY = &H14 ' símbolo de moneda local
Const LOCALE_SDATE = &H1D ' separador de fecha
Const LOCALE_SLONGDATE = &H20 ' cadena de formato de fecha larga
Const LOCALE_STIME = &H1E ' separador de hora
Const LOCALE_STIMEFORMAT = &H1003 ' cadena de formato de hora
Const LOCALE_SDECIMAL = &HE ' separador de decimales
Const LOCALE_USER_DEFAULT = &H400
Private Declare Function SetLocaleInfo Lib "kernel32" Alias "SetLocaleInfoA" (ByVal Locale As Long, ByVal LCType As Long, ByVal lpLCData As String) As Long
Private Sub Command1_Click()
Dim strValor As String, Ret As String
strValor = ","
Ret = SetLocaleInfo(LOCALE_USER_DEFAULT, LOCALE_SDECIMAL, strValor)
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Gracias!!

Publicado por Gisell (5 intervenciones) el 03/02/2005 14:07:26
Benjo, Muchisimas gracias, por la ayuda

Gisell
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar