problem with a calculation

[Silvio.Falconi]

on my application the total is 58.29
but if I make the calc the total is 58.28
why it los a 0,01 ?
nTotDoc:= 63.65
nTotRitenute:= 5.37
nTotDovuto := nTotDoc-nTotRitenute

how I can make to have the same result ?

my app



another app ( not mine)

[nageswaragunupudi]

When you calculate Rit. d'acconto, round of the result to 2 decimal places.
Eg Rit... := Round( <calculation>, 2 )

[karinha]

Code: Select all  Expand view

#Include "FiveWin.ch"

#xtranslate round(<nVal>,<nDec>) => val(str(<nVal>,20,<nDec>))

FUNCTION Test_Round()
 
   LOCAL nRound, nTotDoc, nTotDacc, nTotDov
 
   nRound   :=  0.00

   nTotDoc  := 63.65

   nTotDacc :=  5.37

   nTotDov  := ( nTotDoc ) - ( nTotDacc )

   nRound := Round( Val( StrZero( nTotDov, 12, 2 ) ), 4 )
 
   ? ROUND( nRound, 2 )  // 58.28
 
RETURN NIL
 

[Silvio.Falconi]

Code: Select all  Expand view

#Include "FiveWin.ch"

#xtranslate round(<nVal>,<nDec>) => val(str(<nVal>,20,<nDec>))

FUNCTION Test_Round()
 
   LOCAL nRound, nTotDoc, nTotDacc, nTotDov
 
   nRound   :=  0.00

   nTotDoc  := 63.65

   nTotDacc :=  5.37

   nTotDov  := ( nTotDoc ) - ( nTotDacc )

   nRound := Round( Val( StrZero( nTotDov, 12, 2 ) ), 4 )
 
   ? ROUND( nRound, 2 )  // 58.28
 
RETURN NIL
 

thanks but Nages send me a clear message before

[Otto]

Hello Silvio,
have you seen this line:
#xtranslate round(<nVal>,<nDec>) => val(str(<nVal>,20,<nDec>)) ?

Best regards,
Otto

[nageswaragunupudi]

No need for such translates.

Clipper, xHarbour and Harbour natively provide function ROUND( nvalue, nDecimals )

[Silvio.Falconi]

there is a bug on harbour
not run round function
but now I tried with
#xtranslate round(<nVal>,<nDec>) => val(str(<nVal>,20,<nDec>))
and run ok

[nageswaragunupudi]

there is a bug on harbour
not run round function

Is it?
May I know what is the bug?
Can you give some examples?

[Silvio.Falconi]

I wrong topic sorry