function valid=valid_date(year,month,date)
if nargin == 3;
if ~isscalar(year) || year<1|| year~=fix(year)||~isscalar(month) || month<1|| month~=fix(month)||~isscalar(date) || date<1|| date~=fix(date);
valid=false;
else
if ((year/100)~=fix(year/100)&&(year/4)==fix(year/4))||((year/400)==fix(year/400));
valid=mmm(month,date);
else
valid=sss(month,date);
end
end
end
function valid=mmm(month,date)
m30=[4,6,9,11];
m31=[1,3,5,7,8,10,12];
m29=2;
m28=2;
if max((month==m31)')==1
valid=(date>=1)&&date<=31;
elseif max(( month==m30)')==1
valid=(date>=1)&&date<=30;
elseif max((month==m29)')==1
valid=(date>=1)&&date<=29;
else
valid=false;
end
function valid=sss(month,date)
m30=[4,6,9,11];
m31=[1,3,5,7,8,10,12];
m29=2;
m28=2;
if max((month==m31)')==1
valid=(date>=1)&&date<=31;
elseif max(( month==m30)')==1
valid=(date>=1)&&date<=30;
elseif max((month==m28)')==1
valid=(date>=1)&&date<=28;
else
valid=false;
end