Retorna a próxima data apartir da data informada!!!
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:
mais essa data pode ser anterior ou posterior a data informada!
alguém pode me ajudar?? :wink:
Paullsoftware
Curtidas 0
Respostas
Nasguone
30/12/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;
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;
GOSTEI 0