ИП320. Работа с битами. Помогите новичку.

[capzap]

Точняк . Но сути дела не меняет .

точно? попробуйте через свой код прогнать число 36.87599

ЗЫ

Ves_kg:=TRUNC(ves_real);
Ves_gr:=REAL_TO_INT((ves_real-INT_TO_REAL(Ves_kg))*1000.0);