Obtener todos los Movimientos de un Mes especifico

[maximo_nashir]

//Para el que lo quiera hacer con las versiones anteriores
//a Delphi 7, aquí les va el codigillo:

function DiasDeUnMes(const wYear, wMonth: Word): Word;
begin
Result := MonthDays[(wMonth = 2) and IsLeapYear(wYear), wMonth];
end;

function DiasEnMes(const dFecha: TDateTime): Word;
var
wYear, wMonth, wDay: Word;
begin
DecodeDate(dFecha, wYear, wMonth, wDay);
Result := DiasDeUnMes(wYear, wMonth);
end;
//Y PARA QUE SE EJECUTE LA FUNCION QUE SE CREÓ PONDRAN ESTE CODIGO:
DiasEnMes(DateEdit1.Date);
//Y ENTONCES ESTA FUNCIÓN TE LANZARÁ LOS DIAS QUE
//CONTIENE CUALQUIER MES, SEA EL AÑO VICIESTO O NO, ESPERO LES SIRVA