function Tser=my_datenum(datestr);
% Вычисление сериальной даты по дате, заданной строкой
% вида DD.MM.YYYY
%
%       Tser=my_datenum(datestr);
%
%   datestr     - дата, заданная строкой DD.MM.YYYY
%   Tser        - сериальная дата

% 03.06.2008    - S.Khomutov (Novosibirsk)

year=str2num(datestr(7:10));
month=str2num(datestr(4:5));
day=str2num(datestr(1:2));

Tser=datenum(year,month,day);
