Hi muaz deyab ,
As per the code I sent it will always round the values by seeking its decimal places, means it will increase or decrease accordingly, but as you said you want exact same 2 decimal values, in that case you have to use below logic
TextVal := FORMAT(8521.3160);
IF STRPOS(TextVal ,'.') > 0 then
TextVal := COPYSTR(TextVal,1,STRPOS(TextVal,'.')) + COPYSTR(TextVal,STRPOS(TextVal,'.')+1,2);