Example 13
function m=firday(start)
if nargin == 0, start=now;
end
[yr,mo,da]=datevec(start);
da=da+6-weekday(start);
start=datenum(yr,mo,da,0,0,0);
while 1
[yr,mo,da]=datevec(start);
if (weekday(start) == 6) & (da == 13)
break;
end
start=datenum(start+7);
end
if nargout == 0
disp(['Friday, ' datestr(start,1)])
else
m=start;
end
Example
>> friday(2000)
Friday, 13-Jan-0006
Please send questions or suggestions about this web page to beatnic@aset.psu.edu
ASET | ITS | Penn State
|