FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Obtener todos los Movimientos de un Mes especifico
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.
Ahora se tienen las 2 variables para hacer la consulta del Mes. |
#2
|
|||
|
|||
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 |
#3
|
||||
|
||||
//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 |
|
|
|