function t=f_year(mjd_day,month,year)
%Вычисление даты в дол?х года (без учета высокосных годов)
%по модифицированной юлианской или календарной дате
%
%Вызов:     t=f_year(mjd_day,month,year)
%
% mjd_day - модифицированна? юлианска? дата (другие аргументы
%           должны отсутствовать) или день мес?ца (об?зательно
%           должны быть аргументы month и year)
%   month - мес?ц
%    year - год
%       t - дата в дол?х года.
%Длительность года равна 365.25 суток.
%За начало года прин?то 1 ?нвар?.

% Хомутов С.Ю., 06.04.96

if nargin>1    % вычислени? по календарной дате
   if nargin~=3
      error ('!!! Мало аргументов !!!')
   end
   mjd0=cdtmjd(year(1),1,1);
   t=year(1) + (cdtmjd(year,month,mjd_day)-mjd0)/365.25;
else           % вычислени? по MJD
   year0=mjdcdt(mjd_day(1));
   mjd0=cdtmjd(year0,1,1);
   t=year0 + (mjd_day-mjd0)/365.25;
end
