Fórum Adaptação entre programas #242364

Ola todos na lista queria que vcs podessem me ajudar em adaptar adequadamente o programa que esta a cima no programa que está em baixo

obrigado.

[u:5dce939348][b:5dce939348]PROGRAMA 1:[/b:5dce939348][/u:5dce939348]

Coloque um MaskEdit, um Button , um Label1 e um RadioGroup1

No RadioGroup coloque
Domingo
Segunda
Terça
Quarta
Quinta
Sexta
Sabado

procedure TForm1.Button1Click(Sender: TObject);
var NovaData : TDateTime;
x : Integer;
begin
try
NovaData := StrToDate(MaskEdit1.Text);
if DayOfWeek(NovaData) = RadioGroup1.ItemIndex+1 then
// Se o dia informado JA for igual a ao dia da semana da data de vencimento que o usuario deseja
Label1.Caption := ´Dia da semana já é a escolhida.´
else
begin
if DayOfWeek(NovaData) > RadioGroup1.ItemIndex + 1 then
x := 7 - DayOfWeek(NovaData) + RadioGroup1.ItemIndex + 1
else
x := RadioGroup1.ItemIndex + 1 - DayOfWeek(NovaData);
NovaData := NovaData + x;
Label1.Caption := ´Nova Data = ´ + DateToStr(NovaData);
end;
except
ShowMessage(´Data invalida´);
end;
end;

[u:5dce939348][b:5dce939348]PROGRAMA 2[/b:5dce939348][/u:5dce939348]

procedure Tfrmcarne.btngerarClick(Sender: TObject);
var
v_count,v_parc,I:integer;
v_date:TDateTime;
begin
v_date:=strtodate(lbdata.Caption)+30;
v_count:=strtoint(txtn_parc.Text);
v_parc:=1;
tbcarne.Open;
while v_count>0 do
begin
tbcarne.Insert;
tbcarne.FieldByName(´n_carne´).AsInteger :=(v_parc);
tbcarne.FieldByName(´mes_ano´).AsString:=formatdatetime(´mm/yy´,v_date);
tbcarne.FieldByName(´vl_preco´).Value:=((strtofloat(txtvalor.Text)));
tbcarne.FieldByName(´dt_venc´).AsDateTime :=(v_date);
tbcarne.Post;
v_count:=v_count-1;
v_parc:=v_parc+1;
v_date:=v_date+30;
tbcarne.Next;
end;
messagedlg(´Relação de Carnês Já foi Gerada Com Sucesso´,mtcustom,[mbok],0);
end;