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;
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;
Nenhum comentário:
Postar um comentário