Function DiasNoMes

Retorna a quantidade de dias pertinentes ao mês da data passado no parâmetro Data. Esta função usa a função IsLeapYear para saber se o ano é bissexto.

function DiasNoMes(Data:TDate):integer;var Y,M,D : Word; Dias : integer;
begin
       Dias:=0;
       DecoDeDate(Data,Y,M,D);       //Especificando o número de dias de cada mes
       if  M = 1 then Dias:=31;      
       if M = 2 then begin
             if IsLeapYear (Y) then   Dias:=29 else  Dias:=28;       
       end;      
       if M = 3 then Dias :=31;       
       if M = 4 then Dias :=30;      
       if M = 5 then Dias :=31;       
       if M = 6 then Dias :=30;       
       if M = 7 then Dias :=31;       
       if M = 8 then Dias :=31;       
       if M = 9 then Dias :=30;       
       if M = 10 then Dias :=31;      
       if M = 11 then Dias :=30;       
       if M = 12 then Dias :=31;       //Retornando o número do mês especificado
       Result:=Dias;
end;