11/09/2004

Somar 5 dias a uma determinada data

Como faço para somar um determinado número de dias a uma data. Por exemplo, digamos que eu tenha armazenado a data 11/09/04, eu quero que 5 dias depois o sistema me de um alerta, ou seja, no dia 16/09/04 quando eu entrar no sistema deve aparecer uma mensagem por exemplo.

Valeu!


Vispo

Respostas

11/09/2004

Oscar Candido

Amigo, um exeplo simples, espero qeu seja isso que procure:


procedure TForm1.Button1Click(Sender: TObject);
begin
   ShowMessage(DateToStr(date + 5));
end;

Espero ter ajudado
Um Abraço


Responder Citar

11/09/2004

Vispo

[quote:818915b504=´oscar candido´]Amigo, um exeplo simples, espero qeu seja isso que procure:


procedure TForm1.Button1Click(Sender: TObject);
begin
   ShowMessage(DateToStr(date + 5));
end;

Espero ter ajudado
Um Abraço[/quote:818915b504]

Era isso mesmo oscar, obrigado.

Um abraço!


Responder Citar

13/09/2004

Dpinho

Como faço para somar um determinado número de dias a uma data. Por exemplo, digamos que eu tenha armazenado a data 11/09/04, eu quero que 5 dias depois o sistema me de um alerta, ou seja, no dia 16/09/04 quando eu entrar no sistema deve aparecer uma mensagem por exemplo. Valeu!


Use esta função é bem melhor

function DateMais(Dat:TDateTime;Numdias:Integer): TDateTime;
{ Soma um determinado número de dias à data atual }
begin
Dat := Dat + Numdias;
Result := Dat;
end;


Responder Citar

13/09/2004

Rômulo Barros

IncDay(Data,5);

:lol: :lol: :lol: :lol:


Responder Citar