| Usuario |
Formato Fecha |
Desconocido
|
| Enviado - 22/10/2003 |
| |
| Quisiera saber como hago por medio de Api's, para recuperar el formato de la fecha del sistema Actual donde se ejecuta una aplicacion. por ejemplo: que me diga que el formato de fecha del sistema es: dd/mm/yyyy o yyyy-mm-dd |
| |
|
fmarredo
356 Mensaje(s)
|
| Enviado - 22/10/2003 |
| |
Poné esto en un módulo:
Public 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
Public Const LOCAL_DEFAULT = &H2C0A
Public Const LOCALE_SSHORTDATE = &H1F
Public Function FormatoFecha()
Dim lngResu As Long
Dim buffer As String * 128
lngResu = GetLocaleInfo(LOCAL_DEFAULT, LOCALE_SSHORTDATE, buffer, Len(buffer))
FormatoFecha = Trim(buffer)
End Function |
| |
|
Desconocido
|
| Enviado - 23/10/2003 |
| |
| perdon pero sabes, solo me muestra el formato dd/mm/yyyy, y si lo cambio de la configuracion regional (el formato), ya no me muestra otro diferente; es decir, siempre me muestra el mismo aunque se cambie de configuracion. ¿Porque pasa esto? |
| |
|
fmarredo
356 Mensaje(s)
|
| Enviado - 24/10/2003 |
| |
| Me parece raro, yo estoy usando win 2000 y anda perfecto, no sé cuál puede ser el problema. |
| |
|
mariofer
1 Mensaje(s)
|
| Enviado - 3/11/2003 |
| |
Olvídense del formato de la fecha.
La fecha se almacena como un número secuencial y por lo tanto de puede almacenar y extraer como tal usando las funciones de conversión.
Ej:
Dim Fecha As Date
Fecha = Cdbl(Now)
------------
Dim Numero As Long
Numero = 3248
Fecha =CDate(Numero)
|
| |
|
|
|
