calculo com datas

Delphi

19/04/2004

Caros Amigos
tenho um campo em String, necessito de uma funcao que converta em date e calcule 364 dias. alguem poderia me ajugar
sendo que
tenho uma variavel com a seguinte descricao:

var
Data_fer : TDate;

logo mais abaixo estou setando esta variavel como

data_fer := +StrToDate(datamodule2.qrfuncionariosCE12.Value) + 364;
e dopois do calculo realizado eu devo converter esta varialvel tdate em string novamente para gerar o arquivo texto

mas nao esta correto
realizei alguns testes retirando a soma e o resultado nao fecha
sendo que para a data que esta no campo = 01/05/2003
na comparaçao a variavel esta setando = 08/05/2000
o correto seria retornar 01/05/2003.
por favor me ajudem


Eme_matos

Eme_matos

Curtidas 0

Respostas

Vilaca

Vilaca

19/04/2004

Eu usei os comandos abaixo e deu certo, tente?

procedure TForm1.Button1Click(Sender: TObject);
var
   SData : string;
   DData : TDateTime;
begin
   SData := ´01/05/2004´;
   DData := StrToDate( SData ) + 365;
   showmessage( DateToStr( DData ) );
end;

Lembre-se que 2004 é um ano bissexto, se algum calculo de ano for feito neste periodo deve ser adicionado 366 dias para que o calculo de o resultado esperado.


GOSTEI 0
Marco Salles

Marco Salles

19/04/2004

realizei alguns testes retirando a soma e o resultado nao fecha sendo que para a data que esta no campo = 01/05/2003 na comparaçao a variavel esta setando = 08/05/2000 o correto seria retornar 01/05/2003. por favor me ajudem

Voce Esta Dizendo que tem um [b:95a35801fe]campo String [/b:95a35801fe]e Uma [b:95a35801fe]Variável Do Tipo TDate[/b:95a35801fe]...O Valor do campo em string é [b:95a35801fe]´01/05/2003´ [/b:95a35801fe]e voce retirou a soma para testar, e voce faz
[b:95a35801fe]data_fer := +StrToDate(datamodule2.qrfuncionariosCE12.Value)[/b:95a35801fe] e o resultado é [b:95a35801fe]08/05/2000[/b:95a35801fe], quando deveria ser [b:95a35801fe]01/05/2003[/b:95a35801fe]...
[b:95a35801fe]é isto mesmo que voce esta dizendo [/b:95a35801fe]:?: :?: :?:


GOSTEI 0
POSTAR