function [t]=yyyymmdd2t(date)
%  function [t]=yyyymmdd2t(date)
% 
%  converts date format to fractional year               
% 
%  (note: this is not the official QOCA type conversion)
%  (just a convenient approximation to that)

if ~isnumeric(date)
    error('date must be numeric');
end;
%keyboard;
% year = fix(date/10000);
% month = fix((date - year*10000)/100);
% day = date - year*10000 - month*100;


dtjpl = yyyymmdd2dtjpl(date);

for i=1:length(dtjpl)
   t(i,1)=dtjpl2t(dtjpl(i));
end;


