calculo com datas

Question

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

Vilaca · Answer

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.

Marco Salles · Answer

[quote:95a35801fe]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[/quote:95a35801fe]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]:?:  :?:  :?:...

F�rum calculo com datas #227044