12. december 2006 - 12:55Der er
7 kommentarer og 1 løsning
Beregning, hvor der er 2 ubekendte
Hej.
I forbindelse med mit beregningsprogram har jeg brug for at lave en beregning, hvor der er 1½ (2) ubekendte, men kan det lade sig gøre på fornuftig vis?
Regnestykket er a = b + c hvor a er det tal, jeg ønsker at finde b er en værdi, som hentes i en TEdit c er en værdi, der afhænger af a. (c fremkommer efter en omfattende beregning med a som input).
--- Ovenstående overført til mit skatteprojekt.
Jeg ønsker at finde ud af, hvad min bruttoløn skal være for at få en given udbetaling / nettoløn.
a = bruttoløn b = ønsket nettoløn c = skat. bruttoløn = ønsket nettoløn + skat
mig bekendt kender man både trækprocenten og bruttolønnen, med mindre du også vil beregne den ud fra en time sats?
var BruttoLoen: Float; NettoLoen: Float; TraekProcent: Float; begin NettoLoen := (BruttoLoen / 100) * TraekProcent; end;
:)
sidenote: grunden til at jeg bruger float i stedet for ineteger er at float understøtter kommatal hvorimod integer vil give en access violation hvis der bliver skrevet et kommatal til en integer variable :)
Med lidt inspiration fra psycosoft-funware's kommentare :D 3 Edit's og 1 Button
Edit1 = Brutto Edit2 = Netto (er så den eneste du skal skrive noget i) Edit3 = Trækprocent
------
function TraekProcent(b: Extended): Extended; begin result := b*2; //Udregning af trækprocent end;
procedure TForm1.Button1Click(Sender: TObject); var a: Extended; b: Extended; c: Extended; begin b := StrToFloat(Edit2.Text); c := TraekProcent(b); a := b + c; Edit1.Text := FloatToStr(a); Edit3.Text := FloatToStr(c); end;
Det er lidt kompliceret rent skatteteknisk, men en kort historie:
Trækprocenten er slet ikke en del af det her, jeg nævnte det ikke tidligere for at undgå forvirring. Men trækprocenten bruges til at beregne foreløbig skat, mens det er slutskatten, som jeg ønsker at finde.
Dertil beregnes slutskatten som en samlet sum af statsskat, kommuneskat, kirkeskat, fradrag, udbytteskat, ejendomsværdiskat mv.
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
