Obtener todos los Movimientos de un Mes especifico

[nemesio]

Cuando Queremos imprimir todos los movimientos de un mes, Entramos por teclado el Mes y el año. Como hacer la consulta?. Para resolver este detalle obtenemos la fecha "Desde" que siempre va a ser el día "01". La Fecha hasta la Obtenemos con una función que está en la Unidad DateUtils.

Código Delphi [-]
 Desde:=StrToDate('01'+'/'+EditMes.Text+'/'+EditAnno.Text); //Obtenemos el Primer día del Mes.
 Hasta:=EndOfTheMonth(Desde);//Obtenemos el último día del Mes.(Si se cambia el día y se mantiene el mes y el año, siempre mostrará el último día del mes.

Ahora se tienen las 2 variables para hacer la consulta del Mes.

[ArielMendoza]

Otra manera de hacerlo directamente en una consulta:

var
mes:integer;
sql:string;
begin
sql:='select * from prueba where month(fecha)=1';
end;

Saludos a todos...
email:arielmendozalibran@gmail.com

[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