Help needed on comparing two float(currency) variables

jw_ri...@usa.net (J. W. Rider)

Delphi Developer

Mon, 10 Jan 2000 03:00:00 GMT

Help needed on comparing two float(currency) variables

On Thu, 24 Jul 1997 14:17:28 +0100, James <ja...@jais.u-net.com>
wrote:

Quote

>I want to be able to compare 2 Currency variables to the nearest penny
>(2 decimal places) throughout my application.
>I can set "CurrencyDecimals := 2" in my application but this
>only is used in e.g. StrToFloatF using ffCurrency.
>Is there a built-in function or global setting which would simplify or
>remove the need for the following, not using string conversion ?

var
a,b: Currency;
begin
a:= 1.123;
b:= 1.124;
if abs(a-b)<0.005 {match to nearest penny} then
Button1.Caption:= 'Success';
end;

Jame

Delphi Developer

Mon, 10 Jan 2000 03:00:00 GMT

Re:Help needed on comparing two float(currency) variables

I want to be able to compare 2 Currency variables to the nearest penny
(2 decimal places) throughout my application.
I can set "CurrencyDecimals := 2" in my application but this
only is used in e.g. StrToFloatF using ffCurrency.
Is there a built-in function or global setting which would simplify or
remove the need for the following, not using string conversion ?

var
a,b: Currency;
begin
a:= 1.123;
a:= Round(a*100)/100;
b:= 1.124;
b:= Round(b*100)/100;
if a = b then Button1.Caption:= 'Success';
end;

Many thanks if you can help me with this - I've been through all the
documentation I can find.....

Other Threads

1. Need help comparing float types.

2. Delphi 4, DBGrid and floats (currency and a float) problem

3. How can I compare two dates in two different coloumns in SQL with ADO components

4. Comparing two arrays - help !

5. Best way to Compare Currency fields

6. Please Help, ADO Currency to Currency Problem

7. converting currency string back to float?

8. Currency, Floats and Integer??? Which should I use

9. Converting Currency to float problem

10. I need help comparing 2 string var for order of presedence