//function fUT_to_wDay: Udint; // Определение дня недели из времени в формате UnixTime

function fUT_to_wDay: Udint; // Результат функции: номер (1-7) дня недели
    var_input
        UT:udint; // Время в формате InixTime
    end_var

//PRG
    fUT_to_wDay:=
        (
            ( shr( ((UT + 43200)/43200 + 4881174 + 1), 1)
            )mod  7
        )+ 1 ;
end_function