Прототип

INT DecToLong (
  DECIMAL Id,   /* исходное вещественное число */
  LONG * Ol,    /* преобразованное целое */
  INT Round);   /* признак округления */

Описание

Функция DecToLong преобразует вещественное число с фиксированной точкой, заданное переменной Id типа DECIMAL, в целое число типа LONG.

Если преобразуемое вещественное число имеет целочисленное значение, то параметр Round игнорируется;

Если Round = 0, выполняется округление до целого значения.

Если вещественное число содержит дробную часть и значение Round = 1, то функция возвращает ошибку преобразования.

Возвращаемое значение

Код завершения (0 или 1). При успешном завершении – целая часть вещественного числа (без округления) в переменной Ol типа LONG.

Пример

…
if ((ok =DecToLong(vdec, &LStr, 1)) == 0)
{   /* Ошибка преобразования с округлением*/
  printf('\n Ошибка:  переполнение при преобразовании');
  goto lend;
}  /* Ifthen */
…