Juros
Publicado por Daniel 23/02/2005
[ Hits: 4.381 ]
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.
Nenhum comentário foi encontrado.
Compartilhando a tela do Computador no Celular via Deskreen
Como Configurar um Túnel SSH Reverso para Acessar Sua Máquina Local a Partir de uma Máquina Remota
Configuração para desligamento automatizado de Computadores em um Ambiente Comercial
Como renomear arquivos de letras maiúsculas para minúsculas
Imprimindo no formato livreto no Linux
Vim - incrementando números em substituição
Efeito "livro" em arquivos PDF
Como resolver o erro no CUPS: Unable to get list of printer drivers
Linux mint está congelando/tr... (1)
Acabei de formatar meu ssd e deu erro (2)
Instalar PHP 5 no CentOS 8 (1)
[Python] Automação de scan de vulnerabilidades
[Python] Script para analise de superficie de ataque
[Shell Script] Novo script para redimensionar, rotacionar, converter e espelhar arquivos de imagem
[Shell Script] Iniciador de DOOM (DSDA-DOOM, Doom Retro ou Woof!)
[Shell Script] Script para adicionar bordas às imagens de uma pasta