|
5687
|
1 ## Copyright (C) 2000, 2001, 2004, 2005 Paul Kienzle |
|
|
2 ## |
|
|
3 ## This file is part of Octave. |
|
|
4 ## |
|
|
5 ## Octave is free software; you can redistribute it and/or modify it |
|
|
6 ## under the terms of the GNU General Public License as published by |
|
|
7 ## the Free Software Foundation; either version 2, or (at your option) |
|
|
8 ## any later version. |
|
|
9 ## |
|
|
10 ## Octave is distributed in the hope that it will be useful, but |
|
|
11 ## WITHOUT ANY WARRANTY; without even the implied warranty of |
|
|
12 ## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU |
|
|
13 ## General Public License for more details. |
|
|
14 ## |
|
|
15 ## You should have received a copy of the GNU General Public License |
|
|
16 ## along with Octave; see the file COPYING. If not, write to the Free |
|
|
17 ## Software Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA |
|
|
18 ## 02110-1301, USA. |
|
|
19 |
|
|
20 ## -*- texinfo -*- |
|
|
21 ## @deftypefn {Function File} {@var{v} =} datevec (@var{date}) |
|
|
22 ## @deftypefnx {Function File} {@var{v} =} datevec (@var{date}, @var{f}) |
|
|
23 ## @deftypefnx {Function File} {@var{v} =} datevec (@var{date}, @var{p}) |
|
|
24 ## @deftypefnx {Function File} {@var{v} =} datevec (@var{date}, @var{f}, @var{p}) |
|
|
25 ## @deftypefnx {Function File} {[@var{y}, @var{m}, @var{d}, @var{h}, @var{mi}, @var{s}] =} datevec (@dots{}) |
|
|
26 ## Convert a serial date number (see @code{datenum}) or date string (see |
|
|
27 ## @code{datestr}) into a date vector. |
|
|
28 ## |
|
|
29 ## A date vector is a row vector with six members, representing the year, |
|
|
30 ## month, day, hour, minute, and seconds respectively. |
|
|
31 ## |
|
|
32 ## @var{f} is the format string used to interpret date strings |
|
|
33 ## (see @code{datestr}). |
|
|
34 ## |
|
|
35 ## @var{p} is the year at the start of the century in which two-digit years |
|
|
36 ## are to be interpreted in. If not specified, it defaults to the current |
|
|
37 ## year minus 50. |
|
|
38 ## @seealso{datenum, datestr, date, clock, now} |
|
|
39 ## @end deftypefn |
|
|
40 |
|
|
41 ## Algorithm: Peter Baum (http://vsg.cape.com/~pbaum/date/date0.htm) |
|
|
42 |
|
|
43 ## Author: pkienzle <pkienzle@users.sf.net> |
|
|
44 ## Modified: bdenney <bill@givebillmoney.com> |
|
|
45 ## Created: 10 October 2001 (CVS) |
|
|
46 ## Adapted-By: William Poetra Yoga Hadisoeseno <williampoetra@gmail.com> |
|
|
47 |
|
|
48 ## The function __date_str2vec__ is based on datesplit by Bill Denney. |
|
|
49 |
|
|
50 function [y, m, d, h, mi, s] = datevec (date, varargin) |
|
|
51 |
|
|
52 persistent std_formats nfmt; |
|
|
53 |
|
|
54 if (isempty (std_formats)) |
|
|
55 std_formats = cell (); |
|
|
56 nfmt = 0; |
|
|
57 std_formats{++nfmt} = "dd-mmm-yyyy HH:MM:SS"; # 0 |
|
|
58 std_formats{++nfmt} = "dd-mmm-yyyy"; # 1 |
|
|
59 std_formats{++nfmt} = "mm/dd/yy"; # 2 |
|
|
60 std_formats{++nfmt} = "mm/dd"; # 6 |
|
|
61 std_formats{++nfmt} = "HH:MM:SS"; # 13 |
|
|
62 std_formats{++nfmt} = "HH:MM:SS PM"; # 14 |
|
|
63 std_formats{++nfmt} = "HH:MM"; # 15 |
|
|
64 std_formats{++nfmt} = "HH:MM PM"; # 16 |
|
|
65 std_formats{++nfmt} = "mm/dd/yyyy"; # 23 |
|
|
66 # custom formats |
|
|
67 std_formats{++nfmt} = "mmmyy"; # 12 |
|
|
68 std_formats{++nfmt} = "mm/dd/yyyy HH:MM"; |
|
|
69 endif |
|
|
70 |
|
|
71 if (nargin < 1 || nargin > 3) |
|
|
72 usage("v = datevec (...) or [y, m, d, h, mi, s] = datevec (...)"); |
|
|
73 endif |
|
|
74 |
|
|
75 switch (nargin) |
|
|
76 case 1 |
|
|
77 f = []; |
|
|
78 p = []; |
|
|
79 case 2 |
|
|
80 if (ischar (varargin{1})) |
|
|
81 f = varargin{1}; |
|
|
82 p = []; |
|
|
83 else |
|
|
84 f = []; |
|
|
85 p = varargin{1}; |
|
|
86 endif |
|
|
87 case 3 |
|
|
88 f = varargin{1}; |
|
|
89 p = varargin{2}; |
|
|
90 endswitch |
|
|
91 |
|
|
92 if (isempty (f)) |
|
|
93 f = -1; |
|
|
94 endif |
|
|
95 |
|
|
96 if (isempty (p)) |
|
|
97 p = (localtime (time)).year + 1900 - 50; |
|
|
98 endif |
|
|
99 |
|
|
100 if (ischar (date)) |
|
|
101 t = date; |
|
|
102 date = cell (1); |
|
|
103 date{1} = t; |
|
|
104 endif |
|
|
105 |
|
|
106 if (iscell (date)) |
|
|
107 |
|
|
108 nd = numel (date); |
|
|
109 |
|
|
110 y = m = d = h = mi = s = zeros (nd, 1); |
|
|
111 |
|
|
112 if (f == -1) |
|
|
113 for k = 1:nd |
|
|
114 found = false; |
|
|
115 for l = 1:nfmt |
|
|
116 [found y(k) m(k) d(k) h(k) mi(k) s(k)] = __date_str2vec__ (date{k}, std_formats{l}, p); |
|
|
117 if (found) |
|
|
118 break; |
|
|
119 endif |
|
|
120 endfor |
|
|
121 if (! found) |
|
|
122 error ("datevec: none of the standard formats match the date string"); |
|
|
123 endif |
|
|
124 endfor |
|
|
125 else |
|
|
126 for k = 1:nd |
|
|
127 [found y(k) m(k) d(k) h(k) mi(k) s(k)] = __date_str2vec__ (date{k}, f, p); |
|
|
128 if (! found) |
|
|
129 error ("datevec: date not parsed correctly with given format"); |
|
|
130 endif |
|
|
131 endfor |
|
|
132 endif |
|
|
133 |
|
|
134 else |
|
|
135 |
|
|
136 date = date(:); |
|
|
137 |
|
|
138 ## Move day 0 from midnight -0001-12-31 to midnight 0000-3-1 |
|
|
139 z = floor (date) - 60; |
|
|
140 ## Calculate number of centuries; K1 = 0.25 is to avoid rounding problems. |
|
|
141 a = floor ((z - 0.25) / 36524.25); |
|
|
142 ## Days within century; K2 = 0.25 is to avoid rounding problems. |
|
|
143 b = z - 0.25 + a - floor (a / 4); |
|
|
144 ## Calculate the year (year starts on March 1). |
|
|
145 y = floor (b / 365.25); |
|
|
146 ## Calculate day in year. |
|
|
147 c = fix (b - floor (365.25 * y)) + 1; |
|
|
148 ## Calculate month in year. |
|
|
149 m = fix ((5 * c + 456) / 153); |
|
|
150 d = c - fix ((153 * m - 457) / 5); |
|
|
151 ## Move to Jan 1 as start of year. |
|
|
152 ++y(m > 12); |
|
|
153 m(m > 12) -= 12; |
|
|
154 |
|
5859
|
155 ## Convert hour-minute-seconds. Attempt to account for precision of |
|
|
156 ## datenum format. |
|
|
157 |
|
|
158 fracd = date - floor (date); |
|
|
159 srnd = 10 .^ floor (log10 (365.25*y)); |
|
|
160 s = round (86400*fracd.*srnd) ./ srnd; |
|
5687
|
161 h = floor (s / 3600); |
|
|
162 s = s - 3600 * h; |
|
|
163 mi = floor (s / 60); |
|
|
164 s = s - 60 * mi; |
|
|
165 |
|
|
166 endif |
|
|
167 |
|
|
168 if (nargout <= 1) |
|
|
169 y = [y m d h mi s]; |
|
|
170 endif |
|
|
171 |
|
|
172 ### endfunction |
|
|
173 |
|
|
174 function [found, y, m, d, h, mi, s] = __date_str2vec__ (ds, f, p) |
|
|
175 |
|
|
176 # Play safe with percent signs |
|
|
177 f = strrep(f, "%", "%%"); |
|
|
178 |
|
|
179 ## dates to lowercase (note: we cannot convert MM to mm) |
|
|
180 f = strrep (f, "YYYY", "yyyy"); |
|
|
181 f = strrep (f, "YY", "yy"); |
|
|
182 f = strrep (f, "QQ", "qq"); |
|
|
183 f = strrep (f, "MMMM", "mmmm"); |
|
|
184 f = strrep (f, "MMM", "mmm"); |
|
|
185 f = strrep (f, "DDDD", "dddd"); |
|
|
186 f = strrep (f, "DDD", "ddd"); |
|
|
187 f = strrep (f, "DD", "dd"); |
|
|
188 ## times to uppercase (also cannot convert mm to MM) |
|
|
189 f = strrep (f, "hh", "HH"); |
|
|
190 f = strrep (f, "ss", "SS"); |
|
|
191 f = strrep (f, "pm", "PM"); |
|
|
192 f = strrep (f, "am", "AM"); |
|
|
193 |
|
|
194 ## right now, the format string may only contain these tokens: |
|
|
195 ## yyyy 4 digit year |
|
|
196 ## yy 2 digit year |
|
|
197 ## mmmm month name, full |
|
|
198 ## mmm month name, abbreviated |
|
|
199 ## mm month number |
|
|
200 ## dddd weekday name, full |
|
|
201 ## ddd weekday name, abbreviated |
|
|
202 ## dd date |
|
|
203 ## HH hour |
|
|
204 ## MM minutes |
|
|
205 ## SS seconds |
|
|
206 ## PM AM/PM |
|
|
207 ## AM AM/PM |
|
|
208 |
|
|
209 if (! isempty (strfind (f, "PM")) || ! isempty (strfind (f, "AM"))) |
|
|
210 ampm = true; |
|
|
211 else |
|
|
212 ampm = false; |
|
|
213 endif |
|
|
214 |
|
|
215 # date part |
|
|
216 f = strrep (f, "yyyy", "%Y"); |
|
|
217 f = strrep (f, "yy", "%y"); |
|
|
218 f = strrep (f, "mmmm", "%B"); |
|
|
219 f = strrep (f, "mmm", "%b"); |
|
|
220 f = strrep (f, "mm", "%m"); |
|
|
221 f = strrep (f, "dddd", "%A"); |
|
|
222 f = strrep (f, "ddd", "%a"); |
|
|
223 f = strrep (f, "dd", "%d"); |
|
|
224 |
|
|
225 # time part |
|
|
226 if (ampm) |
|
|
227 f = strrep (f, "HH", "%I"); |
|
|
228 f = strrep (f, "PM", "%p"); |
|
|
229 f = strrep (f, "AM", "%p"); |
|
|
230 else |
|
|
231 f = strrep (f, "HH", "%H"); |
|
|
232 endif |
|
|
233 f = strrep (f, "MM", "%M"); |
|
|
234 f = strrep (f, "SS", "%S"); |
|
|
235 |
|
|
236 [tm, nc] = strptime (ds, f); |
|
|
237 |
|
|
238 if (nc == length (ds) + 1) |
|
|
239 y = tm.year + 1900; m = tm.mon + 1; d = tm.mday; |
|
|
240 h = tm.hour; mi = tm.min; s = tm.sec + tm.usec / 1e6; |
|
|
241 found = true; |
|
|
242 rY = rindex (f, "%Y"); |
|
|
243 ry = rindex (f, "%y"); |
|
|
244 if (rY < ry) |
|
|
245 if (y > 1999) |
|
|
246 y -= 2000; |
|
|
247 else |
|
|
248 y -= 1900; |
|
|
249 endif |
|
|
250 y += p - mod (p, 100); |
|
|
251 if (y < p) |
|
|
252 y += 100; |
|
|
253 endif |
|
|
254 endif |
|
|
255 # check whether we need to give default values |
|
|
256 # possible error when string contains "%%" |
|
|
257 fy = rY || ry; |
|
|
258 fm = index (f, "%m") || index (f, "%b") || index (f, "%B"); |
|
|
259 fd = index (f, "%d") || index (f, "%a") || index (f, "%A"); |
|
|
260 fh = index (f, "%H") || index (f, "%I"); |
|
|
261 fmi = index (f, "%M"); |
|
|
262 fs = index (f, "%S"); |
|
|
263 if (! fy && ! fm && ! fd) |
|
|
264 tvm = localtime (time ()); ## tvm: this very moment |
|
|
265 y = tvm.year + 1900; |
|
|
266 m = tvm.mon + 1; |
|
|
267 d = tvm.mday; |
|
|
268 elseif (! fy && fm && fd) |
|
|
269 tvm = localtime (time ()); ## tvm: this very moment |
|
|
270 y = tvm.year + 1900; |
|
|
271 elseif (fy && fm && ! fd) |
|
|
272 tvm = localtime (time ()); ## tvm: this very moment |
|
|
273 d = 1; |
|
|
274 endif |
|
|
275 if (! fh && ! fmi && ! fs) |
|
|
276 h = mi = s = 0; |
|
|
277 elseif (fh && fmi && ! fs) |
|
|
278 s = 0; |
|
|
279 endif |
|
|
280 else |
|
|
281 y = m = d = h = mi = s = 0; |
|
|
282 found = false; |
|
|
283 endif |
|
|
284 |
|
|
285 ### endfunction |
|
|
286 |
|
|
287 %!shared nowvec |
|
|
288 %! nowvec = datevec (now); # Some tests could fail around midnight! |
|
|
289 # tests for standard formats: 0, 1, 2, 6, 13, 14, 15, 16, 23 |
|
|
290 %!assert(datevec("07-Sep-2000 15:38:09"),[2000,9,7,15,38,9]); |
|
|
291 %!assert(datevec("07-Sep-2000"),[2000,9,7,0,0,0]); |
|
|
292 %!assert(datevec("09/07/00"),[2000,9,7,0,0,0]); |
|
|
293 %!assert(datevec("09/13"),[nowvec(1),9,13,0,0,0]); |
|
|
294 %!assert(datevec("15:38:09"),[nowvec(1:3),15,38,9]); |
|
|
295 %!assert(datevec("3:38:09 PM"),[nowvec(1:3),15,38,9]); |
|
|
296 %!assert(datevec("15:38"),[nowvec(1:3),15,38,0]); |
|
|
297 %!assert(datevec("03:38 PM"),[nowvec(1:3),15,38,0]); |
|
|
298 %!assert(datevec("03/13/1962"),[1962,3,13,0,0,0]); |
|
|
299 # other tests |
|
|
300 %!assert(all(datenum(datevec([-1e4:1e4]))==[-1e4:1e4]')) |
|
|
301 %!test |
|
|
302 %! t = linspace (-2e5, 2e5, 10993); |
|
|
303 %! assert (all (datenum (datevec (t)) == t')); |
|
|
304 # demos |
|
|
305 %!demo |
|
|
306 %! datevec (now ()) |
