wss60 писал(а):
Interval/1000оператор деления возвращает в качестве результата выражение с типом, равным типу первого операнда. Поскольку Interval - операнд с типом Integer то после его деления на 1000 результат округляется до ближайшего целого - нуля.