Obliczanie ceny brutto !!

0

Witam

mam maly problem jak w dlephi za pomoca Edita i Comboboxa obliczyc cene brutto zeby wywalala ja w nastepnym edicie ?
nie chce mi liczyc mam akie cos

var
a,b,c:integer;
d:string;
begin
a:=StrtoInt(EditCenaNetto.Text);
b:=StrtoInt(DBCombobox2.Text);
c:=a +(b mod 100);
EditCenaBrutto.Text:=IntToStr(c);

prosze o Pomoc !!! Powinno obliczac cene brutto z dowolnej ceny !!!

0

jak z dowolnej ceny to nie

StrToInt()

tylko StrToFloat()

, i najlepiej zastosowac <code class="delphi">StrToFloatDef()

.
Pozatym ja cene z VATem obliczam tak

zVat := bezVat * 1.22;

jak jest 22%;
jesli w zmiennej

proc := 22;

to:

zVat := bezVat * (1 + proc/100);

na odwrot:

bezVat := zVat / (1 + proc/100);
0

nie dziala

0

Nie mam dostepu do Delphiego, wiecmoga byc male bledy, tylko powiedz jakie i gdzie wystepuja:

var bezVAT, zVAT: float;
    procVAT: integer;
begin
bezVAT := StrToFloatDef(EditCenaNetto.Text, 0);
procVAT := StrToIntDef(DBCombobox2.Text, 22); // tu napewno bedzie procent VAT??
procVAT := procVAT mod 100 // zeby ktos nie podal wiecej :)
zVAT := bezVAT *  (1 + (procVAT/100));
EditCenaBrutto.Text := FloatToDef(zVAT, ...); // tu chyba sa jeszcze jakies dodatkowe parametry, ale nie pamietam, bo najlepiej zeby pokazal 2 miajsca po przecinku

1 użytkowników online, w tym zalogowanych: 0, gości: 1