�ltimo dia do m�s, como?

Question

Alguem ja elaborou uma l�gica ou j� existe uma maneira de pegar o �ltimo dia do m�s?Estou precisando pegar o ultimo dia do mes de uma data. Tenho uma query que busca informa��es entre 2 datas, porem a...

Marco Salles · Answer

Deve ter fun��o pronta para isto .. se procurarmos aqui mesmo , veremos
alguma fun��o nativa do delphi ,algo que vc deve dar preferencia

Mas a fun��o abaixo deve funcionar

function RetornarUltimoDia(const Ano:word;mes:Word):Tdate;
begin
  mes:=mes+1;
  result:=encodedate(ano,mes,1)-1;
end;

mantido � claro , valores v�lidos para o mes & {1..12};

.lg. · Answer

Bem pensado. Vai para o proximo mes e busca o primeiro dia. Diminuindo um dia terei o �ltimo dia do m�s que eu quero. L�gica simples e eficaz.

Muito obrigado [b:29fedd010b]Marco Salles[/b:29fedd010b].

Marco Salles · Answer

entum ja que vc gostou , pudemos melhora-la um pouquinho mais

function RetornarUltimoDia(const Ano:word;mes:Word):Tdate; begin mes:=mes+1; result:=encodedate(ano,mes,1)-1; end;

function RetornarUltimoDia(Const Ano, mes:integer):Tdate;
begin
   result:=encodedate(ano,mes+1,1)-1;
end;

so m detalhe e nada mais

F�rum �ltimo dia do m�s, como? #374628