FoxPro/Visual FoxPro - MANEJO DE FECHA ME SALE MAL

Saludo a todos

En esta ocacion quiero presentarle un problema que tengo con una fecha:

Estoy intentando contruir una fecha con tres valores pero siempre me toma la fecha actual del sistema, les presento lo que tengo:


Aclaro que contrato.fechav es un campo de una tabla.

Si me pueden ayudar les pido por favor que lo hagan, como ven ya hice algo pero me sale mal.

Espero por ustedes.

son campos numéricos , no puedes tratarlos con un ctod ni con un date ...

fecha=alltrim(str(dia,2,0))+"/"+ALLTRIM(str(mes,2,0))+"/"+str(ano,4,0)

asi lo puedes usar con el ctod por ejemplo

ctod(fecha)

Espero te sriva

thisform.fecha.value = DATE(dia,mes,ano) No funciona
deberias usarlo como

date(ano,mes,dia) por defecto aunque tengas las fechas en cualquier formato usa ese formato ...

Debes utilizar la función DAte(), pero como corresponde:

DATE( Año , Mes , Dia )

Hola. :D

Es cierto, la sintaxis es incorrecta pero yo pregunto:
¿Qué necesitas hacer?.

Por lo que veo del código puedo pensar que quieres avanzar un mes tomando como base la fecha del campo "FechaV".
Si fuera asi te sugiero usar la función GOMONTH(), se usa para avanzar o retroceder el número de meses que especifiques. Su sintaxis es:
GOMONTH(dExpresión | tExpresión, nNúmeroMeses)

Para tu caso, si quieres avanzar un mes, todo tu código se resumiría en:

Es todo, espero te sirva, para mayor información puedes consultar la ayuda del VFP. ;-)

Saludos

Bytes ^_^

Saludo, viendo tu Código hay 2 Modos de mostrar la Fecha en Cuadro de Texto Fecha:

1 Modo: Si guardas la Fecha del Contrato en Cadena de Caracteres. "01/02/2016"

select contrato
thisform.fecha.value = CTOD(contrato.fechav)

2 Modo: Si guardas la Fecha del Contrato en Formato Fecha. { / / }

select contrato
thisform.fecha.value = contrato.fechav

No entiendo, el desgloce por dia, mes, año; si solo manejas un campo, pero si deseas aumentar o reducir dias o meses esta es la forma:

Dias:
select contrato
thisform.fecha.value = CTOD(contrato.fechav) + nDias && Para aumentar los dias

thisform.fecha.value = CTOD(contrato.fechav) - nDias && Para retroceder dias.

nDias=Es la cantidad de dias que deseas ajustar.

Meses:

select contrato
thisform.fecha.value = GOMONTH(CTOD(contrato.fechav), nMeses) && Para aumentar meses.

thisform.fecha.value = GOMONTH(CTOD(contrato.fechav), -nMeses) && Para retroceder meses.

nMeses=Es la cantidad de Meses que deseas ajustar.

Espero haberte ayudado, se despide.

Richard Marrero
Ingeniero Magister en Sistemas