pl.comp.lang.delphi
[Top] [All Lists]

Re: Zaokrąglenie liczb - RoundTo

Subject: Re: Zaokrąglenie liczb - RoundTo
From: pawel
Date: Tue, 29 Jul 2008 23:01:51 +0200
Newsgroups: pl.comp.lang.delphi

adam myszor wrote:

> Witam.
No ja też!
<ciach...> 
> 


ja to robię tak:
<code>

var
  cKwota: Currency;
begin
cKwota:=StrToCurrDef('5,010',1);
label1.Caption:=FormatFloat('0.00', cKwota);

cKwota:=StrToCurrDef('5,011',1);
label2.Caption:=FormatFloat('0.00', cKwota);

cKwota:=StrToCurrDef('5,012',1);
label3.Caption:=FormatFloat('0.00', cKwota);

cKwota:=StrToCurrDef('5,013',1);
label4.Caption:=FormatFloat('0.00', cKwota);

cKwota:=StrToCurrDef('5,014',1);
label5.Caption:=FormatFloat('0.00', cKwota);

cKwota:=StrToCurrDef('5,015',1);
label6.Caption:=FormatFloat('0.00', cKwota);

cKwota:=StrToCurrDef('5,016',1);
label7.Caption:=FormatFloat('0.00', cKwota);

cKwota:=StrToCurrDef('5,017',1);
label8.Caption:=FormatFloat('0.00', cKwota);

cKwota:=StrToCurrDef('5,018',1);
label9.Caption:=FormatFloat('0.00', cKwota);

cKwota:=StrToCurrDef('5,019',1);
label10.Caption:=FormatFloat('0.00', cKwota);

end;

</code>

Pozdrawiam
Paweł

<Prev in Thread] Current Thread [Next in Thread>
Privacy Policy