function [day,month,year]=dat2num(data);
%Вычисление числовых значений дн?б мес?ца и года по дате,
%заданной в символьном представлении
%
%Вызов:    [day,month,year]=dat2num(data);
%
%  data - дата в символьном виде в форматах (DD.MM.YY, D.M.YY, D.MM.YYYY);
%         где D - число, M - мес?ц, YY - год. Разделитель - '.';
%   day - число даты;
% month - мес?ц;
%  year - год.
%
%Примечание: по умолчанию прин?то, что при вводе года в формате YY 
%            счет идет от 1900 года. При задании года в виде YYYY 
%            числовое представление года совпадает с заданным

%Хомутов С.Ю.    12.10.98      Новосибирск

k=find(data=='.');     % Положение точки-разделител?
if isempty(k)
   error('??? Непон?тный разделитель ???')
end

eval(['day=' data(1:k(1)-1) ';'])
eval(['month=' data(k(1)+1:k(2)-1) ';'])

if length(data)-k(2)>2
   eval(['year=' data(k(2)+1:length(data)) ';'])
else
   eval(['year=' data(k(2)+1:length(data)) '+1900;'])
end

if month>12 | day>31
   error('??? Неправильный формат дл? даты ??? Надо dd.mm.yy')
end