FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#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 |
|
|
|