Retorna a pr�xima data apartir da data informada!!!

Question

Ae galera como fa�o para que o sistema me retorne qual a data mais pr�xima a partir de uma data informada??

mais essa data pode ser anterior ou posterior a data informada!

algu�m pode me ajudar?? :wink:

Nasguone · Answer

N�o sei se isso te ajuda mais vai l�, o que fiz foi especificar o tipo para mais ou para menos na variavel, e ele processa quantos dias tem para mais ou para menos.
Se for isso acho que j� te ajuda...

Sem Mais E.C.S

procedure TForm1.Button1Click(Sender: TObject);
var
datmaior,datmenor :integer;
begin
datmaior:=StrToInt(Edit1.Text);
datmenor:=StrToInt(Edit2.Text);
if Edit1.Text <> �0� then
begin
DateTimePicker2.Date := DateTimePicker1.Date + datmaior;
end
else
DateTimePicker2.Date := DateTimePicker1.Date - datmenor;
end;