Fórum Somar 5 dias a uma determinada data #250002
11/09/2004
0
Valeu!
Vispo
Curtir tópico
+ 0Posts
11/09/2004
Oscar Candido
procedure TForm1.Button1Click(Sender: TObject); begin ShowMessage(DateToStr(date + 5)); end;
Espero ter ajudado
Um Abraço
Gostei + 0
11/09/2004
Vispo
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
13/09/2004
Dpinho
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
13/09/2004
Rômulo Barros
IncDay(Data,5);
:lol: :lol: :lol: :lol:
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)