Como saber los dias de un mes

[K4RL0S]

Que tal, quisiera saber si me pueden ayudar por favor, mi problema es el siguiente:

Trabajo con D5 y paradox

Por ejemplo si hice un programa de actividades y quiero que se actualize automaticamente cada año pero el año pasado programe un actividad para el 29 de Febrero y cuando la quiero actualizar al año 2005 pues como no existe no me permite actualizarlo, como puedo detectar cuando es año bisiesto o conocer los dias de un mes con SQL para por lo menos actualizar de el 1o de Feb al ultimo dia de Feb o cualquier otro mes. De antemano muchas gracias.

Saludos.

[marcoszorrilla]

Por suerte podemos saber de antemano, los días que tiene cualquier mes, excepto febrero, para solventar este problema existe la función:

Código Delphi [-]
  function IsThisLeapYear: Boolean;
  var 
  Yr, Mnth, Day: Word;
  begin
    DecodeDate(Date, Yr, Mnth, Day);
    Result := IsLeapYear(Yr);
  end;

En D5, está declarada en la unidad sysutils, en otras versiones existe la unidad DateOutils.

Un Saludo.

[sercornejov]

Un poco mas simple:

Coloca el SysUtils en el uses

EsBisiesto:=IsThisLeapYear(YearOf(Date));