Somar 5 dias a uma determinada data

Delphi

11/09/2004

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

Vispo

Curtidas 0

Respostas

Oscar Candido

Oscar Candido

11/09/2004

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


GOSTEI 0
Vispo

Vispo

11/09/2004

[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!


GOSTEI 0
Dpinho

Dpinho

11/09/2004

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;


GOSTEI 0
Rômulo Barros

Rômulo Barros

11/09/2004

IncDay(Data,5);

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


GOSTEI 0
POSTAR