Deutsches Lazarusforum

Win fpc 3.2.2 x86_64

Was passiert mit dieser Zeile (abhängig vom generierten Code)?
Brutto1:= DblToCurr4(Netto1 * 1.07);
(Currency(Netto1) * Currency(1.07)) div 10000 ->
((Int64(3738) * int64(10700) = 39996600) div 10000) = 3999
Double(.3999) bekommt 0.39989999999999998 so DblToCurr4(0 ...

and also win32 with FPC 3.2.2 i386

win10, x86_64 fpc 3.2.2

WriteLn(SimpleFmtCurr(DblToCurr4(0.3738 * 1.07)));
WriteLn(DblToCurr4(0.3738 * 1.07));

prints on my computer
0.4000
4.000000000000000000E-01

if counting in EURO (or CHF) you should store variables to Currency type using either RoudTo_Curr or RoundTo5_curr depending on ...

Attached file contains some helper routines for the currency data type that handles RoundTo_Curr, RoundTo5_Curr, Ceil_Curr and Trunc_Curr both on CPU32 and CPU64.
Roundings are done 'away' from 0.
function SimpleFmtCurr(aCurr) returns decimal raw string for Currency value.
Except DblToCurr4 ...

Currency multiply and divide on win64 - x86_64

This subject has been annoying me for a long time.

Do you allow me to comment in english in this discussion ?