Hej

Jag får inte till en formel för att räkna procent bakåt dvs 100 - 20% =80

Nån som vet
Tobbe

Hej
Gammal sanning det blir inte samma svar bakåt som frammåt.
Du har säkert fått rätt svar,du kan ju visa formeln så blir
det lätt att se ev. tankevurporna
Sven

Hej Sven

T,ex de här txtTot = txtSum * 0.8 då får jag ut summa exkl moms
men jag vill inte skriva 0.8 för att få ut summan jag vill skriva in procent satsen och få ut summa exkl moms.

t,ex 100 - 20% = 80 kr (text1=100 kr - text2=20 % text3 =80 kr)

mitt ex:
Private Sub Command5_Click()
If Len(Text2.Text) > 0 Then
Label2 = (Text1) * (0# & Text2) / 100
Label2 = Text1 - Label2
Label2 = Format(Label2, "0.00") & " " & "kr"
Frame1.Caption = "Summa exkl" & " " & Text2.Text & " " & "%" & " " & "moms"
Else
MsgBox "Ange perioder ", 64, "Uträkning"
Text2.SetFocus
End If
End Sub

mvh Tobbe

Jag tror inte jag riktigt hajar problemet... Vill du ha en formel för det?

P=procents avdrag
X=Summa
Y=Summa efter avdrag

Y=X*(1-P/100)

/Niklas Jansson

function AddPercentage (Value, Percentage)
AddPercentage = Value + (Percentage * (Value / 100))
end function

anropas med:

Summa = AddPercentage (100, -20)

Menar du så här?

1/(25% + 1) = 1/1,25 = 0,8 = 80%

Tack för svaren så här blev det.

If Len(P.Text) > 0 Then
Y = X * (1 - P / 100)
Y = Format(Y, "0.00") & " " & "kr"
Frame1.Caption = "Summa exkl" & " " & P & " " & "%" & " " & "moms"
Else
MsgBox "Ange procent sats ", 64, "Uträkning"
P.SetFocus
End If

om någon är intresserad
/
Tobbe

<code>
Dim Percent As Double
If IsNumeric(P.Text) Then
Percent = CDbl(P.Text)
Y = X * (1 - Percent/ 100)
Y = Format$(Y, "0.00") & " kr"
Frame1.Caption = "Summa exkl " & Percent & " % moms"
Else
MsgBox "Ange procent sats ", vbInformation, "Uträkning"
P.SetFocus
End If
</code>