Ultimo dia do ano

Delphi

21/03/2005

Estou precisando pegar o ultimo dia do ano...
tipo eu tenho uma data qualquer e quero saber jogar para uma variavel o ultimo dia do ano daquela data
ex: data = 21/03/2005 a variavel precisa receber 31/12/2005
mas eu não posso passar simplesmente o valor 31/12/+o ano, pq a formatação da data deve er igual a da configuração do computador...

alguem pode me dar uma ajudinha???


Vprates

Vprates

Curtidas 0

Respostas

Gandalf.nho

Gandalf.nho

21/03/2005

Você precisa passar esse valor como Date ou como String?


GOSTEI 0
Vprates

Vprates

21/03/2005

Qualquer um serve desde que eu esteja compativel com a configuração de data do computador...


GOSTEI 0
Gandalf.nho

Gandalf.nho

21/03/2005

Pq não monta a string e depois usa um StrToDate para converter?


GOSTEI 0
Vprates

Vprates

21/03/2005

Foi exatamente isto que eu fiz mas não deu certo... pq eu monto a string 31/12/2005 e na hora q vou fazer o strtodate ele me da um erro dizendo q 31/12/2005 não eh uma data valida...
(Eu alterei as configurações do computador para testar...)


GOSTEI 0
Gandalf.nho

Gandalf.nho

21/03/2005

Já tentou passar a string invertida pra função StrToDate (mm/dd/aaaa)?


GOSTEI 0
Kotho

Kotho

21/03/2005

Tente usar EncodeDate(2005, 12, 31)


GOSTEI 0
Gandalf.nho

Gandalf.nho

21/03/2005

Tente usar EncodeDate(2005, 12, 31)


Tinha me esquecido dessa função...


GOSTEI 0
Vprates

Vprates

21/03/2005

Vlw pela ajuda mas achei o q eu estava procurando...
na unit DateUtils tem uma função q faz exatamente o q eu queria é a EndOfYear

vlw...


GOSTEI 0
POSTAR