Novo

Forum kao aplikacija na telefonu

Dodajte forum na početni ekran i koristite ga kao aplikaciju, sa menijem na dnu ekrana.

  • 2 odgovora
  • 2.684 pregleda

Najnovija ↓

ogranicenje decimala 26.06.2005. u 01:50 · pre 259 meseci #1
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;
Re: ogranicenje decimala 26.06.2005. u 04:50 · pre 259 meseci #2
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
Prijavite se da biste odgovorili u ovoj temi.PrijavaRegistracija

Premeštanje teme