Calculo de Datas e respota em dias

[Arcanjo-Thorra 0]

Olá, estou com um problema e peço lhes ajuda para os seguintes problemas1=> Calculo de data Ex dbedata > (18/08/2004) dbevencimento > (18/9/2004) dbeDias = resultadoDbedata - dbevencimento = dias (30)diascomo seria o evento ?2=> Como criar os eventos de uma calculador igual a do windows , com todos os operadores e funcões ? ha meios de chamar essa calculador? 3=> como criar um btão que calcula com porcentagem ...Espero respostaspor vafor envie-a para o e-mailronaldotorre@hotmail.comObrigadoRonaldo

[rockbilly 0]

ve se algo disso lhe serve:

2=> Como criar os eventos de uma calculador igual a do windows , com todos os operadores e funcões ? ha meios de chamar essa calculador?

procedure TForm1.Button2Click(Sender: TObject);

begin

WinExec('calc.exe',SW_SHOW);

end;

 

3=> como criar um btão que calcula com porcentagem ...

procedure TForm1.Button1Click(Sender: TObject);

var

num: Double;

begin

num := StrToFloat(Edit2.Text) / StrToFloat(Edit1.Text);

ShowMessage('PORCENTAGEM: '+FloatToStr(num)+'%');

end;