Как посчитать остаток от деления числа с плавающей запитой?

[Godlike_S]

udResult := real_to_udint(input) - (real_to_udint (input / 10000) * 10000);
если в диапазон udint влезаете

Если исходить из условий задачи то вряд ли влезет