Função para retornar o último dia do mês.

Delphi

24/11/2004

Galera bom dia.
Preciso de uma função delphi que retorne o último dia do mês.
Exemplo nós estamos no mês 11, quero passar como paramentro uma determinada data (24/11/2004) e me retorne o último dia do mês(30).
Grato

Plácido


Placido

Placido

Curtidas 0

Melhor post

Moliva

Moliva

25/11/2004

Olá

Acredito que a menira mais fácil é usar a função [b:5a376f3fb9]DaysInMonth[/b:5a376f3fb9] - Sysutils.

Esta função retorna a quantidade de dias em um mês. Obviamente este valor equivale ao último dia.

Vejam exemplo:

ShowMessage(IntToStr(DaysInMonth(DateTimePicker1.Date)));


[]s
Moliva


GOSTEI 1

Mais Respostas

Reginaldo174

Reginaldo174

24/11/2004

tente adaptar esta função para a sua necessidade.

function UltimoDiaDoMes( MesAno: string ): string;
var
sMes: string;
sAno: string;
begin
sMes := Copy( MesAno, 1, 2 );
sAno := Copy( MesAno, 4, 2 );
if Pos( sMes, ´01 02 03 04 05 06 07 08 09 10 11 12´ ) > 0 then
UltimoDiaDoMes := "31"
else if sMes <> ´02´ then
UltimoDiaDoMes := ´30´
else if ( StrToInt( sAno ) mod 4 ) = 0 then
UltimoDiaDoMes := ´29´
else
UltimoDiaDoMes := ´28´;
end;



GOSTEI 0
Placido

Placido

24/11/2004

Reginaldo muito obrigado, fique com Deus.
Plácido


GOSTEI 0
POSTAR