Buscar por:

Gera parcelas

Código

GERA PARCELAS

para vencimentos de datas em emissão de carnês

Try

  mskVencimento1.Text := dateTostr(incMonth(strToDate(mskvencimento.Text),1));

  mskVencimento2.Text := dateTostr(incMonth(strToDate(mskvencimento.Text),2));

  mskVencimento3.Text := dateTostr(incMonth(strToDate(mskvencimento.Text),3));

except

  ShowMessage('Informe a Data da Emissão');

end;

colocar a data da emisão em maskEdit e os vencimento tb.

aqui estão os vencimento para 30, 60, 90 dias 

máscara para a data

events (onenter) mskVencimento.EditMask :='##/##/####'