Array
(
)

Somar 5 dias a uma determinada data

Vispo
   - 11 set 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!


Oscar Candido
   - 11 set 2004

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


#Código

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

Espero ter ajudado
Um Abraço


Vispo
   - 11 set 2004


Citação:
Amigo, um exeplo simples, espero qeu seja isso que procure:


#Código

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

Espero ter ajudado
Um Abraço

Era isso mesmo oscar, obrigado.

Um abraço!


Dpinho
   - 13 set 2004


Citação:
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;


Rômulo Barros
   - 13 set 2004

#Código

IncDay(Data,5);

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