en contrar el ultimo dia del mes

[Casimiro Notevi]

No tengo un delphi aquí, pero seguramente 2 es marzo, 1 es febrero, 0 es enero... digo yo, no puedo probarlo ahora.

[jandok238]

Empezado por Casimiro Notevi

No tengo un delphi aquí, pero seguramente 2 es marzo, 1 es febrero, 0 es enero... digo yo, no puedo probarlo ahora.

Don't worry... yo si tengo delphi a la mano... yo hago al prueba....

......... 5 min despues.......

Pues ya probe....
y con la funcion DaysInMonth(); y en todos los meses me dio como resultado 31

en cambio con la funcion DaysInAMonth(); si me dio bien la cantidad de dias de cada mes... (incluido 29 en los años bisiestos).


EDITO :

La funcion DaysInMonth(); recibe como parametro TDateTime y no un entero ....

Empezado por AzidRain

Que crees eduarcol....yo andaba buscando la misma cosa y resulta que DaysInMonth(2) devuelve 31!!!!!!!!!!!!!!! ora si que...bueno...lo correcto es usar DaysinAMonth pasándole el año para que nos calcule los dias de febrero correctamente.

asi que poniendo

Código Delphi [-]
  Edit1.Text := IntToStr(DaysInMonth(StrTodate('10/04/2008')));

pues si devuelve los dias correctos....

y de la otra funcion... pues no hay problema... DaysInAMonth() aqui van dos parametros... (año,mes)

[[AzidRain]]

Tienes razón no me había dado cuenta...pero al fin de cuentas resolvimos nuestro problema

[a_f_g]

Esta funcion devuelve el ultimo dia del mes EndOfTheMonth();

[Yun-i]

colo debes tener en dateutils para ocupar las funciones mencionadas (DecodeDate,DaysInMonth)
yo hice uno con ayuda de los forista algo asi:

Código Delphi [-]
 
var FechaHasta : TDateTime;
     Dia, Mes, Ano: Word;
 
 
DecodeDate(datatimepicker.Date, Ano, Mes, Dia);
FechaHasta:=ReCodeDate(datatimepicker.Date,Ano, Mes, DaysInMonth(datatimepicker.Date)); // último día del mes con su respectivo añejo jijiji

si lo que quieres es el puro dia del mes ps es algo como

DaysInMonth(datatimepicker.Date));

ami me funciona ala perfeccion espero te sirvaa