|
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 |
|
6044
|
66 std_formats{++nfmt} = "mmm-dd-yyyy HH:MM:SS"; |
|
|
67 std_formats{++nfmt} = "mmm-dd-yyyy"; |
|
|
68 std_formats{++nfmt} = "dd mmm yyyy HH:MM:SS"; |
|
|
69 std_formats{++nfmt} = "dd mmm yyyy"; |
|
|
70 std_formats{++nfmt} = "mmm dd yyyy HH:MM:SS"; |
|
|
71 std_formats{++nfmt} = "mmm dd yyyy"; |
|
|
72 std_formats{++nfmt} = "dd.mmm.yyyy HH:MM:SS"; |
|
|
73 std_formats{++nfmt} = "dd.mmm.yyyy"; |
|
|
74 std_formats{++nfmt} = "mmm.dd.yyyy HH:MM:SS"; |
|
|
75 std_formats{++nfmt} = "mmm.dd.yyyy"; |
|
|
76 |
|
|
77 # custom formats |
|
5687
|
78 std_formats{++nfmt} = "mmmyy"; # 12 |
|
|
79 std_formats{++nfmt} = "mm/dd/yyyy HH:MM"; |
|
|
80 endif |
|
|
81 |
|
|
82 if (nargin < 1 || nargin > 3) |
|
|
83 usage("v = datevec (...) or [y, m, d, h, mi, s] = datevec (...)"); |
|
|
84 endif |
|
|
85 |
|
|
86 switch (nargin) |
|
|
87 case 1 |
|
|
88 f = []; |
|
|
89 p = []; |
|
|
90 case 2 |
|
|
91 if (ischar (varargin{1})) |
|
|
92 f = varargin{1}; |
|
|
93 p = []; |
|
|
94 else |
|
|
95 f = []; |
|
|
96 p = varargin{1}; |
|
|
97 endif |
|
|
98 case 3 |
|
|
99 f = varargin{1}; |
|
|
100 p = varargin{2}; |
|
|
101 endswitch |
|
|
102 |
|
|
103 if (isempty (f)) |
|
|
104 f = -1; |
|
|
105 endif |
|
|
106 |
|
|
107 if (isempty (p)) |
|
|
108 p = (localtime (time)).year + 1900 - 50; |
|
|
109 endif |
|
|
110 |
|
|
111 if (ischar (date)) |
|
|
112 t = date; |
|
|
113 date = cell (1); |
|
|
114 date{1} = t; |
|
|
115 endif |
|
|
116 |
|
|
117 if (iscell (date)) |
|
|
118 |
|
|
119 nd = numel (date); |
|
|
120 |
|
|
121 y = m = d = h = mi = s = zeros (nd, 1); |
|
|
122 |
|
|
123 if (f == -1) |
|
|
124 for k = 1:nd |
|
|
125 found = false; |
|
|
126 for l = 1:nfmt |
|
|
127 [found y(k) m(k) d(k) h(k) mi(k) s(k)] = __date_str2vec__ (date{k}, std_formats{l}, p); |
|
|
128 if (found) |
|
|
129 break; |
|
|
130 endif |
|
|
131 endfor |
|
|
132 if (! found) |
|
|
133 error ("datevec: none of the standard formats match the date string"); |
|
|
134 endif |
|
|
135 endfor |
|
|
136 else |
|
|
137 for k = 1:nd |
|
|
138 [found y(k) m(k) d(k) h(k) mi(k) s(k)] = __date_str2vec__ (date{k}, f, p); |
|
|
139 if (! found) |
|
|
140 error ("datevec: date not parsed correctly with given format"); |
|
|
141 endif |
|
|
142 endfor |
|
|
143 endif |
|
|
144 |
|
|
145 else |
|
|
146 |
|
|
147 date = date(:); |
|
|
148 |
|
|
149 ## Move day 0 from midnight -0001-12-31 to midnight 0000-3-1 |
|
|
150 z = floor (date) - 60; |
|
|
151 ## Calculate number of centuries; K1 = 0.25 is to avoid rounding problems. |
|
|
152 a = floor ((z - 0.25) / 36524.25); |
|
|
153 ## Days within century; K2 = 0.25 is to avoid rounding problems. |
|
|
154 b = z - 0.25 + a - floor (a / 4); |
|
|
155 ## Calculate the year (year starts on March 1). |
|
|
156 y = floor (b / 365.25); |
|
|
157 ## Calculate day in year. |
|
|
158 c = fix (b - floor (365.25 * y)) + 1; |
|
|
159 ## Calculate month in year. |
|
|
160 m = fix ((5 * c + 456) / 153); |
|
|
161 d = c - fix ((153 * m - 457) / 5); |
|
|
162 ## Move to Jan 1 as start of year. |
|
|
163 ++y(m > 12); |
|
|
164 m(m > 12) -= 12; |
|
|
165 |
|
5859
|
166 ## Convert hour-minute-seconds. Attempt to account for precision of |
|
|
167 ## datenum format. |
|
|
168 |
|
|
169 fracd = date - floor (date); |
|
5873
|
170 tmps = abs (eps*86400*date); |
|
|
171 tmps(tmps == 0) = 1; |
|
|
172 srnd = 2 .^ floor (- log2 (tmps)); |
|
|
173 s = round (86400 * fracd .* srnd) ./ srnd; |
|
5687
|
174 h = floor (s / 3600); |
|
|
175 s = s - 3600 * h; |
|
|
176 mi = floor (s / 60); |
|
|
177 s = s - 60 * mi; |
|
|
178 |
|
|
179 endif |
|
|
180 |
|
|
181 if (nargout <= 1) |
|
5873
|
182 y = [y, m, d, h, mi, s]; |
|
5687
|
183 endif |
|
|
184 |
|
|
185 ### endfunction |
|
|
186 |
|
|
187 function [found, y, m, d, h, mi, s] = __date_str2vec__ (ds, f, p) |
|
|
188 |
|
|
189 # Play safe with percent signs |
|
|
190 f = strrep(f, "%", "%%"); |
|
|
191 |
|
|
192 ## dates to lowercase (note: we cannot convert MM to mm) |
|
|
193 f = strrep (f, "YYYY", "yyyy"); |
|
|
194 f = strrep (f, "YY", "yy"); |
|
|
195 f = strrep (f, "QQ", "qq"); |
|
|
196 f = strrep (f, "MMMM", "mmmm"); |
|
|
197 f = strrep (f, "MMM", "mmm"); |
|
|
198 f = strrep (f, "DDDD", "dddd"); |
|
|
199 f = strrep (f, "DDD", "ddd"); |
|
|
200 f = strrep (f, "DD", "dd"); |
|
|
201 ## times to uppercase (also cannot convert mm to MM) |
|
|
202 f = strrep (f, "hh", "HH"); |
|
|
203 f = strrep (f, "ss", "SS"); |
|
|
204 f = strrep (f, "pm", "PM"); |
|
|
205 f = strrep (f, "am", "AM"); |
|
|
206 |
|
|
207 ## right now, the format string may only contain these tokens: |
|
|
208 ## yyyy 4 digit year |
|
|
209 ## yy 2 digit year |
|
|
210 ## mmmm month name, full |
|
|
211 ## mmm month name, abbreviated |
|
|
212 ## mm month number |
|
|
213 ## dddd weekday name, full |
|
|
214 ## ddd weekday name, abbreviated |
|
|
215 ## dd date |
|
|
216 ## HH hour |
|
|
217 ## MM minutes |
|
|
218 ## SS seconds |
|
|
219 ## PM AM/PM |
|
|
220 ## AM AM/PM |
|
|
221 |
|
|
222 if (! isempty (strfind (f, "PM")) || ! isempty (strfind (f, "AM"))) |
|
|
223 ampm = true; |
|
|
224 else |
|
|
225 ampm = false; |
|
|
226 endif |
|
|
227 |
|
|
228 # date part |
|
|
229 f = strrep (f, "yyyy", "%Y"); |
|
|
230 f = strrep (f, "yy", "%y"); |
|
|
231 f = strrep (f, "mmmm", "%B"); |
|
|
232 f = strrep (f, "mmm", "%b"); |
|
|
233 f = strrep (f, "mm", "%m"); |
|
|
234 f = strrep (f, "dddd", "%A"); |
|
|
235 f = strrep (f, "ddd", "%a"); |
|
|
236 f = strrep (f, "dd", "%d"); |
|
|
237 |
|
|
238 # time part |
|
|
239 if (ampm) |
|
|
240 f = strrep (f, "HH", "%I"); |
|
|
241 f = strrep (f, "PM", "%p"); |
|
|
242 f = strrep (f, "AM", "%p"); |
|
|
243 else |
|
|
244 f = strrep (f, "HH", "%H"); |
|
|
245 endif |
|
|
246 f = strrep (f, "MM", "%M"); |
|
|
247 f = strrep (f, "SS", "%S"); |
|
|
248 |
|
|
249 [tm, nc] = strptime (ds, f); |
|
|
250 |
|
|
251 if (nc == length (ds) + 1) |
|
|
252 y = tm.year + 1900; m = tm.mon + 1; d = tm.mday; |
|
|
253 h = tm.hour; mi = tm.min; s = tm.sec + tm.usec / 1e6; |
|
|
254 found = true; |
|
|
255 rY = rindex (f, "%Y"); |
|
|
256 ry = rindex (f, "%y"); |
|
|
257 if (rY < ry) |
|
|
258 if (y > 1999) |
|
|
259 y -= 2000; |
|
|
260 else |
|
|
261 y -= 1900; |
|
|
262 endif |
|
|
263 y += p - mod (p, 100); |
|
|
264 if (y < p) |
|
|
265 y += 100; |
|
|
266 endif |
|
|
267 endif |
|
|
268 # check whether we need to give default values |
|
|
269 # possible error when string contains "%%" |
|
|
270 fy = rY || ry; |
|
|
271 fm = index (f, "%m") || index (f, "%b") || index (f, "%B"); |
|
|
272 fd = index (f, "%d") || index (f, "%a") || index (f, "%A"); |
|
|
273 fh = index (f, "%H") || index (f, "%I"); |
|
|
274 fmi = index (f, "%M"); |
|
|
275 fs = index (f, "%S"); |
|
|
276 if (! fy && ! fm && ! fd) |
|
|
277 tvm = localtime (time ()); ## tvm: this very moment |
|
|
278 y = tvm.year + 1900; |
|
|
279 m = tvm.mon + 1; |
|
|
280 d = tvm.mday; |
|
|
281 elseif (! fy && fm && fd) |
|
|
282 tvm = localtime (time ()); ## tvm: this very moment |
|
|
283 y = tvm.year + 1900; |
|
|
284 elseif (fy && fm && ! fd) |
|
|
285 tvm = localtime (time ()); ## tvm: this very moment |
|
|
286 d = 1; |
|
|
287 endif |
|
|
288 if (! fh && ! fmi && ! fs) |
|
|
289 h = mi = s = 0; |
|
|
290 elseif (fh && fmi && ! fs) |
|
|
291 s = 0; |
|
|
292 endif |
|
|
293 else |
|
|
294 y = m = d = h = mi = s = 0; |
|
|
295 found = false; |
|
|
296 endif |
|
|
297 |
|
|
298 ### endfunction |
|
|
299 |
|
|
300 %!shared nowvec |
|
|
301 %! nowvec = datevec (now); # Some tests could fail around midnight! |
|
|
302 # tests for standard formats: 0, 1, 2, 6, 13, 14, 15, 16, 23 |
|
|
303 %!assert(datevec("07-Sep-2000 15:38:09"),[2000,9,7,15,38,9]); |
|
|
304 %!assert(datevec("07-Sep-2000"),[2000,9,7,0,0,0]); |
|
|
305 %!assert(datevec("09/07/00"),[2000,9,7,0,0,0]); |
|
|
306 %!assert(datevec("09/13"),[nowvec(1),9,13,0,0,0]); |
|
|
307 %!assert(datevec("15:38:09"),[nowvec(1:3),15,38,9]); |
|
|
308 %!assert(datevec("3:38:09 PM"),[nowvec(1:3),15,38,9]); |
|
|
309 %!assert(datevec("15:38"),[nowvec(1:3),15,38,0]); |
|
|
310 %!assert(datevec("03:38 PM"),[nowvec(1:3),15,38,0]); |
|
|
311 %!assert(datevec("03/13/1962"),[1962,3,13,0,0,0]); |
|
|
312 # other tests |
|
|
313 %!assert(all(datenum(datevec([-1e4:1e4]))==[-1e4:1e4]')) |
|
|
314 %!test |
|
|
315 %! t = linspace (-2e5, 2e5, 10993); |
|
5860
|
316 %! assert (all (abs (datenum (datevec (t)) - t') < 1e-5)); |
|
5687
|
317 # demos |
|
|
318 %!demo |
|
|
319 %! datevec (now ()) |
