function [date0,T0]=my_date_input;
% ввод даты date0 в виде DD.MM.YYYY и вычисление сериальной даты T0
%
%           [date0,T0]=my_date_input;
%
% date0 объявляется как global

% 14.05.2016 - S.Khomutov, Paratunka, Kamchatka

% 21.05.2022 - замена вывода даты при запросе стандартными средствами
%               datestr()

global date0

if ~exist('date0','var') | isempty(date0),
    date0=datestr(now-1,'dd.mm.yyyy');  % замена 21.05.2022
end
str=input(['Введите дату DD.MM.YYYY [<Enter>, если ' ...
           date0 ' или 1, если след. сутки] ... '],'s');
if ~isempty(str),
    if length(str)>1,
        date0=str;
        T0=my_datenum(date0);
    else
        T0=my_datenum(date0)+1;
        date0=datestr(T0,'dd.mm.yyyy'); % замена 21.05.2022
    end
else
    T0=my_datenum(date0);
end
T0=my_datenum(date0);
