## Copyright (C) 2008 Bill Denney ## Copyright (C) 2013 Carnë Draug ## ## This program is free software; you can redistribute it and/or modify it under ## the terms of the GNU General Public License as published by the Free Software ## Foundation; either version 3 of the License, or (at your option) any later ## version. ## ## This program is distributed in the hope that it will be useful, but WITHOUT ## ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or ## FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more ## details. ## ## You should have received a copy of the GNU General Public License along with ## this program; if not, see . ## -*- texinfo -*- ## @deftypefn {Function File} {} day (@var{date}) ## @deftypefnx {Function File} {} day (@var{date}, @var{f}) ## Return hours of a date. ## ## For a given @var{date} in a serial date number or date string format, ## returns its day. The optional variable @var{f}, specifies the ## format string used to interpret date strings. ## ## @seealso{date, datevec, now, month, year} ## @end deftypefn function t = day (varargin) if (nargin < 1 || nargin > 2) print_usage (); elseif (nargin >= 2 && ! ischar (varargin{2})) error ("day: F must be a string"); endif t = datevec (varargin{:})(:,3); t = reshape (t, size (varargin{1})); endfunction %!assert (day (523383), 21); %!assert (day ("12-02-34", "mm-dd-yy"), 2);