Descobrir se a data é o fim do mês

[Carlos Eduardo Paulino]

Olá,

Esta dica é uma função simples para detectar se a data informada é o
último dia
do mês.

A lógica desta função é bem simples, acrescentando um dia a data
informada, se o
dia for igual a 1, então esta data certamente é o último dia do mês.

function FimDoMes(Data: TDateTime): boolean;
var
Ano, Mes, Dia: Word;
begin
DecodeDate(Data.AddDay(1) , Ano, Mes, Dia);
Result := Dia = 1;
end;

Prontinho!.

Até a próxima.

Carlos Eduardo Paulino
cadu...@hotmail.com

Veja outras dicas e artigos em:

[MorfikBR]
Blogs : www.morfikbr.wordpress.com / www.morfikbr.blogspot.com
Grupo : http://br.groups.yahoo.com/group/Morfikbr/

Twitter : www.twitter.com/morfikbr
Youtube : http://www.youtube.com/morfikbr
Contato : morf...@gmail.com / morf...@yahoo.com.br