|
|
Bueno mira aqui te envio una funcion a la cual le pasas como parametro un fecha, esta fecha seria por ejemplo 01-Feb-05 entonces esta funcion te regresa cuantos dias tiene el mes de la fecha:
function DiasMes(fecha: TdateTime): integer;
var
mes,anno : integer;
begin
mes:=StrToInt(formatDateTime('mm',fecha));
anno:=StrToInt(formatDateTime('yyyy',fecha));
case mes of
2: if IsLeapYear(anno) then Result:=29 else Result:=28;
1,3,5,7,8,10,12: Result:=31;
4,6,9,11: Result:=30;
end;
end;
entonces pruebalo cambiando el año y veras que te da 28 o 29 segun si es bi o no..
espero te sirva.. saludos
|