Programa de Calculo de Vencimento

Question

Ol� a todos da lista vim por meio desta para esclarecer o meu ploblema.Tenho 3 TDateTimePicker Chamado M�s/Ano_Inicial e M�s/Ano_Final com propiedade format =�MM/yyyy� e queria que quando eu seleciona...

Thomaz_prg · Answer

uma fun��o para ver em quantas parcelas o valor deveria ser dividido voc� poderia fazer da seguinte forma:

function ver_parcelas( mesano_ini, mesano_fim: string ):integer;
var
  difparc, ia, id, fa, fd:integer;
begin
  result:=0;
  id:=strtoint( copy( mesano_ini , 1 , 2) );  //transf.o dia em integer
  fd:=strtoint( copy( mesano_fim, 1 , 2) );
  ia:=strtoint( copy( mesano_ini , 3 , 4) );  //transf. o ano em integer
  fa:=strtoint( copy( mesano_fim, 3 , 4) );
  while (id < fd) and (ia<=fa) do begin
    result:=result+1;
    id:=id+1
    if id>12 then begin
      id:=1;
      ia:=ia+1;
    end;
  end;
end;

A fun��o acima retornaria a quantidade de parcelas que o valor seria dividido.

Para saber a data correta voc� poderia fazer o seguinte:
O parametro usado na fun��o abaixo � um valor inteiro representando o dia da semana. Por exemplo domingo=1, segunda=2, etc.
A fun��o abaixo retorna a data em que cair o dia da semana escolhido, no caso, o primeiro dia.
Exemplo: retdata(2,m), retornaria a data da primeira segunda do mes [b:7a7cbdd68c]m[/b:7a7cbdd68c]

func retdata( dia:integer; mesano:string ):date;
var 
  i:integer;
  d:string
begin
  i:=1;
  d:=inttostr(i)+�/�+copy(mesano,1,2)+�/�+copy(mesano,3,4);
  while dayofweek(strtodate(d))<>dia do begin
    i:=i+1;
    d:=inttostr(i)+�/�+copy(mesano,1,2)+�/�+copy(mesano,3,4);
  end;
  result:=strtodate(d);
end;

Acho que � isso.Qualquer coisa, poste sua d�vida e tentaremos ajud�-lo.

F�rum Programa de Calculo de Vencimento #236762