Cálculo de Prestação Financiamento

Procurando a solução de um problema meu, resolvi fazer uma planilha excel para calcular o valor de uma prestação e a tabela de pagamentos. Igual ao do site do MSN.

Ajuda bastante

Quem quiser baixar está neste link.

PlanilhaFinanciamento.xls

Arredondar valores com firebird

Achei esse exemplo no forum Delphi-BR

CAST(Valor AS NUMERIC(9,2))

Funcionou certo para o meu problema.

Operation not aplicable

Ontem fiquei a tarde inteira tentando descobrir por que estava dando o erro 'Operation not aplicable' quando tentava gravar um clientDataSet. Depois de varias horas descobri o erro.

Estava configurando o clientDataSet.LogChanges := True e sempre que tinha que popular a tabela, estava dando um
clientDataSet.EmptyDataSet. As vezes dava o erro Operation not Aplicable.

Ainda bem que descobri, por que ja estava para reescrever a rotina usando StringGrid.

Simular a Tecla TAB em uma aplicação Delphi

Visitando o fórum do www.clubedelphi.net, encontrei um tópico que achei interessante, que era simular o pressionamento da tecla TAB. Para fazer isso, é só colocar o codigo abaixo

keybd_event(VK_TAB, 0, 0, 0);
keybd_event(VK_TAB, 0, KEYEVENTF_KEYUP, 0);

Funciona que nem boca de bode.

Obter Numero de Paginas de um Relatorio Fast Report 2.54

As vezes um pequeno detalhe consome um dia de programação.

Estava precisando recuperar o numero de paginas de um relatorio atraves do fast report.
Após varias horas do metodo MLTE, consegui recuperar essa informação atraves do seguinte comando:

frRelCad.GetVariableValue('PAGINA',v);

onde frRelCad é o componente FastReport 2.54,
PAGINA é a minha variavel dentro do relatorio e
v é uma variável tipo Variant que retorna o valor
da variável.