On Fri, Oct 11, 2019 at 7:29 AM LacaK <la...@zoznam.sk> wrote: > var > c: currency; > begin > c:=922337203685.47; > writeln(c:18:4,' = ', ' Trunc(c*10000)=', Trunc(c*10000)); > c:=-92233720368547; > writeln(c:18:4,' = ', ' Trunc(c*10000)=', Trunc(c*10000)); > end.
3.0.4 win32 922337203685.4700 = Trunc(c*10000)=9223372036854700 -92233720368547.0000 = Trunc(c*10000)=-922337203685470000 3.3.1 r42348 win32 922337203685.4700 = Trunc(c*10000)=9223372036854700 -92233720368547.0000 = Trunc(c*10000)=-922337203685470000 3.0.4 win64 C:\Users\Bart\LazarusProjecten\ConsoleProjecten>test 922337203685.4700 = Trunc(c*10000)=-75 -92233720368547.0000 = Trunc(c*10000)=7580 3.3.1 r42348 win64 922337203685.4700 = Trunc(c*10000)=-75 -92233720368547.0000 = Trunc(c*10000)=7580 -- Bart _______________________________________________ fpc-devel maillist - fpc-devel@lists.freepascal.org https://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-devel
