Juros
Publicado por Daniel 23/02/2005
[ Hits: 4.543 ]
Script em Kylix que mostra como trabalhar com adicão e subtração de porcentagem para calculo de juros, ou para algo mais que você precise!
unit Unit1; interface uses SysUtils, Types, Classes, Variants, QTypes, QGraphics, QControls, QForms, QDialogs, QStdCtrls, QButtons; type TForm1 = class(TForm) Label1: TLabel; Label2: TLabel; Edit1: TEdit; Edit2: TEdit; Label3: TLabel; Label4: TLabel; BitBtn1: TBitBtn; ComboBox1: TComboBox; Label5: TLabel; procedure BitBtn1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.xfm} procedure TForm1.BitBtn1Click(Sender: TObject); var Valor, Juros: Double; begin Valor := StrToFloat(Edit1.Text); Juros := StrToFloat(Edit2.Text); if (ComboBox1.Text = 'Mais') then Label4.Caption := FormatFloat('#,##0.00', Valor + ((Valor * Juros) / 100)) else if (ComboBox1.Text = 'Menos') then Label4.Caption := FormatFloat('#,##0.00', Valor - ((Valor * Juros) / 100)) else MessageDlg('Informe o operador.', mtInformation, [mbOK], 0); end; end.
Operações simples e avançadas com matrizes
Nenhum coment�rio foi encontrado.
Atualizando o Passado: Linux no Lenovo G460 em 2025
aaPanel - Um Painel de Hospedagem Gratuito e Poderoso
O macete do Warsaw no Linux Mint e cia
Um modo leve de ouvir/ver áudio/vídeo da internet em máquinas pererecas
Resolver algumas mensagens de erro do SSH
Instalar módulo de segurança do Banco do Brasil Warsaw do tipo .run
Sem espaço na partição home (2)
O que você está ouvindo agora? [2] (190)
Procrastinação e autossabotagem são problemas muito comuns na sociedad... (5)