Mercurial > octave-antonio
annotate scripts/time/datestr.m @ 11587:c792872f8942
all script files: untabify and strip trailing whitespace
author | John W. Eaton <jwe@octave.org> |
---|---|
date | Thu, 20 Jan 2011 17:35:29 -0500 |
parents | fd0a3ac60b0e |
children | 40e32fe44aaa |
rev | line source |
---|---|
11523 | 1 ## Copyright (C) 2000-2011 Paul Kienzle |
5687 | 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 | |
7016 | 7 ## the Free Software Foundation; either version 3 of the License, or (at |
8 ## your option) any later version. | |
5687 | 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 | |
7016 | 16 ## along with Octave; see the file COPYING. If not, see |
17 ## <http://www.gnu.org/licenses/>. | |
5687 | 18 |
19 ## -*- texinfo -*- | |
11469
c776f063fefe
Overhaul m-script files to use common variable name between code and documentation.
Rik <octave@nomad.inbox5.com>
parents:
11329
diff
changeset
|
20 ## @deftypefn {Function File} {@var{str} =} datestr (@var{date}) |
c776f063fefe
Overhaul m-script files to use common variable name between code and documentation.
Rik <octave@nomad.inbox5.com>
parents:
11329
diff
changeset
|
21 ## @deftypefnx {Function File} {@var{str} =} datestr (@var{date}, @var{f}) |
c776f063fefe
Overhaul m-script files to use common variable name between code and documentation.
Rik <octave@nomad.inbox5.com>
parents:
11329
diff
changeset
|
22 ## @deftypefnx {Function File} {@var{str} =} datestr (@var{date}, @var{f}, @var{p}) |
5687 | 23 ## Format the given date/time according to the format @code{f} and return |
9051
1bf0ce0930be
Grammar check TexInfo in all .m files
Rik <rdrider0-list@yahoo.com>
parents:
8920
diff
changeset
|
24 ## the result in @var{str}. @var{date} is a serial date number (see |
6555 | 25 ## @code{datenum}) or a date vector (see @code{datevec}). The value of |
26 ## @var{date} may also be a string or cell array of strings. | |
5687 | 27 ## |
28 ## @var{f} can be an integer which corresponds to one of the codes in | |
29 ## the table below, or a date format string. | |
30 ## | |
31 ## @var{p} is the year at the start of the century in which two-digit years | |
9051
1bf0ce0930be
Grammar check TexInfo in all .m files
Rik <rdrider0-list@yahoo.com>
parents:
8920
diff
changeset
|
32 ## are to be interpreted in. If not specified, it defaults to the current |
5687 | 33 ## year minus 50. |
34 ## | |
35 ## For example, the date 730736.65149 (2000-09-07 15:38:09.0934) would be | |
36 ## formatted as follows: | |
37 ## | |
38 ## @multitable @columnfractions 0.1 0.45 0.35 | |
39 ## @headitem Code @tab Format @tab Example | |
40 ## @item 0 @tab dd-mmm-yyyy HH:MM:SS @tab 07-Sep-2000 15:38:09 | |
41 ## @item 1 @tab dd-mmm-yyyy @tab 07-Sep-2000 | |
42 ## @item 2 @tab mm/dd/yy @tab 09/07/00 | |
43 ## @item 3 @tab mmm @tab Sep | |
44 ## @item 4 @tab m @tab S | |
45 ## @item 5 @tab mm @tab 09 | |
46 ## @item 6 @tab mm/dd @tab 09/07 | |
47 ## @item 7 @tab dd @tab 07 | |
48 ## @item 8 @tab ddd @tab Thu | |
49 ## @item 9 @tab d @tab T | |
50 ## @item 10 @tab yyyy @tab 2000 | |
51 ## @item 11 @tab yy @tab 00 | |
52 ## @item 12 @tab mmmyy @tab Sep00 | |
53 ## @item 13 @tab HH:MM:SS @tab 15:38:09 | |
54 ## @item 14 @tab HH:MM:SS PM @tab 03:38:09 PM | |
55 ## @item 15 @tab HH:MM @tab 15:38 | |
56 ## @item 16 @tab HH:MM PM @tab 03:38 PM | |
57 ## @item 17 @tab QQ-YY @tab Q3-00 | |
58 ## @item 18 @tab QQ @tab Q3 | |
59 ## @item 19 @tab dd/mm @tab 13/03 | |
60 ## @item 20 @tab dd/mm/yy @tab 13/03/95 | |
61 ## @item 21 @tab mmm.dd.yyyy HH:MM:SS @tab Mar.03.1962 13:53:06 | |
62 ## @item 22 @tab mmm.dd.yyyy @tab Mar.03.1962 | |
63 ## @item 23 @tab mm/dd/yyyy @tab 03/13/1962 | |
64 ## @item 24 @tab dd/mm/yyyy @tab 12/03/1962 | |
65 ## @item 25 @tab yy/mm/dd @tab 95/03/13 | |
66 ## @item 26 @tab yyyy/mm/dd @tab 1995/03/13 | |
67 ## @item 27 @tab QQ-YYYY @tab Q4-2132 | |
68 ## @item 28 @tab mmmyyyy @tab Mar2047 | |
69 ## @item 29 @tab yyyymmdd @tab 20470313 | |
70 ## @item 30 @tab yyyymmddTHHMMSS @tab 20470313T132603 | |
71 ## @item 31 @tab yyyy-mm-dd HH:MM:SS @tab 1047-03-13 13:26:03 | |
72 ## @end multitable | |
73 ## | |
9079
4d610aba7347
Cleanup documentation for system.texi, package.texi
Rik <rdrider0-list@yahoo.com>
parents:
9051
diff
changeset
|
74 ## If @var{f} is a format string, the following symbols are recognized: |
5687 | 75 ## |
76 ## @multitable @columnfractions 0.1 0.7 0.2 | |
77 ## @headitem Symbol @tab Meaning @tab Example | |
78 ## @item yyyy @tab Full year @tab 2005 | |
79 ## @item yy @tab Two-digit year @tab 2005 | |
80 ## @item mmmm @tab Full month name @tab December | |
81 ## @item mmm @tab Abbreviated month name @tab Dec | |
82 ## @item mm @tab Numeric month number (padded with zeros) @tab 01, 08, 12 | |
83 ## @item m @tab First letter of month name (capitalized) @tab D | |
84 ## @item dddd @tab Full weekday name @tab Sunday | |
85 ## @item ddd @tab Abbreviated weekday name @tab Sun | |
86 ## @item dd @tab Numeric day of month (padded with zeros) @tab 11 | |
87 ## @item d @tab First letter of weekday name (capitalized) @tab S | |
88 ## @item HH @tab Hour of day, padded with zeros if PM is set @tab 09:00 | |
89 ## @item @tab and not padded with zeros otherwise @tab 9:00 AM | |
90 ## @item MM @tab Minute of hour (padded with zeros) @tab 10:05 | |
91 ## @item SS @tab Second of minute (padded with zeros) @tab 10:05:03 | |
92 ## @item PM @tab Use 12-hour time format @tab 11:30 PM | |
93 ## @end multitable | |
94 ## | |
95 ## If @var{f} is not specified or is @code{-1}, then use 0, 1 or 16, | |
96 ## depending on whether the date portion or the time portion of | |
97 ## @var{date} is empty. | |
98 ## | |
99 ## If @var{p} is nor specified, it defaults to the current year minus 50. | |
100 ## | |
101 ## If a matrix or cell array of dates is given, a vector of date strings is | |
102 ## returned. | |
103 ## | |
104 ## @seealso{datenum, datevec, date, clock, now, datetick} | |
105 ## @end deftypefn | |
106 | |
8202
cf59d542f33e
replace all TODOs and XXXs with FIXMEs
Jaroslav Hajek <highegg@gmail.com>
parents:
8112
diff
changeset
|
107 ## FIXME: parse arbitrary code strings. |
cf59d542f33e
replace all TODOs and XXXs with FIXMEs
Jaroslav Hajek <highegg@gmail.com>
parents:
8112
diff
changeset
|
108 ## e.g., for Wednesday 2001-03-05 09:04:06 AM, use |
cf59d542f33e
replace all TODOs and XXXs with FIXMEs
Jaroslav Hajek <highegg@gmail.com>
parents:
8112
diff
changeset
|
109 ## yy 01 |
cf59d542f33e
replace all TODOs and XXXs with FIXMEs
Jaroslav Hajek <highegg@gmail.com>
parents:
8112
diff
changeset
|
110 ## yyyy 2001 |
cf59d542f33e
replace all TODOs and XXXs with FIXMEs
Jaroslav Hajek <highegg@gmail.com>
parents:
8112
diff
changeset
|
111 ## m M |
cf59d542f33e
replace all TODOs and XXXs with FIXMEs
Jaroslav Hajek <highegg@gmail.com>
parents:
8112
diff
changeset
|
112 ## mm 03 |
cf59d542f33e
replace all TODOs and XXXs with FIXMEs
Jaroslav Hajek <highegg@gmail.com>
parents:
8112
diff
changeset
|
113 ## mmm Mar |
cf59d542f33e
replace all TODOs and XXXs with FIXMEs
Jaroslav Hajek <highegg@gmail.com>
parents:
8112
diff
changeset
|
114 ## d W |
cf59d542f33e
replace all TODOs and XXXs with FIXMEs
Jaroslav Hajek <highegg@gmail.com>
parents:
8112
diff
changeset
|
115 ## dd 05 |
cf59d542f33e
replace all TODOs and XXXs with FIXMEs
Jaroslav Hajek <highegg@gmail.com>
parents:
8112
diff
changeset
|
116 ## ddd Wed |
cf59d542f33e
replace all TODOs and XXXs with FIXMEs
Jaroslav Hajek <highegg@gmail.com>
parents:
8112
diff
changeset
|
117 ## HH 09 |
cf59d542f33e
replace all TODOs and XXXs with FIXMEs
Jaroslav Hajek <highegg@gmail.com>
parents:
8112
diff
changeset
|
118 ## MM 04 |
cf59d542f33e
replace all TODOs and XXXs with FIXMEs
Jaroslav Hajek <highegg@gmail.com>
parents:
8112
diff
changeset
|
119 ## SS 06 |
cf59d542f33e
replace all TODOs and XXXs with FIXMEs
Jaroslav Hajek <highegg@gmail.com>
parents:
8112
diff
changeset
|
120 ## PM AM |
cf59d542f33e
replace all TODOs and XXXs with FIXMEs
Jaroslav Hajek <highegg@gmail.com>
parents:
8112
diff
changeset
|
121 ## FIXME: Vectorize. It is particularly easy since all the codes are |
cf59d542f33e
replace all TODOs and XXXs with FIXMEs
Jaroslav Hajek <highegg@gmail.com>
parents:
8112
diff
changeset
|
122 ## fixed width. Just generate the parts in separate arrays and |
cf59d542f33e
replace all TODOs and XXXs with FIXMEs
Jaroslav Hajek <highegg@gmail.com>
parents:
8112
diff
changeset
|
123 ## concatenate. |
5687 | 124 |
125 ## Author: pkienzle <pkienzle@users.sf.net> | |
126 ## Created: 10 October 2001 (CVS) | |
127 ## Adapted-By: William Poetra Yoga Hadisoeseno <williampoetra@gmail.com> | |
128 | |
129 function retval = datestr (date, f, p) | |
130 | |
131 persistent dateform names_mmmm names_mmm names_m names_dddd names_ddd names_d; | |
132 | |
133 if (isempty (dateform)) | |
134 | |
135 dateform = cell (32, 1); | |
136 dateform{1} = "dd-mmm-yyyy HH:MM:SS"; | |
137 dateform{2} = "dd-mmm-yyyy"; | |
138 dateform{3} = "mm/dd/yy"; | |
139 dateform{4} = "mmm"; | |
140 dateform{5} = "m"; | |
141 dateform{6} = "mm"; | |
142 dateform{7} = "mm/dd"; | |
143 dateform{8} = "dd"; | |
144 dateform{9} = "ddd"; | |
145 dateform{10} = "d"; | |
146 dateform{11} = "yyyy"; | |
147 dateform{12} = "yy"; | |
148 dateform{13} = "mmmyy"; | |
149 dateform{14} = "HH:MM:SS"; | |
150 dateform{15} = "HH:MM:SS PM"; | |
151 dateform{16} = "HH:MM"; | |
152 dateform{17} = "HH:MM PM"; | |
153 dateform{18} = "QQ-YY"; | |
154 dateform{19} = "QQ"; | |
155 dateform{20} = "dd/mm"; | |
156 dateform{21} = "dd/mm/yy"; | |
157 dateform{22} = "mmm.dd.yyyy HH:MM:SS"; | |
158 dateform{23} = "mmm.dd.yyyy"; | |
159 dateform{24} = "mm/dd/yyyy"; | |
160 dateform{25} = "dd/mm/yyyy"; | |
161 dateform{26} = "yy/mm/dd"; | |
162 dateform{27} = "yyyy/mm/dd"; | |
163 dateform{28} = "QQ-YYYY"; | |
164 dateform{29} = "mmmyyyy"; | |
165 dateform{30} = "yyyymmdd"; | |
166 dateform{31} = "yyyymmddTHHMMSS"; | |
167 dateform{32} = "yyyy-mm-dd HH:MM:SS"; | |
168 | |
169 names_m = {"J"; "F"; "M"; "A"; "M"; "J"; "J"; "A"; "S"; "O"; "N"; "D"}; | |
170 | |
171 names_d = {"S"; "M"; "T"; "W"; "T"; "F"; "S"}; | |
172 | |
173 endif | |
174 | |
175 if (nargin < 1 || nargin > 3) | |
6046 | 176 print_usage (); |
5687 | 177 endif |
178 | |
179 if (nargin < 2) | |
180 f = []; | |
181 endif | |
182 if (nargin < 3) | |
183 p = []; | |
184 endif | |
185 | |
186 if (ischar (date)) | |
187 t = date; | |
188 date = cell (1); | |
189 date{1} = t; | |
190 endif | |
191 | |
8506 | 192 ## Guess, so we might be wrong. |
5687 | 193 if (iscell (date) || columns (date) != 6) |
194 v = datevec (date, p); | |
195 else | |
7492 | 196 v = []; |
7493 | 197 if (columns (date) == 6) |
198 ## Make sure that the input really is a datevec. | |
199 maxdatevec = [Inf, 12, 31, 23, 59, 60]; | |
7492 | 200 for i = 1:numel (maxdatevec) |
11149
fe3c3dfc07eb
style fix: break lines before && and ||, not after
John W. Eaton <jwe@octave.org>
parents:
11032
diff
changeset
|
201 if (any (date(:,i) > maxdatevec(i)) |
fe3c3dfc07eb
style fix: break lines before && and ||, not after
John W. Eaton <jwe@octave.org>
parents:
11032
diff
changeset
|
202 || (i != 6 && any (floor (date(:,i)) != date(:,i)))) |
7492 | 203 v = datevec (date, p); |
204 break; | |
205 endif | |
206 endfor | |
207 endif | |
7493 | 208 if (isempty (v)) |
7492 | 209 v = date; |
210 endif | |
5687 | 211 endif |
212 | |
213 for i = 1:(rows (v)) | |
214 | |
215 if (isempty (f) || f == -1) | |
216 if (v(i,4:6) == 0) | |
217 f = 1; | |
10549 | 218 ## elseif (v(i,1:3) == [0, 1, 1]) |
5687 | 219 elseif (v(i,1:3) == [-1, 12, 31]) |
220 f = 16; | |
221 else | |
222 f = 0; | |
223 endif | |
224 endif | |
225 | |
226 if (isnumeric (f)) | |
227 df = dateform{f + 1}; | |
228 else | |
229 df = f; | |
230 endif | |
231 | |
8098
229bd50e6e8f
datestr.m: convert format and use strtftime for most of the actual conversion
John W. Eaton <jwe@octave.org>
parents:
7969
diff
changeset
|
232 df_orig = df; |
11032
c9b0a75b02e8
Make all regexp in Octave compatible with both POSIX and PCRE.
Rik <octave@nomad.inbox5.com>
parents:
10549
diff
changeset
|
233 df = regexprep (df, '[AP]M', "%p"); |
8098
229bd50e6e8f
datestr.m: convert format and use strtftime for most of the actual conversion
John W. Eaton <jwe@octave.org>
parents:
7969
diff
changeset
|
234 if (strcmp (df, df_orig)) |
229bd50e6e8f
datestr.m: convert format and use strtftime for most of the actual conversion
John W. Eaton <jwe@octave.org>
parents:
7969
diff
changeset
|
235 ## PM not set. |
229bd50e6e8f
datestr.m: convert format and use strtftime for most of the actual conversion
John W. Eaton <jwe@octave.org>
parents:
7969
diff
changeset
|
236 df = strrep (df, "HH", "%H"); |
229bd50e6e8f
datestr.m: convert format and use strtftime for most of the actual conversion
John W. Eaton <jwe@octave.org>
parents:
7969
diff
changeset
|
237 else |
229bd50e6e8f
datestr.m: convert format and use strtftime for most of the actual conversion
John W. Eaton <jwe@octave.org>
parents:
7969
diff
changeset
|
238 df = strrep (df, "HH", sprintf ("%2d", v(i,4))); |
11587
c792872f8942
all script files: untabify and strip trailing whitespace
John W. Eaton <jwe@octave.org>
parents:
11523
diff
changeset
|
239 endif |
8098
229bd50e6e8f
datestr.m: convert format and use strtftime for most of the actual conversion
John W. Eaton <jwe@octave.org>
parents:
7969
diff
changeset
|
240 |
11032
c9b0a75b02e8
Make all regexp in Octave compatible with both POSIX and PCRE.
Rik <octave@nomad.inbox5.com>
parents:
10549
diff
changeset
|
241 df = regexprep (df, '[Yy][Yy][Yy][Yy]', "%Y"); |
8098
229bd50e6e8f
datestr.m: convert format and use strtftime for most of the actual conversion
John W. Eaton <jwe@octave.org>
parents:
7969
diff
changeset
|
242 |
11032
c9b0a75b02e8
Make all regexp in Octave compatible with both POSIX and PCRE.
Rik <octave@nomad.inbox5.com>
parents:
10549
diff
changeset
|
243 df = regexprep (df, '[Yy][Yy]', "%y"); |
8098
229bd50e6e8f
datestr.m: convert format and use strtftime for most of the actual conversion
John W. Eaton <jwe@octave.org>
parents:
7969
diff
changeset
|
244 |
11032
c9b0a75b02e8
Make all regexp in Octave compatible with both POSIX and PCRE.
Rik <octave@nomad.inbox5.com>
parents:
10549
diff
changeset
|
245 df = regexprep (df, '[Dd][Dd][Dd][Dd]', "%A"); |
8098
229bd50e6e8f
datestr.m: convert format and use strtftime for most of the actual conversion
John W. Eaton <jwe@octave.org>
parents:
7969
diff
changeset
|
246 |
11032
c9b0a75b02e8
Make all regexp in Octave compatible with both POSIX and PCRE.
Rik <octave@nomad.inbox5.com>
parents:
10549
diff
changeset
|
247 df = regexprep (df, '[Dd][Dd][Dd]', "%a"); |
8098
229bd50e6e8f
datestr.m: convert format and use strtftime for most of the actual conversion
John W. Eaton <jwe@octave.org>
parents:
7969
diff
changeset
|
248 |
11032
c9b0a75b02e8
Make all regexp in Octave compatible with both POSIX and PCRE.
Rik <octave@nomad.inbox5.com>
parents:
10549
diff
changeset
|
249 df = regexprep (df, '[Dd][Dd]', "%d"); |
8098
229bd50e6e8f
datestr.m: convert format and use strtftime for most of the actual conversion
John W. Eaton <jwe@octave.org>
parents:
7969
diff
changeset
|
250 |
11328
f286a874617c
datestr: handle dates before 1970-01-01
John W. Eaton <jwe@octave.org>
parents:
11149
diff
changeset
|
251 wday = weekday (datenum (v(i,1), v(i,2), v(i,3))); |
f286a874617c
datestr: handle dates before 1970-01-01
John W. Eaton <jwe@octave.org>
parents:
11149
diff
changeset
|
252 tmp = names_d{wday}; |
11032
c9b0a75b02e8
Make all regexp in Octave compatible with both POSIX and PCRE.
Rik <octave@nomad.inbox5.com>
parents:
10549
diff
changeset
|
253 df = regexprep (df, '([^%])[Dd]', sprintf ("$1%s", tmp)); |
c9b0a75b02e8
Make all regexp in Octave compatible with both POSIX and PCRE.
Rik <octave@nomad.inbox5.com>
parents:
10549
diff
changeset
|
254 df = regexprep (df, '^[Dd]', sprintf ("%s", tmp)); |
8098
229bd50e6e8f
datestr.m: convert format and use strtftime for most of the actual conversion
John W. Eaton <jwe@octave.org>
parents:
7969
diff
changeset
|
255 |
229bd50e6e8f
datestr.m: convert format and use strtftime for most of the actual conversion
John W. Eaton <jwe@octave.org>
parents:
7969
diff
changeset
|
256 df = strrep (df, "mmmm", "%B"); |
5687 | 257 |
8098
229bd50e6e8f
datestr.m: convert format and use strtftime for most of the actual conversion
John W. Eaton <jwe@octave.org>
parents:
7969
diff
changeset
|
258 df = strrep (df, "mmm", "%b"); |
229bd50e6e8f
datestr.m: convert format and use strtftime for most of the actual conversion
John W. Eaton <jwe@octave.org>
parents:
7969
diff
changeset
|
259 |
229bd50e6e8f
datestr.m: convert format and use strtftime for most of the actual conversion
John W. Eaton <jwe@octave.org>
parents:
7969
diff
changeset
|
260 df = strrep (df, "mm", "%m"); |
229bd50e6e8f
datestr.m: convert format and use strtftime for most of the actual conversion
John W. Eaton <jwe@octave.org>
parents:
7969
diff
changeset
|
261 |
229bd50e6e8f
datestr.m: convert format and use strtftime for most of the actual conversion
John W. Eaton <jwe@octave.org>
parents:
7969
diff
changeset
|
262 tmp = names_m{v(i,2)}; |
11032
c9b0a75b02e8
Make all regexp in Octave compatible with both POSIX and PCRE.
Rik <octave@nomad.inbox5.com>
parents:
10549
diff
changeset
|
263 pos = regexp (df, '[^%]m') + 1; |
8098
229bd50e6e8f
datestr.m: convert format and use strtftime for most of the actual conversion
John W. Eaton <jwe@octave.org>
parents:
7969
diff
changeset
|
264 df(pos) = tmp; |
11032
c9b0a75b02e8
Make all regexp in Octave compatible with both POSIX and PCRE.
Rik <octave@nomad.inbox5.com>
parents:
10549
diff
changeset
|
265 df = regexprep (df, '^m', tmp); |
8098
229bd50e6e8f
datestr.m: convert format and use strtftime for most of the actual conversion
John W. Eaton <jwe@octave.org>
parents:
7969
diff
changeset
|
266 |
229bd50e6e8f
datestr.m: convert format and use strtftime for most of the actual conversion
John W. Eaton <jwe@octave.org>
parents:
7969
diff
changeset
|
267 df = strrep (df, "MM", "%M"); |
229bd50e6e8f
datestr.m: convert format and use strtftime for most of the actual conversion
John W. Eaton <jwe@octave.org>
parents:
7969
diff
changeset
|
268 |
229bd50e6e8f
datestr.m: convert format and use strtftime for most of the actual conversion
John W. Eaton <jwe@octave.org>
parents:
7969
diff
changeset
|
269 df = strrep (df, "SS", "%S"); |
229bd50e6e8f
datestr.m: convert format and use strtftime for most of the actual conversion
John W. Eaton <jwe@octave.org>
parents:
7969
diff
changeset
|
270 |
11032
c9b0a75b02e8
Make all regexp in Octave compatible with both POSIX and PCRE.
Rik <octave@nomad.inbox5.com>
parents:
10549
diff
changeset
|
271 df = regexprep (df, '[Qq][Qq]', sprintf ("Q%d", fix ((v(i,2) + 2) / 3))); |
8098
229bd50e6e8f
datestr.m: convert format and use strtftime for most of the actual conversion
John W. Eaton <jwe@octave.org>
parents:
7969
diff
changeset
|
272 |
229bd50e6e8f
datestr.m: convert format and use strtftime for most of the actual conversion
John W. Eaton <jwe@octave.org>
parents:
7969
diff
changeset
|
273 vi = v(i,:); |
229bd50e6e8f
datestr.m: convert format and use strtftime for most of the actual conversion
John W. Eaton <jwe@octave.org>
parents:
7969
diff
changeset
|
274 tm.year = vi(1) - 1900; |
229bd50e6e8f
datestr.m: convert format and use strtftime for most of the actual conversion
John W. Eaton <jwe@octave.org>
parents:
7969
diff
changeset
|
275 tm.mon = vi(2) - 1; |
229bd50e6e8f
datestr.m: convert format and use strtftime for most of the actual conversion
John W. Eaton <jwe@octave.org>
parents:
7969
diff
changeset
|
276 tm.mday = vi(3); |
229bd50e6e8f
datestr.m: convert format and use strtftime for most of the actual conversion
John W. Eaton <jwe@octave.org>
parents:
7969
diff
changeset
|
277 tm.hour = vi(4); |
229bd50e6e8f
datestr.m: convert format and use strtftime for most of the actual conversion
John W. Eaton <jwe@octave.org>
parents:
7969
diff
changeset
|
278 tm.min = vi(5); |
229bd50e6e8f
datestr.m: convert format and use strtftime for most of the actual conversion
John W. Eaton <jwe@octave.org>
parents:
7969
diff
changeset
|
279 sec = vi(6); |
229bd50e6e8f
datestr.m: convert format and use strtftime for most of the actual conversion
John W. Eaton <jwe@octave.org>
parents:
7969
diff
changeset
|
280 tm.sec = fix (sec); |
229bd50e6e8f
datestr.m: convert format and use strtftime for most of the actual conversion
John W. Eaton <jwe@octave.org>
parents:
7969
diff
changeset
|
281 tm.usec = fix (rem (sec, 1) * 1e6); |
11328
f286a874617c
datestr: handle dates before 1970-01-01
John W. Eaton <jwe@octave.org>
parents:
11149
diff
changeset
|
282 tm.wday = wday - 1; |
f286a874617c
datestr: handle dates before 1970-01-01
John W. Eaton <jwe@octave.org>
parents:
11149
diff
changeset
|
283 ## FIXME -- Do we need YDAY and DST? How should they be computed? |
f286a874617c
datestr: handle dates before 1970-01-01
John W. Eaton <jwe@octave.org>
parents:
11149
diff
changeset
|
284 ## We don't want to use "localtime (mktime (tm))" because that |
f286a874617c
datestr: handle dates before 1970-01-01
John W. Eaton <jwe@octave.org>
parents:
11149
diff
changeset
|
285 ## doesn't correctly handle dates before 1970-01-01 on some systems. |
f286a874617c
datestr: handle dates before 1970-01-01
John W. Eaton <jwe@octave.org>
parents:
11149
diff
changeset
|
286 ## tm.yday = ?; |
f286a874617c
datestr: handle dates before 1970-01-01
John W. Eaton <jwe@octave.org>
parents:
11149
diff
changeset
|
287 ## tm.isdst = ?; |
f286a874617c
datestr: handle dates before 1970-01-01
John W. Eaton <jwe@octave.org>
parents:
11149
diff
changeset
|
288 |
f286a874617c
datestr: handle dates before 1970-01-01
John W. Eaton <jwe@octave.org>
parents:
11149
diff
changeset
|
289 str = strftime (df, tm); |
5687 | 290 |
291 if (i == 1) | |
292 retval = str; | |
293 else | |
294 retval = [retval; str]; | |
295 endif | |
296 | |
297 endfor | |
298 | |
299 endfunction | |
300 | |
301 # simple tests | |
302 %!shared testtime | |
303 %! testtime = [2005.0000, 12.0000, 18.0000, 2.0000, 33.0000, 17.3822]; | |
304 %!assert(datestr(testtime,0),"18-Dec-2005 02:33:17"); | |
305 %!assert(datestr(testtime,1),"18-Dec-2005"); | |
306 %!assert(datestr(testtime,2),"12/18/05"); | |
307 %!assert(datestr(testtime,3),"Dec"); | |
308 %!assert(datestr(testtime,4),"D"); | |
309 %!assert(datestr(testtime,5),"12"); | |
310 %!assert(datestr(testtime,6),"12/18"); | |
311 %!assert(datestr(testtime,7),"18"); | |
312 %!assert(datestr(testtime,8),"Sun"); | |
313 %!assert(datestr(testtime,9),"S"); | |
314 %!assert(datestr(testtime,10),"2005"); | |
315 %!assert(datestr(testtime,11),"05"); | |
316 %!assert(datestr(testtime,12),"Dec05"); | |
317 %!assert(datestr(testtime,13),"02:33:17"); | |
8098
229bd50e6e8f
datestr.m: convert format and use strtftime for most of the actual conversion
John W. Eaton <jwe@octave.org>
parents:
7969
diff
changeset
|
318 %!assert(datestr(testtime,14)," 2:33:17 AM"); |
5687 | 319 %!assert(datestr(testtime,15),"02:33"); |
8098
229bd50e6e8f
datestr.m: convert format and use strtftime for most of the actual conversion
John W. Eaton <jwe@octave.org>
parents:
7969
diff
changeset
|
320 %!assert(datestr(testtime,16)," 2:33 AM"); |
5687 | 321 %!assert(datestr(testtime,17),"Q4-05"); |
322 %!assert(datestr(testtime,18),"Q4"); | |
323 %!assert(datestr(testtime,19),"18/12"); | |
324 %!assert(datestr(testtime,20),"18/12/05"); | |
325 %!assert(datestr(testtime,21),"Dec.18.2005 02:33:17"); | |
326 %!assert(datestr(testtime,22),"Dec.18.2005"); | |
327 %!assert(datestr(testtime,23),"12/18/2005"); | |
328 %!assert(datestr(testtime,24),"18/12/2005"); | |
329 %!assert(datestr(testtime,25),"05/12/18"); | |
330 %!assert(datestr(testtime,26),"2005/12/18"); | |
331 %!assert(datestr(testtime,27),"Q4-2005"); | |
332 %!assert(datestr(testtime,28),"Dec2005"); | |
333 %!assert(datestr(testtime,29),"20051218"); | |
334 %!assert(datestr(testtime,30),"20051218T023317"); | |
335 %!assert(datestr(testtime,31),"2005-12-18 02:33:17"); | |
8098
229bd50e6e8f
datestr.m: convert format and use strtftime for most of the actual conversion
John W. Eaton <jwe@octave.org>
parents:
7969
diff
changeset
|
336 %!assert(datestr(testtime+[0 0 3 0 0 0],"dddd"),"Wednesday") |
7492 | 337 ## avoid the bug where someone happens to give a vector of datenums that |
338 ## happens to be 6 wide | |
339 %!assert(datestr(733452.933:733457.933), ["14-Feb-2008 22:23:31";"15-Feb-2008 22:23:31";"16-Feb-2008 22:23:31";"17-Feb-2008 22:23:31";"18-Feb-2008 22:23:31";"19-Feb-2008 22:23:31"]) | |
11329
6b073da9d7fc
ChangeLog fix and new datestr test omitted from previous change
John W. Eaton <jwe@octave.org>
parents:
11328
diff
changeset
|
340 %!assert (datestr ([1944, 6, 6, 6, 30, 0], 0), "06-Jun-1944 06:30:00"); |
6b073da9d7fc
ChangeLog fix and new datestr test omitted from previous change
John W. Eaton <jwe@octave.org>
parents:
11328
diff
changeset
|
341 |
5687 | 342 # demos |
343 %!demo | |
344 %! datestr (now ()) | |
345 %!demo | |
346 %! datestr (rem (now (), 1)) | |
347 %!demo | |
348 %! datestr (floor (now ())) |