FoxPro/Visual FoxPro - Como saber el dia maximo de un mes????

Como puedo saber el dia maximo de un mes si estoy por ejemplo en el dia 25 independientemente en que año este...

de Antemano gracias por sus repuestas....

Querras decir el ultimo dia de un mes?
No conozco en Visual Fox Pro alguna funcion que me de el ultimo dia del mes pero lo soluciono con una funcion programada.

Digamos que queremos saber el ultimo dia del mes y año en curso.

For j = 31 to 28 step -1
Ultfecha = CTOD(str(j,2)+'/'+str(month(date()),2)+'/'+str(year(date()),4))
IF !EMPTY(Ultfecha)
Exit
Endif
Next j

? day(Ultfecha)
? Ultfecha

Espero ayudarte y un gran abrazo desde las lejanas tierras de CHILE

Roberto

Hola!
no se que quieres hacer, pero una forma simple de comprobar una fecha es la sig:
supongamos que la fecha tiene formato de fecha y no de caracter, y quiero ingresar 32/10/2003 ó 29/02/2003 que son inválidas. el valor de la fecha quedará " / / ".
entonces puedo hacer:

if len(alltrim(fecha))<=4 then
? "fecha inválida!"
endif
espero te sirva.
Saludos.
Uplift.

miara utiliza esto.
if month()<>2
if month()=11 or month()=4 or month()=6 or month()=9
wdiamax=30
else
wdiamax=31
endif
else
*evaluamos si es año diciesto o no diciresto
if mod(year(),4)=0
wdiamax=28
else
wdiamax=29
endif
endif
la parte del año diciesto no estoy muy seguro por que el algorit lo tengo en casa pero eso espara valuar si febrero tiene 28 o 29 dias bueno ese pedasito del algorit no es muy dificil has las pruebas con el MOD y listo


ESPERO QUE TE SIRVA

Me has salvado!

Yo tengo esta funcion

FUNCTION LastDay(dFecha) && Retorna el ultimo dia de un mes en formato fecha
* El parametro debe enviarse en formato fecha ( el DATE() o CTOD('01-01-1999') )
dFecha = CTOD("01/" + IIF(Month(dFecha) > 8, ;
IIF(Month(dFecha)=12,"01", LTRIM(STR(Month(dFecha)+1,2))), ;
"0" + LTRIM(STR(Month(dFecha) + 1 , 1))) + "/" + ;
LTRIM(STR(Year(dFecha)+IIF(Month(dFecha)=12,1,0),4) ) ) - 1

Return dFecha

Gracias por sus repuestas fueron valiosisimas....

con la instruccion gomonth() partiendo de la fecha del dia ultimo de enero tendrias la de febrero y asi etc. espero te sea de utilidad si tienes dudas escribeme a mi correo

Jose.
Veo que te han complicado cosa muy simple.
Si queres saber el ultimo dia del mes, solo hace falta una linea

vdia=gomonth(ctod("01/"+allt(str(month(date())))+"/"+allt(str(year(date())))),1)-1

Es facil.
Primero tomas el primer dia del mes actual y año actual, le sumas un mes con la funcion gomonth y a todo eso le restas un dia.
Ojo con los tipos de datos.

si es el dia 25/02/2003
esto te dara el 28/02/2003
Espero que te sirva.
Esto es lo mas sencillo que hay.
Saludos

OJALA LES SIRVA

mes_i = 1 &&Enero
m_anio = 2015


mdia0 = DAY(CTOD('01/0'+ALLTRIM(STR(mes_i+1))+'/'+ALLTRIM(STR(m_anio)))-1)
*
osea
mdia0 = ctod('01/02/2015')-1

? 31/01/2015

introdusco el primer dia del mes siguiente y lo resto un dia, entonces me da el ultimo dia del mes anterior ( el que quiero)

COMPROBADO

PARA DICIEMBRE
mdia0=ctod('31/12/'+ALLTRIM(STR(m_anio)))

fecha={^2017-02-01}
ultimo=date(year(gomonth(fecha,1)),month(gomonth(fecha,1)),1)-1