my code stock.com

Snippet options

Download: Download snippet as calculo-meta.txt.
Copy snippet: For this you need a free my code stock.com account.
Embed code : You will find the embed code for this snippet at the end of the page, if you want to embed it into a website or a blog!

Public Function CalculaMeta(Salario, Beneficio, Encargo, CargaTributaria, Dissidio, Percentual, Contratacao)

valorBase = Salario
valorFinal = 0.01
Controle = "NOK"
vCarga = 0
vLucro = 0
vCusto = 0
If (Contratacao = "CLT") Then

    valorBase = (Salario + (Salario * Encargo) + (Salario * Dissidio))
    valorBase = valorBase + Beneficio

Else

    valorBase = Salario

End If

valorAux = valorBase

Do



vCarga = valorAux * CargaTributaria
vCusto = vCarga + valorBase
vFinal = valorAux
vLucro = 1 - ((vCusto) / vFinal)
If vLucro >= Percentual Then
Controle = "OK"

End If
valorAux = valorAux + 0.01

Loop Until Controle = "OK"




    CalculaMeta = valorAux


End Function

Create a free my code stock.com account now.

my code stok.com is a free service, which allows you to save and manage code snippes of any kind and programming language. We provide many advantages for your daily work with code-snippets, also for your teamwork. Give it a try!

Find out more and register now

You can customize the height of iFrame-Codes as needed! You can find more infos in our API Reference for iframe Embeds.