{ É necessário declarar DateUtils. 
Em versões mais recentes declare System.DateUtils. }
 
// Função própria do Delphi.
// Basta passar uma data por parametro.
EndOfTheMonth( const aValue: TDateTime );
 
// Exemplo de uso
EndOfTheMonth( Date );