Int - отбросить дробную часть

Понадобилась функция, отбрасывающая дробную часть в числе и возвращающая целое.

' Отбрасывает дробную часть. Возвращает целое
FUNC Int(result)
     if 0+result < 0
         result = Ceil(Result)
     else
         result = Floor(result)
     end if
END FUNC