Último dia do mês em Delphi

Olá, para saber o último dia de algum mês em delphi, basta utilizar a função nativa DaysOf(data).

Basta adicionar ao uses a unit DateUtils.

Vamos ao Exemplo prático, para este exemplo usei o Delphi 2010:

uses DateUtils;

procedure DiasDoMes(data:TDate);

var ultimodia,mes : Word;

begin

ultimodia:=DaysOf(Data);

mes:=MonthOf(Data);

ShowMessage(O mês ‘+IntToStr(mes)+’ vai até dia ‘+IntToStr(ultimodia));

end;

A Unit DateUtils contem várias rotinas para trabalhar com datas, vale a pena dar uma olhada.

Espero ter ajudado, até a próxima.

Uma resposta para Último dia do mês em Delphi

  1. Na verdade, há uma função que já faz isso na DateUtils:

    EndOfTheMonth()

    assim como varias outras:

    StartOfTheYear()
    StartOfTheMonth()
    StartOfAWeek()
    EndOfTheYear()
    WeeksInYear()
    WeekOf()

    E muitas mais.

Deixe uma resposta

Preencha os seus dados abaixo ou clique em um ícone para log in:

Logotipo do WordPress.com

Você está comentando utilizando sua conta WordPress.com. Sair / Alterar )

Imagem do Twitter

Você está comentando utilizando sua conta Twitter. Sair / Alterar )

Foto do Facebook

Você está comentando utilizando sua conta Facebook. Sair / Alterar )

Foto do Google+

Você está comentando utilizando sua conta Google+. Sair / Alterar )

Conectando a %s

%d blogueiros gostam disto: