Функцию сред исправил)
Не придал этому внимание, что не задан второй параметр.

НомерСотрудника =Формат(Число(Сред(Номер,3,9))/3 - Цел(Число(Сред(Номер,3,9))/3),"ЧДЦ=1");