DICAS

Visite a biblioteca de dicas da comunidade.

Saiba mais

ARTIGOS

Abordagens detalhadas sobre assuntos diversos.

Saiba mais

INICIANTES

Aprenda a programar de um modo simples e fácil.

Saiba mais

DOWNLOADS

Acesse os materiais exclusivos aos membros.

Saiba mais

voltar

PARA QUEM GOSTA DE DELPHI

Função para obter a data do último dia de um mês passado por parâmetro.

É necessário estar declarado DateUtils na seção uses,
em versões unicode declare System.DateUtils;

Função do Delphi: EndOfAMonth(Ano e Mes);
Retorno: TDateTime

Exemplos de uso

procedure TForm1.Button1Click(Sender: TObject);
var
  vDate : TDateTime;
begin
  vDate := EndOfAMonth(2001, 02);
  ShowMessage(DateToStr(vDate));
 
  vDate := EndOfAMonth(2015, 06);
  ShowMessage(DateToStr(vDate));
 
  vDate := EndOfAMonth(2016, 02);
  ShowMessage(DateToStr(vDate));
end;

Post Views: 3.854

InfusTec
1 comentários
28 de março de 2015

Uma resposta para “Função para obter a data do último dia de um mês passado por parâmetro.”

Messias Ymcmb disse:

21 de março de 2017 às 11:33

Gostaria de saber se você tem algum exemplo de utilização do componente calendar, preciso fazer um sistema de agendamento, porem não quero utilizar componetes ja prontos quero fazer o meu proprio utilizando apenas este componente calendar.

Acesse para responder