помогите с преобразованием типов

[~LiS~]

DlinaRabDay,j1 :integer;
j1 := j1 + INT(( DlinaRabDay* 2 - 15) / 6);

После деления на 6 Integer превращаеться в Extended. INT отбрасывает дробную часть но тип фактически остаёться Extended. А результат должен быть Integer. Подскажите как сделать?

[AlexandrSid]

Попробуй так
j1 := j1 + (( DlinaRabDay* 2 - 15) div 6);

[Stilet]

А результат должен быть Integer

Почему? Чем вещественный не устроил?

[Droid]

объяви переменную так j1: variant; и не мучайся с типом

[BOBAH13]

Сообщение от Droid

объяви переменную так j1: variant; и не мучайся с типом

Такой подход не очень продуктивен, с моей точки зрения, затраты идут на обработку переменной больше. Почему не юзать Round, Trunc ?

[~LiS~]

Попробуй так
j1 := j1 + (( DlinaRabDay* 2 - 15) div 6);

Мне нужно что б отбрасывалась дробная часть.

Почему? Чем вещественный не устроил?

Дальше по программе эта переменная складываеться ещё с несколькими и получаеться несоответсвие типов((.

объяви переменную так j1: variant; и не мучайся с типом

Подходит). Сл. вариант проще, но спасибо за инфу.такой тип не знал.

Такой подход не очень продуктивен, с моей точки зрения, затраты идут на обработку переменной больше. Почему не юзать Round, Trunc ?

+1 Trunc подошёл идеально. Спасибо. Респект.