Fechas...
Hola, me gustaría saber como se puede cambiar el formato de la fecha de windows desde visual basic... Chaus y gracias ;-)
1 respuesta
Respuesta de orande
1
Prueba este código para poner la fecha corta:
Public Const LOCALE_SSHORTDATE = &H1F
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 Boolean
Private Sub CambiarFecha()
Dim lngLocale As Long
lngLocale = GetSystemDefaultLCID()
If Not SetLocaleInfo(lngLocale, _
LOCALE_SSHORTDATE, _
"MM/dd/yyyy") Then
' Error, manejalo como quieras...
End If
End Sub
Public Const LOCALE_SSHORTDATE = &H1F
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 Boolean
Private Sub CambiarFecha()
Dim lngLocale As Long
lngLocale = GetSystemDefaultLCID()
If Not SetLocaleInfo(lngLocale, _
LOCALE_SSHORTDATE, _
"MM/dd/yyyy") Then
' Error, manejalo como quieras...
End If
End Sub
