This is mine version.
It works like should be, i.e., negative numbers, multiples of 10 and decimal values.
FUNCTION GetRoundedUp RETURNS INT(deValue AS DEC):
DEF VAR iResult AS INT NO-UNDO.
DEF VAR iMod AS INT NO-UNDO.
DEF VAR deRounded AS DEC NO-UNDO.
ASSIGN deRounded =...