Files
ifctools/isLeap.m

30 lines
570 B
Matlab

function flag = isLeap(Year)
arguments (Input)
Year (:, 1) uint16
end
arguments (Output)
flag (:, 1) logical
end
% flag = NaN(size(Year));
isDivisibleBy4 = ~mod(Year, 4);
isNotDivisibleBy100 = logical(mod(Year, 100));
isDivisibleBy400 = ~mod(Year, 400);
flag = isDivisibleBy4 & (isDivisibleBy400 | isNotDivisibleBy100);
% if ~mod(Year, 4)
% if ~mod(Year, 100)
% if ~mod(Year, 400)
% flag = true;
% else
% flag = false;
% end
% else
% flag = true;
% end
% else
% flag = false;
% end
end