Porcentagem de um valor
function Gerapercentual(valor:real;Percent:Real):real;
begin
percent := percent / 100;
try
valor := valor * Percent;
finally
result := valor;
end;
end;
Posts Similares
Altera a data e a hora de um arquivo especificado
Função que altera a data e a hora de um arquivo especificado em Delphi function AlterFileTime(const filename: String; const…
Converte uma String em Real
Converte uma String em Real Function StrToReal(InStr: String): Real; var Code : Integer; Temp : Real; begin Result := 0;…
Verificando a conexão de Internet via Delphi
Verificando a conexão de Internet via Delphi Para verificar a conexão de Internet via Delphi, siga os seguintes procedimentos: Inclua um…
Como habilitar e desabilitar as teclas ctrl+alt+del ?
Como habilitar e desabilitar as teclas ctrl+alt+del ? // desabilita procedure TForm1.Button1Click(Sender: TObject); var numero: integer; begin SystemParametersInfo(97,Word(true),@numero,0); end; //…
Listas Ordenadas e Não Ordenadas
Criando Listas Ordenadas e Não Ordenadas em HTML Aprenda a criar listas ordenadas (<ol>) e não ordenadas (<ul>) com itens…
Estruturação Semântica HTML5 : Melhore o SEO e a Acessibilidade
Estruturação Semântica: Usando HTML5 para Melhorar a SEO e a Acessibilidade A estruturação semântica em HTML5 é essencial para criar…