marcos ubirajara de souza

Boa noite tenho uma programação feita direto no speedButom que programa dentro da tabela do mysql o recebimento de parcelas, preciso de ajuda pois preciso calcular: caso a parcela atrase mais que três dias 2% do valor da mesma e 0.33% por dia de atraso, agradeço a atenção segue código: (obs. estou usando xe8 com mysql e dbforge) //rotina para baixar a parcela selecionada TB_baixarParcela.Active := True; TB_baixarParcela.Locate('parc_id', SQL_parcelasProntasparc_id.Value, []); TB_baixarParcela.Edit; TB_baixarParcelaparc_pago.Value := 'SIM'; TB_baixarParcelaparc_data_pago.Value := Date; TB_baixarParcela.Post; ShowMessage('Parcela paga com sucesso !!');