Siema!!!
Mam pytanie dotyczące procentów: Jak wyświtlić setne części procenta??
Próbowałem to sam zrobić ale mi nie wyszło, próbowałem z takim kodem:
label1.text:= currtostr(liczba1 / liczba2);
Proszę o pomoc
Dzięki za ewentualne odpowiedzi!!!
Siema!!!
Mam pytanie dotyczące procentów: Jak wyświtlić setne części procenta??
Próbowałem to sam zrobić ale mi nie wyszło, próbowałem z takim kodem:
label1.text:= currtostr(liczba1 / liczba2);
Proszę o pomoc
Dzięki za ewentualne odpowiedzi!!!
ja to tak zrobiłem:
var liczba:real;procent,promil,jednasetnaproc:integer;
begin
liczba:=ilezrobiono/ilemabyc;
procent:=trunc(liczba*100); // 1/100 - procent
promil:=trunc((liczba-(procent/100))*10000); // 1/10 - procenta
jednasetnaproc:=trunc((liczba-(procent/100)-(promil/10000))*1000000); // 1/1000 procenta
end;
zwieksz sobie po prostu normalne wyliczanie procentow, np zamiast 100 daj 100 00
potem dzielisz przez 100
i zapisujesz wynikowy real, zaokraglisz poprzez roundto i bedzie dobrze :)
Hmm, jeśli chodzi tylko o wyświetlenie w polu tekstowym
to jest taka funkcja jak Format()
W helpie Delphi jest dokładny opis parametrów