[ XGhost @ 26.06.2005. 00:50 ] @
Ako podijelim neki broj dobijem rezultat npr 12,12354686 te mi ne odgovara
duzina brojeva. Kako da dobijem npr 12,12. Konkretan zadatak je slijedeci

procedure TForm1.Iznos;
var
A,B,C: Currency;
begin

A:= StrToCurr(Edit1.Text);
B:= StrToCurr(Edit2.Text);
C:= R / K ;
Edit3.Text:=CurrToStr(C);
end;
[ ntojzan @ 26.06.2005. 03:50 ] @
Sta je R i K?

Ako si mislio na:

C:=A/B

onda resenje mozes da ogranicis ovako:

C:=Round(A*100/B)/100

a ako bas insistiras na R i K, onda je resenje:

C:=Round(R*100/K)/100
[ Srki_82 @ 26.06.2005. 21:57 ] @
Check it out: RountTo funkcija