Trabalhando com datas
Como faço para retornar o último dia daquele mês daquele ano
Exemplo 01: Informei a data Fevereiro de 2000
Retorno <--- 29
Exemplo 02: Informei a data Fevereiro de 2001
Retorno <--- 28
Exemplo 01: Informei a data Fevereiro de 2000
Retorno <--- 29
Exemplo 02: Informei a data Fevereiro de 2001
Retorno <--- 28
Marcela
Curtidas 0
Respostas
Koplin
03/09/2003
Adeque este código a sua necessidade
var y,m,d:Word;
begin
DecodeDate(P1.Date,y,m,d);//desmonta a data em ano, mes e dia
m:=m+1;//incrementa o mes...
P2.Date:=EncodeDate(y,m,d)-1;remonta a data diminuindo 1 dia
end;//01/03/2003 - 1 = 28/02/2003
P1 e P2 são componentes para data Tipo DateTimePicker. Mas vc pode usar qqr coisa que se refira a data, inclusive variáveis.
Boa sorte.
var y,m,d:Word;
begin
DecodeDate(P1.Date,y,m,d);//desmonta a data em ano, mes e dia
m:=m+1;//incrementa o mes...
P2.Date:=EncodeDate(y,m,d)-1;remonta a data diminuindo 1 dia
end;//01/03/2003 - 1 = 28/02/2003
P1 e P2 são componentes para data Tipo DateTimePicker. Mas vc pode usar qqr coisa que se refira a data, inclusive variáveis.
Boa sorte.
GOSTEI 0