Como determinar si una fecha es DMY, MDY, YMD

666 views
Skip to first unread message

ZeRoberto

unread,
May 3, 2012, 12:39:35 PM5/3/12
to publicesvfoxpro
El vfp maneja diferentes formatos de fecha ANSI, AMERICAN y del sistema (SHORT/LONG) pero como puedo determinar si la fecha esta en formato DMY, MDY o YMD.

Cuando usa la configuración del sistema con que funciones determino eso? alguna api?

Saludos

mpulla

unread,
May 3, 2012, 12:52:12 PM5/3/12
to publice...@googlegroups.com
Hola.

Busca en la ayuda la función SET()

SET("Date")

SYS(2001, "Date")

Saludos
Mauricio.

ZeRoberto

unread,
May 3, 2012, 12:56:08 PM5/3/12
to publice...@googlegroups.com
Gracias Mauricio pero no es lo que busco quiero saber la posición de los datos si primero es día, mes, año.

Saludos

Pablo Daniel Lissa

unread,
May 3, 2012, 1:21:25 PM5/3/12
to Comunidad de Visual Foxpro en Español
Hola:

Justamente, como te indica Mauricio, me parece que vas a tener que
recurrir a los comandos de configuración:

LOCAL lcFormato
lcFormato = SYS(2001, "Date")
DO CASE
CASE lcFormato == "AMERICAN"
* Formato mm/dd/aa
CASE lcFormato == "BRITISH" OR lcFormato == "FRENCH"
* Formato dd/mm/aa
...
ENDCASE

Además, va a convenir revisar también:
SYS(2001, "Mark") && Separador de números.
SYS(2001, "Century") && Número de dígitos del año.

Saludos.
----------------------------------------------------------------------
On 3 mayo, 13:56, ZeRoberto <zeroha...@gmail.com> wrote:
> Gracias Mauricio pero no es lo que busco quiero saber la posición de los
> datos si primero es día, mes, año.
>
> Saludos
>

Luis Maria Guayan

unread,
May 3, 2012, 1:45:53 PM5/3/12
to publice...@googlegroups.com
? SET("DATE",1)

El valor retornado te dan el orden:
0 = MDY
1 = DMY
2 = YMD

Luis María Guayán
Tucumán, Argentina
_________________________
http://www.PortalFox.com
Nada corre como un zorro
_________________________

ZeRoberto

unread,
May 3, 2012, 10:08:07 PM5/3/12
to publice...@googlegroups.com
Gracias Luis Maria es justo lo que buscaba.

Saludos

El 03/05/12, Luis Maria Guayan <luism...@gmail.com> escribió:
Reply all
Reply to author
Forward
0 new messages