Array
(
)

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

Paullsoftware
   - 30 dez 2005

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
   - 30 dez 2005

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;