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!
Valeu!
Vispo
Curtidas 0
Respostas
Oscar Candido
11/09/2004
Amigo, um exeplo simples, espero qeu seja isso que procure:
Espero ter ajudado
Um Abraço
procedure TForm1.Button1Click(Sender: TObject); begin ShowMessage(DateToStr(date + 5)); end;
Espero ter ajudado
Um Abraço
GOSTEI 0
Vispo
11/09/2004
[quote:818915b504=´oscar candido´]Amigo, um exeplo simples, espero qeu seja isso que procure:
Espero ter ajudado
Um Abraço[/quote:818915b504]
Era isso mesmo oscar, obrigado.
Um abraço!
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
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
11/09/2004
IncDay(Data,5);
:lol: :lol: :lol: :lol:
GOSTEI 0