Mercurial > octave
annotate scripts/time/datestr.m @ 22489:93ea313301f9
test: Add bug ids (<#####>) to BIST tests.
* bsxfun.cc, cellfun.cc, conv2.cc, data.cc, ellipj.cc, error.cc, file-io.cc,
graphics.cc, hash.cc, mappers.cc, max.cc, rand.cc, regexp.cc, symtab.cc,
chol.cc, gzip.cc, symbfact.cc, ov-cx-diag.cc, ov-fcn-handle.cc, ov-java.cc,
Sparse.cc, accumarray.m, bitset.m, fieldnames.m, inputParser.m, interp2.m,
interpft.m, num2str.m, postpad.m, prepad.m, rat.m, rectint.m, image.m,
imread.m, imwrite.m, importdata.m, strread.m, textread.m, orderfields.m, qp.m,
axis.m, legend.m, hist.m, residue.m, setdiff.m, fftshift.m, ifftshift.m,
nthroot.m, magic.m, median.m, quantile.m, base2dec.m, strsplit.m, datestr.m,
datevec.m:
test: Add bug ids (<#####>) to BIST tests.
author | Rik <rik@octave.org> |
---|---|
date | Wed, 14 Sep 2016 16:05:16 -0700 |
parents | bac0d6f07a3e |
children | 3a2b891d0b33 e9a0469dedd9 |
rev | line source |
---|---|
22323
bac0d6f07a3e
maint: Update copyright notices for 2016.
John W. Eaton <jwe@octave.org>
parents:
21793
diff
changeset
|
1 ## Copyright (C) 2000-2016 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 -*- | |
20852
516bb87ea72e
2015 Code Sprint: remove class of function from docstring for all m-files.
Rik <rik@octave.org>
parents:
20162
diff
changeset
|
20 ## @deftypefn {} {@var{str} =} datestr (@var{date}) |
516bb87ea72e
2015 Code Sprint: remove class of function from docstring for all m-files.
Rik <rik@octave.org>
parents:
20162
diff
changeset
|
21 ## @deftypefnx {} {@var{str} =} datestr (@var{date}, @var{f}) |
516bb87ea72e
2015 Code Sprint: remove class of function from docstring for all m-files.
Rik <rik@octave.org>
parents:
20162
diff
changeset
|
22 ## @deftypefnx {} {@var{str} =} datestr (@var{date}, @var{f}, @var{p}) |
5687 | 23 ## Format the given date/time according to the format @code{f} and return |
20162
2645f9ef8c88
doc: Update more docstrings to have one sentence summary as first line.
Rik <rik@octave.org>
parents:
19865
diff
changeset
|
24 ## the result in @var{str}. |
2645f9ef8c88
doc: Update more docstrings to have one sentence summary as first line.
Rik <rik@octave.org>
parents:
19865
diff
changeset
|
25 ## |
2645f9ef8c88
doc: Update more docstrings to have one sentence summary as first line.
Rik <rik@octave.org>
parents:
19865
diff
changeset
|
26 ## @var{date} is a serial date number (see @code{datenum}) or a date vector |
2645f9ef8c88
doc: Update more docstrings to have one sentence summary as first line.
Rik <rik@octave.org>
parents:
19865
diff
changeset
|
27 ## (see @code{datevec}). The value of @var{date} may also be a string or cell |
2645f9ef8c88
doc: Update more docstrings to have one sentence summary as first line.
Rik <rik@octave.org>
parents:
19865
diff
changeset
|
28 ## array of strings. |
5687 | 29 ## |
20162
2645f9ef8c88
doc: Update more docstrings to have one sentence summary as first line.
Rik <rik@octave.org>
parents:
19865
diff
changeset
|
30 ## @var{f} can be an integer which corresponds to one of the codes in the table |
2645f9ef8c88
doc: Update more docstrings to have one sentence summary as first line.
Rik <rik@octave.org>
parents:
19865
diff
changeset
|
31 ## below, or a date format string. |
5687 | 32 ## |
20162
2645f9ef8c88
doc: Update more docstrings to have one sentence summary as first line.
Rik <rik@octave.org>
parents:
19865
diff
changeset
|
33 ## @var{p} is the year at the start of the century in which two-digit years are |
2645f9ef8c88
doc: Update more docstrings to have one sentence summary as first line.
Rik <rik@octave.org>
parents:
19865
diff
changeset
|
34 ## to be interpreted in. If not specified, it defaults to the current year |
2645f9ef8c88
doc: Update more docstrings to have one sentence summary as first line.
Rik <rik@octave.org>
parents:
19865
diff
changeset
|
35 ## minus 50. |
5687 | 36 ## |
37 ## For example, the date 730736.65149 (2000-09-07 15:38:09.0934) would be | |
38 ## formatted as follows: | |
39 ## | |
40 ## @multitable @columnfractions 0.1 0.45 0.35 | |
41 ## @headitem Code @tab Format @tab Example | |
19418
06931d787450
doc: Align columns in @multitable in datestr.m docstring.
Rik <rik@octave.org>
parents:
19414
diff
changeset
|
42 ## @item 0 @tab dd-mmm-yyyy HH:MM:SS @tab 07-Sep-2000 15:38:09 |
06931d787450
doc: Align columns in @multitable in datestr.m docstring.
Rik <rik@octave.org>
parents:
19414
diff
changeset
|
43 ## @item 1 @tab dd-mmm-yyyy @tab 07-Sep-2000 |
06931d787450
doc: Align columns in @multitable in datestr.m docstring.
Rik <rik@octave.org>
parents:
19414
diff
changeset
|
44 ## @item 2 @tab mm/dd/yy @tab 09/07/00 |
06931d787450
doc: Align columns in @multitable in datestr.m docstring.
Rik <rik@octave.org>
parents:
19414
diff
changeset
|
45 ## @item 3 @tab mmm @tab Sep |
06931d787450
doc: Align columns in @multitable in datestr.m docstring.
Rik <rik@octave.org>
parents:
19414
diff
changeset
|
46 ## @item 4 @tab m @tab S |
06931d787450
doc: Align columns in @multitable in datestr.m docstring.
Rik <rik@octave.org>
parents:
19414
diff
changeset
|
47 ## @item 5 @tab mm @tab 09 |
06931d787450
doc: Align columns in @multitable in datestr.m docstring.
Rik <rik@octave.org>
parents:
19414
diff
changeset
|
48 ## @item 6 @tab mm/dd @tab 09/07 |
06931d787450
doc: Align columns in @multitable in datestr.m docstring.
Rik <rik@octave.org>
parents:
19414
diff
changeset
|
49 ## @item 7 @tab dd @tab 07 |
06931d787450
doc: Align columns in @multitable in datestr.m docstring.
Rik <rik@octave.org>
parents:
19414
diff
changeset
|
50 ## @item 8 @tab ddd @tab Thu |
06931d787450
doc: Align columns in @multitable in datestr.m docstring.
Rik <rik@octave.org>
parents:
19414
diff
changeset
|
51 ## @item 9 @tab d @tab T |
5687 | 52 ## @item 10 @tab yyyy @tab 2000 |
53 ## @item 11 @tab yy @tab 00 | |
54 ## @item 12 @tab mmmyy @tab Sep00 | |
55 ## @item 13 @tab HH:MM:SS @tab 15:38:09 | |
21793
50f49dcae277
datestr.m: Fix Matlab incompatibility for format #16 (bug #48071).
Rik <rik@octave.org>
parents:
21562
diff
changeset
|
56 ## @item 14 @tab HH:MM:SS PM @tab 3:38:09 PM |
5687 | 57 ## @item 15 @tab HH:MM @tab 15:38 |
21793
50f49dcae277
datestr.m: Fix Matlab incompatibility for format #16 (bug #48071).
Rik <rik@octave.org>
parents:
21562
diff
changeset
|
58 ## @item 16 @tab HH:MM PM @tab 3:38 PM |
5687 | 59 ## @item 17 @tab QQ-YY @tab Q3-00 |
60 ## @item 18 @tab QQ @tab Q3 | |
14723
3fd6f637c573
doc: Correct errors and improve docstring for datestr.m
Rik <octave@nomad.inbox5.com>
parents:
14237
diff
changeset
|
61 ## @item 19 @tab dd/mm @tab 07/09 |
3fd6f637c573
doc: Correct errors and improve docstring for datestr.m
Rik <octave@nomad.inbox5.com>
parents:
14237
diff
changeset
|
62 ## @item 20 @tab dd/mm/yy @tab 07/09/00 |
3fd6f637c573
doc: Correct errors and improve docstring for datestr.m
Rik <octave@nomad.inbox5.com>
parents:
14237
diff
changeset
|
63 ## @item 21 @tab mmm.dd,yyyy HH:MM:SS @tab Sep.07,2000 15:38:08 |
3fd6f637c573
doc: Correct errors and improve docstring for datestr.m
Rik <octave@nomad.inbox5.com>
parents:
14237
diff
changeset
|
64 ## @item 22 @tab mmm.dd,yyyy @tab Sep.07,2000 |
3fd6f637c573
doc: Correct errors and improve docstring for datestr.m
Rik <octave@nomad.inbox5.com>
parents:
14237
diff
changeset
|
65 ## @item 23 @tab mm/dd/yyyy @tab 09/07/2000 |
3fd6f637c573
doc: Correct errors and improve docstring for datestr.m
Rik <octave@nomad.inbox5.com>
parents:
14237
diff
changeset
|
66 ## @item 24 @tab dd/mm/yyyy @tab 07/09/2000 |
3fd6f637c573
doc: Correct errors and improve docstring for datestr.m
Rik <octave@nomad.inbox5.com>
parents:
14237
diff
changeset
|
67 ## @item 25 @tab yy/mm/dd @tab 00/09/07 |
3fd6f637c573
doc: Correct errors and improve docstring for datestr.m
Rik <octave@nomad.inbox5.com>
parents:
14237
diff
changeset
|
68 ## @item 26 @tab yyyy/mm/dd @tab 2000/09/07 |
3fd6f637c573
doc: Correct errors and improve docstring for datestr.m
Rik <octave@nomad.inbox5.com>
parents:
14237
diff
changeset
|
69 ## @item 27 @tab QQ-YYYY @tab Q3-2000 |
3fd6f637c573
doc: Correct errors and improve docstring for datestr.m
Rik <octave@nomad.inbox5.com>
parents:
14237
diff
changeset
|
70 ## @item 28 @tab mmmyyyy @tab Sep2000 |
3fd6f637c573
doc: Correct errors and improve docstring for datestr.m
Rik <octave@nomad.inbox5.com>
parents:
14237
diff
changeset
|
71 ## @item 29 @tab yyyy-mm-dd @tab 2000-09-07 |
3fd6f637c573
doc: Correct errors and improve docstring for datestr.m
Rik <octave@nomad.inbox5.com>
parents:
14237
diff
changeset
|
72 ## @item 30 @tab yyyymmddTHHMMSS @tab 20000907T153808 |
3fd6f637c573
doc: Correct errors and improve docstring for datestr.m
Rik <octave@nomad.inbox5.com>
parents:
14237
diff
changeset
|
73 ## @item 31 @tab yyyy-mm-dd HH:MM:SS @tab 2000-09-07 15:38:08 |
5687 | 74 ## @end multitable |
75 ## | |
9079
4d610aba7347
Cleanup documentation for system.texi, package.texi
Rik <rdrider0-list@yahoo.com>
parents:
9051
diff
changeset
|
76 ## If @var{f} is a format string, the following symbols are recognized: |
5687 | 77 ## |
78 ## @multitable @columnfractions 0.1 0.7 0.2 | |
79 ## @headitem Symbol @tab Meaning @tab Example | |
80 ## @item yyyy @tab Full year @tab 2005 | |
14723
3fd6f637c573
doc: Correct errors and improve docstring for datestr.m
Rik <octave@nomad.inbox5.com>
parents:
14237
diff
changeset
|
81 ## @item yy @tab Two-digit year @tab 05 |
5687 | 82 ## @item mmmm @tab Full month name @tab December |
83 ## @item mmm @tab Abbreviated month name @tab Dec | |
84 ## @item mm @tab Numeric month number (padded with zeros) @tab 01, 08, 12 | |
85 ## @item m @tab First letter of month name (capitalized) @tab D | |
86 ## @item dddd @tab Full weekday name @tab Sunday | |
87 ## @item ddd @tab Abbreviated weekday name @tab Sun | |
88 ## @item dd @tab Numeric day of month (padded with zeros) @tab 11 | |
89 ## @item d @tab First letter of weekday name (capitalized) @tab S | |
21793
50f49dcae277
datestr.m: Fix Matlab incompatibility for format #16 (bug #48071).
Rik <rik@octave.org>
parents:
21562
diff
changeset
|
90 ## @item HH @tab Hour of day, padded with zeros, @tab 09:00 |
50f49dcae277
datestr.m: Fix Matlab incompatibility for format #16 (bug #48071).
Rik <rik@octave.org>
parents:
21562
diff
changeset
|
91 ## @item @tab or padded with spaces if PM is set @tab 9:00 AM |
5687 | 92 ## @item MM @tab Minute of hour (padded with zeros) @tab 10:05 |
93 ## @item SS @tab Second of minute (padded with zeros) @tab 10:05:03 | |
13848
40e32fe44aaa
Ugrade time functions to accept millisecond format string FFF (Bug #34586)
Rik <octave@nomad.inbox5.com>
parents:
11587
diff
changeset
|
94 ## @item FFF @tab Milliseconds of second (padded with zeros) @tab 10:05:03.012 |
40e32fe44aaa
Ugrade time functions to accept millisecond format string FFF (Bug #34586)
Rik <octave@nomad.inbox5.com>
parents:
11587
diff
changeset
|
95 ## @item AM @tab Use 12-hour time format @tab 11:30 AM |
5687 | 96 ## @item PM @tab Use 12-hour time format @tab 11:30 PM |
97 ## @end multitable | |
98 ## | |
20162
2645f9ef8c88
doc: Update more docstrings to have one sentence summary as first line.
Rik <rik@octave.org>
parents:
19865
diff
changeset
|
99 ## If @var{f} is not specified or is @code{-1}, then use 0, 1 or 16, depending |
2645f9ef8c88
doc: Update more docstrings to have one sentence summary as first line.
Rik <rik@octave.org>
parents:
19865
diff
changeset
|
100 ## on whether the date portion or the time portion of @var{date} is empty. |
5687 | 101 ## |
102 ## If @var{p} is nor specified, it defaults to the current year minus 50. | |
103 ## | |
13848
40e32fe44aaa
Ugrade time functions to accept millisecond format string FFF (Bug #34586)
Rik <octave@nomad.inbox5.com>
parents:
11587
diff
changeset
|
104 ## If a matrix or cell array of dates is given, a column vector of date strings |
40e32fe44aaa
Ugrade time functions to accept millisecond format string FFF (Bug #34586)
Rik <octave@nomad.inbox5.com>
parents:
11587
diff
changeset
|
105 ## is returned. |
5687 | 106 ## |
13856
d490ca8ab1a5
Modernize function implementations and docstrings in scripts/time.
Rik <octave@nomad.inbox5.com>
parents:
13848
diff
changeset
|
107 ## @seealso{datenum, datevec, date, now, clock} |
5687 | 108 ## @end deftypefn |
109 | |
8202
cf59d542f33e
replace all TODOs and XXXs with FIXMEs
Jaroslav Hajek <highegg@gmail.com>
parents:
8112
diff
changeset
|
110 ## FIXME: parse arbitrary code strings. |
21562
6c2fd62db1f7
maint: Eliminate accidental double spaces in code.
Rik <rik@octave.org>
parents:
20852
diff
changeset
|
111 ## e.g., for Wednesday 2001-03-05 09:04:06 AM, use |
8202
cf59d542f33e
replace all TODOs and XXXs with FIXMEs
Jaroslav Hajek <highegg@gmail.com>
parents:
8112
diff
changeset
|
112 ## yy 01 |
cf59d542f33e
replace all TODOs and XXXs with FIXMEs
Jaroslav Hajek <highegg@gmail.com>
parents:
8112
diff
changeset
|
113 ## yyyy 2001 |
cf59d542f33e
replace all TODOs and XXXs with FIXMEs
Jaroslav Hajek <highegg@gmail.com>
parents:
8112
diff
changeset
|
114 ## m M |
cf59d542f33e
replace all TODOs and XXXs with FIXMEs
Jaroslav Hajek <highegg@gmail.com>
parents:
8112
diff
changeset
|
115 ## mm 03 |
cf59d542f33e
replace all TODOs and XXXs with FIXMEs
Jaroslav Hajek <highegg@gmail.com>
parents:
8112
diff
changeset
|
116 ## mmm Mar |
cf59d542f33e
replace all TODOs and XXXs with FIXMEs
Jaroslav Hajek <highegg@gmail.com>
parents:
8112
diff
changeset
|
117 ## d W |
cf59d542f33e
replace all TODOs and XXXs with FIXMEs
Jaroslav Hajek <highegg@gmail.com>
parents:
8112
diff
changeset
|
118 ## dd 05 |
cf59d542f33e
replace all TODOs and XXXs with FIXMEs
Jaroslav Hajek <highegg@gmail.com>
parents:
8112
diff
changeset
|
119 ## ddd Wed |
cf59d542f33e
replace all TODOs and XXXs with FIXMEs
Jaroslav Hajek <highegg@gmail.com>
parents:
8112
diff
changeset
|
120 ## HH 09 |
cf59d542f33e
replace all TODOs and XXXs with FIXMEs
Jaroslav Hajek <highegg@gmail.com>
parents:
8112
diff
changeset
|
121 ## MM 04 |
cf59d542f33e
replace all TODOs and XXXs with FIXMEs
Jaroslav Hajek <highegg@gmail.com>
parents:
8112
diff
changeset
|
122 ## SS 06 |
cf59d542f33e
replace all TODOs and XXXs with FIXMEs
Jaroslav Hajek <highegg@gmail.com>
parents:
8112
diff
changeset
|
123 ## PM AM |
cf59d542f33e
replace all TODOs and XXXs with FIXMEs
Jaroslav Hajek <highegg@gmail.com>
parents:
8112
diff
changeset
|
124 ## 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
|
125 ## 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
|
126 ## concatenate. |
5687 | 127 |
128 ## Author: pkienzle <pkienzle@users.sf.net> | |
129 ## Created: 10 October 2001 (CVS) | |
130 ## Adapted-By: William Poetra Yoga Hadisoeseno <williampoetra@gmail.com> | |
131 | |
13848
40e32fe44aaa
Ugrade time functions to accept millisecond format string FFF (Bug #34586)
Rik <octave@nomad.inbox5.com>
parents:
11587
diff
changeset
|
132 function retval = datestr (date, f = [], p = []) |
5687 | 133 |
13848
40e32fe44aaa
Ugrade time functions to accept millisecond format string FFF (Bug #34586)
Rik <octave@nomad.inbox5.com>
parents:
11587
diff
changeset
|
134 persistent dateform names_mmmm names_m names_d; |
5687 | 135 |
136 if (isempty (dateform)) | |
137 dateform = cell (32, 1); | |
13848
40e32fe44aaa
Ugrade time functions to accept millisecond format string FFF (Bug #34586)
Rik <octave@nomad.inbox5.com>
parents:
11587
diff
changeset
|
138 dateform{1} = "dd-mmm-yyyy HH:MM:SS"; |
40e32fe44aaa
Ugrade time functions to accept millisecond format string FFF (Bug #34586)
Rik <octave@nomad.inbox5.com>
parents:
11587
diff
changeset
|
139 dateform{2} = "dd-mmm-yyyy"; |
40e32fe44aaa
Ugrade time functions to accept millisecond format string FFF (Bug #34586)
Rik <octave@nomad.inbox5.com>
parents:
11587
diff
changeset
|
140 dateform{3} = "mm/dd/yy"; |
40e32fe44aaa
Ugrade time functions to accept millisecond format string FFF (Bug #34586)
Rik <octave@nomad.inbox5.com>
parents:
11587
diff
changeset
|
141 dateform{4} = "mmm"; |
40e32fe44aaa
Ugrade time functions to accept millisecond format string FFF (Bug #34586)
Rik <octave@nomad.inbox5.com>
parents:
11587
diff
changeset
|
142 dateform{5} = "m"; |
40e32fe44aaa
Ugrade time functions to accept millisecond format string FFF (Bug #34586)
Rik <octave@nomad.inbox5.com>
parents:
11587
diff
changeset
|
143 dateform{6} = "mm"; |
40e32fe44aaa
Ugrade time functions to accept millisecond format string FFF (Bug #34586)
Rik <octave@nomad.inbox5.com>
parents:
11587
diff
changeset
|
144 dateform{7} = "mm/dd"; |
40e32fe44aaa
Ugrade time functions to accept millisecond format string FFF (Bug #34586)
Rik <octave@nomad.inbox5.com>
parents:
11587
diff
changeset
|
145 dateform{8} = "dd"; |
40e32fe44aaa
Ugrade time functions to accept millisecond format string FFF (Bug #34586)
Rik <octave@nomad.inbox5.com>
parents:
11587
diff
changeset
|
146 dateform{9} = "ddd"; |
5687 | 147 dateform{10} = "d"; |
148 dateform{11} = "yyyy"; | |
149 dateform{12} = "yy"; | |
150 dateform{13} = "mmmyy"; | |
151 dateform{14} = "HH:MM:SS"; | |
152 dateform{15} = "HH:MM:SS PM"; | |
153 dateform{16} = "HH:MM"; | |
154 dateform{17} = "HH:MM PM"; | |
155 dateform{18} = "QQ-YY"; | |
156 dateform{19} = "QQ"; | |
157 dateform{20} = "dd/mm"; | |
158 dateform{21} = "dd/mm/yy"; | |
13848
40e32fe44aaa
Ugrade time functions to accept millisecond format string FFF (Bug #34586)
Rik <octave@nomad.inbox5.com>
parents:
11587
diff
changeset
|
159 dateform{22} = "mmm.dd,yyyy HH:MM:SS"; |
40e32fe44aaa
Ugrade time functions to accept millisecond format string FFF (Bug #34586)
Rik <octave@nomad.inbox5.com>
parents:
11587
diff
changeset
|
160 dateform{23} = "mmm.dd,yyyy"; |
5687 | 161 dateform{24} = "mm/dd/yyyy"; |
162 dateform{25} = "dd/mm/yyyy"; | |
163 dateform{26} = "yy/mm/dd"; | |
164 dateform{27} = "yyyy/mm/dd"; | |
165 dateform{28} = "QQ-YYYY"; | |
166 dateform{29} = "mmmyyyy"; | |
13848
40e32fe44aaa
Ugrade time functions to accept millisecond format string FFF (Bug #34586)
Rik <octave@nomad.inbox5.com>
parents:
11587
diff
changeset
|
167 dateform{30} = "yyyy-mm-dd"; |
5687 | 168 dateform{31} = "yyyymmddTHHMMSS"; |
169 dateform{32} = "yyyy-mm-dd HH:MM:SS"; | |
170 | |
13848
40e32fe44aaa
Ugrade time functions to accept millisecond format string FFF (Bug #34586)
Rik <octave@nomad.inbox5.com>
parents:
11587
diff
changeset
|
171 names_m = {"J", "F", "M", "A", "M", "J", "J", "A", "S", "O", "N", "D"}; |
40e32fe44aaa
Ugrade time functions to accept millisecond format string FFF (Bug #34586)
Rik <octave@nomad.inbox5.com>
parents:
11587
diff
changeset
|
172 names_d = {"S", "M", "T", "W", "T", "F", "S"}; |
5687 | 173 endif |
174 | |
175 if (nargin < 1 || nargin > 3) | |
6046 | 176 print_usage (); |
5687 | 177 endif |
178 | |
13848
40e32fe44aaa
Ugrade time functions to accept millisecond format string FFF (Bug #34586)
Rik <octave@nomad.inbox5.com>
parents:
11587
diff
changeset
|
179 ## Guess input type. We might be wrong. |
40e32fe44aaa
Ugrade time functions to accept millisecond format string FFF (Bug #34586)
Rik <octave@nomad.inbox5.com>
parents:
11587
diff
changeset
|
180 if (ischar (date) || iscellstr (date) || columns (date) != 6) |
5687 | 181 v = datevec (date, p); |
182 else | |
7492 | 183 v = []; |
7493 | 184 if (columns (date) == 6) |
185 ## Make sure that the input really is a datevec. | |
186 maxdatevec = [Inf, 12, 31, 23, 59, 60]; | |
19865
e9f89866074c
maint: Cleanup some .m files to follow Octave coding conventions.
John W. Eaton <jwe@octave.org>
parents:
19833
diff
changeset
|
187 if (any (max (date, 1) > maxdatevec) |
e9f89866074c
maint: Cleanup some .m files to follow Octave coding conventions.
John W. Eaton <jwe@octave.org>
parents:
19833
diff
changeset
|
188 || any (date(:,1:5) != floor (date(:,1:5)))) |
13848
40e32fe44aaa
Ugrade time functions to accept millisecond format string FFF (Bug #34586)
Rik <octave@nomad.inbox5.com>
parents:
11587
diff
changeset
|
189 v = datevec (date, p); |
40e32fe44aaa
Ugrade time functions to accept millisecond format string FFF (Bug #34586)
Rik <octave@nomad.inbox5.com>
parents:
11587
diff
changeset
|
190 endif |
7492 | 191 endif |
7493 | 192 if (isempty (v)) |
7492 | 193 v = date; |
194 endif | |
5687 | 195 endif |
196 | |
19414
a2a79462b7b8
datestr.m: Clean up use of []/"" and single/double quotes (bug #43841).
Rik <rik@octave.org>
parents:
18857
diff
changeset
|
197 retval = ""; |
13848
40e32fe44aaa
Ugrade time functions to accept millisecond format string FFF (Bug #34586)
Rik <octave@nomad.inbox5.com>
parents:
11587
diff
changeset
|
198 for i = 1 : rows (v) |
5687 | 199 |
13848
40e32fe44aaa
Ugrade time functions to accept millisecond format string FFF (Bug #34586)
Rik <octave@nomad.inbox5.com>
parents:
11587
diff
changeset
|
200 if (isempty (f)) |
5687 | 201 if (v(i,4:6) == 0) |
202 f = 1; | |
203 elseif (v(i,1:3) == [-1, 12, 31]) | |
204 f = 16; | |
205 else | |
206 f = 0; | |
207 endif | |
208 endif | |
209 | |
210 if (isnumeric (f)) | |
211 df = dateform{f + 1}; | |
212 else | |
213 df = f; | |
214 endif | |
215 | |
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
|
216 df_orig = df; |
19414
a2a79462b7b8
datestr.m: Clean up use of []/"" and single/double quotes (bug #43841).
Rik <rik@octave.org>
parents:
18857
diff
changeset
|
217 df = strrep (df, "AM", "%p"); |
a2a79462b7b8
datestr.m: Clean up use of []/"" and single/double quotes (bug #43841).
Rik <rik@octave.org>
parents:
18857
diff
changeset
|
218 df = strrep (df, "PM", "%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
|
219 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
|
220 ## 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
|
221 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
|
222 else |
21793
50f49dcae277
datestr.m: Fix Matlab incompatibility for format #16 (bug #48071).
Rik <rik@octave.org>
parents:
21562
diff
changeset
|
223 hr = mod (v(i,4), 12); |
50f49dcae277
datestr.m: Fix Matlab incompatibility for format #16 (bug #48071).
Rik <rik@octave.org>
parents:
21562
diff
changeset
|
224 if (hr == 0) |
50f49dcae277
datestr.m: Fix Matlab incompatibility for format #16 (bug #48071).
Rik <rik@octave.org>
parents:
21562
diff
changeset
|
225 hr = 12; |
50f49dcae277
datestr.m: Fix Matlab incompatibility for format #16 (bug #48071).
Rik <rik@octave.org>
parents:
21562
diff
changeset
|
226 endif |
50f49dcae277
datestr.m: Fix Matlab incompatibility for format #16 (bug #48071).
Rik <rik@octave.org>
parents:
21562
diff
changeset
|
227 df = strrep (df, "HH", sprintf ("%2d", hr)); |
11587
c792872f8942
all script files: untabify and strip trailing whitespace
John W. Eaton <jwe@octave.org>
parents:
11523
diff
changeset
|
228 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
|
229 |
19414
a2a79462b7b8
datestr.m: Clean up use of []/"" and single/double quotes (bug #43841).
Rik <rik@octave.org>
parents:
18857
diff
changeset
|
230 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
|
231 |
19414
a2a79462b7b8
datestr.m: Clean up use of []/"" and single/double quotes (bug #43841).
Rik <rik@octave.org>
parents:
18857
diff
changeset
|
232 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
|
233 |
19414
a2a79462b7b8
datestr.m: Clean up use of []/"" and single/double quotes (bug #43841).
Rik <rik@octave.org>
parents:
18857
diff
changeset
|
234 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
|
235 |
19414
a2a79462b7b8
datestr.m: Clean up use of []/"" and single/double quotes (bug #43841).
Rik <rik@octave.org>
parents:
18857
diff
changeset
|
236 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
|
237 |
19414
a2a79462b7b8
datestr.m: Clean up use of []/"" and single/double quotes (bug #43841).
Rik <rik@octave.org>
parents:
18857
diff
changeset
|
238 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
|
239 |
11328
f286a874617c
datestr: handle dates before 1970-01-01
John W. Eaton <jwe@octave.org>
parents:
11149
diff
changeset
|
240 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
|
241 tmp = names_d{wday}; |
19414
a2a79462b7b8
datestr.m: Clean up use of []/"" and single/double quotes (bug #43841).
Rik <rik@octave.org>
parents:
18857
diff
changeset
|
242 df = regexprep (df, "([^%])[Dd]", sprintf ("$1%s", tmp)); |
a2a79462b7b8
datestr.m: Clean up use of []/"" and single/double quotes (bug #43841).
Rik <rik@octave.org>
parents:
18857
diff
changeset
|
243 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
|
244 |
229bd50e6e8f
datestr.m: convert format and use strtftime for most of the actual conversion
John W. Eaton <jwe@octave.org>
parents:
7969
diff
changeset
|
245 df = strrep (df, "mmmm", "%B"); |
5687 | 246 |
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
|
247 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
|
248 |
229bd50e6e8f
datestr.m: convert format and use strtftime for most of the actual conversion
John W. Eaton <jwe@octave.org>
parents:
7969
diff
changeset
|
249 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
|
250 |
229bd50e6e8f
datestr.m: convert format and use strtftime for most of the actual conversion
John W. Eaton <jwe@octave.org>
parents:
7969
diff
changeset
|
251 tmp = names_m{v(i,2)}; |
19414
a2a79462b7b8
datestr.m: Clean up use of []/"" and single/double quotes (bug #43841).
Rik <rik@octave.org>
parents:
18857
diff
changeset
|
252 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
|
253 df(pos) = tmp; |
19414
a2a79462b7b8
datestr.m: Clean up use of []/"" and single/double quotes (bug #43841).
Rik <rik@octave.org>
parents:
18857
diff
changeset
|
254 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
|
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, "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
|
257 |
19414
a2a79462b7b8
datestr.m: Clean up use of []/"" and single/double quotes (bug #43841).
Rik <rik@octave.org>
parents:
18857
diff
changeset
|
258 df = regexprep (df, "[Ss][Ss]", "%S"); |
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
|
259 |
18650
491b0adfec95
compatibility fixes for printf integer format specifiers
John W. Eaton <jwe@octave.org>
parents:
17839
diff
changeset
|
260 df = strrep (df, "FFF", sprintf ("%03d", |
491b0adfec95
compatibility fixes for printf integer format specifiers
John W. Eaton <jwe@octave.org>
parents:
17839
diff
changeset
|
261 round (1000 * (v(i,6) - fix (v(i,6)))))); |
13848
40e32fe44aaa
Ugrade time functions to accept millisecond format string FFF (Bug #34586)
Rik <octave@nomad.inbox5.com>
parents:
11587
diff
changeset
|
262 |
19414
a2a79462b7b8
datestr.m: Clean up use of []/"" and single/double quotes (bug #43841).
Rik <rik@octave.org>
parents:
18857
diff
changeset
|
263 df = strrep (df, "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
|
264 |
229bd50e6e8f
datestr.m: convert format and use strtftime for most of the actual conversion
John W. Eaton <jwe@octave.org>
parents:
7969
diff
changeset
|
265 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
|
266 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
|
267 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
|
268 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
|
269 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
|
270 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
|
271 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
|
272 tm.sec = fix (sec); |
13848
40e32fe44aaa
Ugrade time functions to accept millisecond format string FFF (Bug #34586)
Rik <octave@nomad.inbox5.com>
parents:
11587
diff
changeset
|
273 tm.usec = fix ((sec - tm.sec) * 1e6); |
11328
f286a874617c
datestr: handle dates before 1970-01-01
John W. Eaton <jwe@octave.org>
parents:
11149
diff
changeset
|
274 tm.wday = wday - 1; |
18857
7bbe3658c5ef
maint: Use "FIXME:" coding convention in m-files.
Rik <rik@octave.org>
parents:
18650
diff
changeset
|
275 ## FIXME: Do we need YDAY and DST? How should they be computed? |
11328
f286a874617c
datestr: handle dates before 1970-01-01
John W. Eaton <jwe@octave.org>
parents:
11149
diff
changeset
|
276 ## 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
|
277 ## 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
|
278 ## tm.yday = ?; |
f286a874617c
datestr: handle dates before 1970-01-01
John W. Eaton <jwe@octave.org>
parents:
11149
diff
changeset
|
279 ## tm.isdst = ?; |
f286a874617c
datestr: handle dates before 1970-01-01
John W. Eaton <jwe@octave.org>
parents:
11149
diff
changeset
|
280 |
f286a874617c
datestr: handle dates before 1970-01-01
John W. Eaton <jwe@octave.org>
parents:
11149
diff
changeset
|
281 str = strftime (df, tm); |
5687 | 282 |
13848
40e32fe44aaa
Ugrade time functions to accept millisecond format string FFF (Bug #34586)
Rik <octave@nomad.inbox5.com>
parents:
11587
diff
changeset
|
283 retval = [retval; str]; |
5687 | 284 |
285 endfor | |
286 | |
287 endfunction | |
288 | |
13848
40e32fe44aaa
Ugrade time functions to accept millisecond format string FFF (Bug #34586)
Rik <octave@nomad.inbox5.com>
parents:
11587
diff
changeset
|
289 |
40e32fe44aaa
Ugrade time functions to accept millisecond format string FFF (Bug #34586)
Rik <octave@nomad.inbox5.com>
parents:
11587
diff
changeset
|
290 %!demo |
40e32fe44aaa
Ugrade time functions to accept millisecond format string FFF (Bug #34586)
Rik <octave@nomad.inbox5.com>
parents:
11587
diff
changeset
|
291 %! ## Current date and time in default format |
40e32fe44aaa
Ugrade time functions to accept millisecond format string FFF (Bug #34586)
Rik <octave@nomad.inbox5.com>
parents:
11587
diff
changeset
|
292 %! datestr (now ()) |
14237
11949c9795a0
Revamp %!demos in m-files to use Octave coding conventions on spacing, etc.
Rik <octave@nomad.inbox5.com>
parents:
14138
diff
changeset
|
293 |
13848
40e32fe44aaa
Ugrade time functions to accept millisecond format string FFF (Bug #34586)
Rik <octave@nomad.inbox5.com>
parents:
11587
diff
changeset
|
294 %!demo |
40e32fe44aaa
Ugrade time functions to accept millisecond format string FFF (Bug #34586)
Rik <octave@nomad.inbox5.com>
parents:
11587
diff
changeset
|
295 %! ## Current date (integer portion of datenum) |
40e32fe44aaa
Ugrade time functions to accept millisecond format string FFF (Bug #34586)
Rik <octave@nomad.inbox5.com>
parents:
11587
diff
changeset
|
296 %! datestr (fix (now ())) |
14237
11949c9795a0
Revamp %!demos in m-files to use Octave coding conventions on spacing, etc.
Rik <octave@nomad.inbox5.com>
parents:
14138
diff
changeset
|
297 |
13848
40e32fe44aaa
Ugrade time functions to accept millisecond format string FFF (Bug #34586)
Rik <octave@nomad.inbox5.com>
parents:
11587
diff
changeset
|
298 %!demo |
40e32fe44aaa
Ugrade time functions to accept millisecond format string FFF (Bug #34586)
Rik <octave@nomad.inbox5.com>
parents:
11587
diff
changeset
|
299 %! ## Current time (fractional portion of datenum) |
40e32fe44aaa
Ugrade time functions to accept millisecond format string FFF (Bug #34586)
Rik <octave@nomad.inbox5.com>
parents:
11587
diff
changeset
|
300 %! datestr (rem (now (), 1)) |
40e32fe44aaa
Ugrade time functions to accept millisecond format string FFF (Bug #34586)
Rik <octave@nomad.inbox5.com>
parents:
11587
diff
changeset
|
301 |
5687 | 302 %!shared testtime |
303 %! testtime = [2005.0000, 12.0000, 18.0000, 2.0000, 33.0000, 17.3822]; | |
13848
40e32fe44aaa
Ugrade time functions to accept millisecond format string FFF (Bug #34586)
Rik <octave@nomad.inbox5.com>
parents:
11587
diff
changeset
|
304 %!assert (datestr (testtime,0), "18-Dec-2005 02:33:17") |
40e32fe44aaa
Ugrade time functions to accept millisecond format string FFF (Bug #34586)
Rik <octave@nomad.inbox5.com>
parents:
11587
diff
changeset
|
305 %!assert (datestr (testtime,1), "18-Dec-2005") |
40e32fe44aaa
Ugrade time functions to accept millisecond format string FFF (Bug #34586)
Rik <octave@nomad.inbox5.com>
parents:
11587
diff
changeset
|
306 %!assert (datestr (testtime,2), "12/18/05") |
40e32fe44aaa
Ugrade time functions to accept millisecond format string FFF (Bug #34586)
Rik <octave@nomad.inbox5.com>
parents:
11587
diff
changeset
|
307 %!assert (datestr (testtime,3), "Dec") |
40e32fe44aaa
Ugrade time functions to accept millisecond format string FFF (Bug #34586)
Rik <octave@nomad.inbox5.com>
parents:
11587
diff
changeset
|
308 %!assert (datestr (testtime,4), "D") |
40e32fe44aaa
Ugrade time functions to accept millisecond format string FFF (Bug #34586)
Rik <octave@nomad.inbox5.com>
parents:
11587
diff
changeset
|
309 %!assert (datestr (testtime,5), "12") |
40e32fe44aaa
Ugrade time functions to accept millisecond format string FFF (Bug #34586)
Rik <octave@nomad.inbox5.com>
parents:
11587
diff
changeset
|
310 %!assert (datestr (testtime,6), "12/18") |
40e32fe44aaa
Ugrade time functions to accept millisecond format string FFF (Bug #34586)
Rik <octave@nomad.inbox5.com>
parents:
11587
diff
changeset
|
311 %!assert (datestr (testtime,7), "18") |
40e32fe44aaa
Ugrade time functions to accept millisecond format string FFF (Bug #34586)
Rik <octave@nomad.inbox5.com>
parents:
11587
diff
changeset
|
312 %!assert (datestr (testtime,8), "Sun") |
40e32fe44aaa
Ugrade time functions to accept millisecond format string FFF (Bug #34586)
Rik <octave@nomad.inbox5.com>
parents:
11587
diff
changeset
|
313 %!assert (datestr (testtime,9), "S") |
40e32fe44aaa
Ugrade time functions to accept millisecond format string FFF (Bug #34586)
Rik <octave@nomad.inbox5.com>
parents:
11587
diff
changeset
|
314 %!assert (datestr (testtime,10), "2005") |
40e32fe44aaa
Ugrade time functions to accept millisecond format string FFF (Bug #34586)
Rik <octave@nomad.inbox5.com>
parents:
11587
diff
changeset
|
315 %!assert (datestr (testtime,11), "05") |
40e32fe44aaa
Ugrade time functions to accept millisecond format string FFF (Bug #34586)
Rik <octave@nomad.inbox5.com>
parents:
11587
diff
changeset
|
316 %!assert (datestr (testtime,12), "Dec05") |
40e32fe44aaa
Ugrade time functions to accept millisecond format string FFF (Bug #34586)
Rik <octave@nomad.inbox5.com>
parents:
11587
diff
changeset
|
317 %!assert (datestr (testtime,13), "02:33:17") |
17839
2ff47214de72
datestr.m: Accomodate Mac OS X odd support of %p in strftime.
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
318 ## Mac OS X interprets %p parameter to strftime as lower case am/pm indicator. |
21793
50f49dcae277
datestr.m: Fix Matlab incompatibility for format #16 (bug #48071).
Rik <rik@octave.org>
parents:
21562
diff
changeset
|
319 ## Accommodate this, although no other UNIX-based OS does this. |
17839
2ff47214de72
datestr.m: Accomodate Mac OS X odd support of %p in strftime.
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
320 %!test |
2ff47214de72
datestr.m: Accomodate Mac OS X odd support of %p in strftime.
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
321 %! obs = toupper (datestr (testtime,14)); |
2ff47214de72
datestr.m: Accomodate Mac OS X odd support of %p in strftime.
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
322 %! assert (obs, " 2:33:17 AM"); |
13848
40e32fe44aaa
Ugrade time functions to accept millisecond format string FFF (Bug #34586)
Rik <octave@nomad.inbox5.com>
parents:
11587
diff
changeset
|
323 %!assert (datestr (testtime,15), "02:33") |
17839
2ff47214de72
datestr.m: Accomodate Mac OS X odd support of %p in strftime.
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
324 %!test |
2ff47214de72
datestr.m: Accomodate Mac OS X odd support of %p in strftime.
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
325 %! obs = toupper (datestr (testtime,16)); |
2ff47214de72
datestr.m: Accomodate Mac OS X odd support of %p in strftime.
Rik <rik@octave.org>
parents:
17744
diff
changeset
|
326 %! assert (obs, " 2:33 AM"); |
22489
93ea313301f9
test: Add bug ids (<#####>) to BIST tests.
Rik <rik@octave.org>
parents:
22323
diff
changeset
|
327 %!test <48071> |
21793
50f49dcae277
datestr.m: Fix Matlab incompatibility for format #16 (bug #48071).
Rik <rik@octave.org>
parents:
21562
diff
changeset
|
328 %! testtime2 = testtime; |
50f49dcae277
datestr.m: Fix Matlab incompatibility for format #16 (bug #48071).
Rik <rik@octave.org>
parents:
21562
diff
changeset
|
329 %! testtime2(4) = 15; |
50f49dcae277
datestr.m: Fix Matlab incompatibility for format #16 (bug #48071).
Rik <rik@octave.org>
parents:
21562
diff
changeset
|
330 %! obs = toupper (datestr (testtime2,16)); |
50f49dcae277
datestr.m: Fix Matlab incompatibility for format #16 (bug #48071).
Rik <rik@octave.org>
parents:
21562
diff
changeset
|
331 %! assert (obs, " 3:33 PM"); |
13848
40e32fe44aaa
Ugrade time functions to accept millisecond format string FFF (Bug #34586)
Rik <octave@nomad.inbox5.com>
parents:
11587
diff
changeset
|
332 %!assert (datestr (testtime,17), "Q4-05") |
40e32fe44aaa
Ugrade time functions to accept millisecond format string FFF (Bug #34586)
Rik <octave@nomad.inbox5.com>
parents:
11587
diff
changeset
|
333 %!assert (datestr (testtime,18), "Q4") |
40e32fe44aaa
Ugrade time functions to accept millisecond format string FFF (Bug #34586)
Rik <octave@nomad.inbox5.com>
parents:
11587
diff
changeset
|
334 %!assert (datestr (testtime,19), "18/12") |
40e32fe44aaa
Ugrade time functions to accept millisecond format string FFF (Bug #34586)
Rik <octave@nomad.inbox5.com>
parents:
11587
diff
changeset
|
335 %!assert (datestr (testtime,20), "18/12/05") |
40e32fe44aaa
Ugrade time functions to accept millisecond format string FFF (Bug #34586)
Rik <octave@nomad.inbox5.com>
parents:
11587
diff
changeset
|
336 %!assert (datestr (testtime,21), "Dec.18,2005 02:33:17") |
40e32fe44aaa
Ugrade time functions to accept millisecond format string FFF (Bug #34586)
Rik <octave@nomad.inbox5.com>
parents:
11587
diff
changeset
|
337 %!assert (datestr (testtime,22), "Dec.18,2005") |
40e32fe44aaa
Ugrade time functions to accept millisecond format string FFF (Bug #34586)
Rik <octave@nomad.inbox5.com>
parents:
11587
diff
changeset
|
338 %!assert (datestr (testtime,23), "12/18/2005") |
40e32fe44aaa
Ugrade time functions to accept millisecond format string FFF (Bug #34586)
Rik <octave@nomad.inbox5.com>
parents:
11587
diff
changeset
|
339 %!assert (datestr (testtime,24), "18/12/2005") |
40e32fe44aaa
Ugrade time functions to accept millisecond format string FFF (Bug #34586)
Rik <octave@nomad.inbox5.com>
parents:
11587
diff
changeset
|
340 %!assert (datestr (testtime,25), "05/12/18") |
40e32fe44aaa
Ugrade time functions to accept millisecond format string FFF (Bug #34586)
Rik <octave@nomad.inbox5.com>
parents:
11587
diff
changeset
|
341 %!assert (datestr (testtime,26), "2005/12/18") |
40e32fe44aaa
Ugrade time functions to accept millisecond format string FFF (Bug #34586)
Rik <octave@nomad.inbox5.com>
parents:
11587
diff
changeset
|
342 %!assert (datestr (testtime,27), "Q4-2005") |
40e32fe44aaa
Ugrade time functions to accept millisecond format string FFF (Bug #34586)
Rik <octave@nomad.inbox5.com>
parents:
11587
diff
changeset
|
343 %!assert (datestr (testtime,28), "Dec2005") |
40e32fe44aaa
Ugrade time functions to accept millisecond format string FFF (Bug #34586)
Rik <octave@nomad.inbox5.com>
parents:
11587
diff
changeset
|
344 %!assert (datestr (testtime,29), "2005-12-18") |
40e32fe44aaa
Ugrade time functions to accept millisecond format string FFF (Bug #34586)
Rik <octave@nomad.inbox5.com>
parents:
11587
diff
changeset
|
345 %!assert (datestr (testtime,30), "20051218T023317") |
40e32fe44aaa
Ugrade time functions to accept millisecond format string FFF (Bug #34586)
Rik <octave@nomad.inbox5.com>
parents:
11587
diff
changeset
|
346 %!assert (datestr (testtime,31), "2005-12-18 02:33:17") |
40e32fe44aaa
Ugrade time functions to accept millisecond format string FFF (Bug #34586)
Rik <octave@nomad.inbox5.com>
parents:
11587
diff
changeset
|
347 %!assert (datestr (testtime+[0 0 3 0 0 0], "dddd"), "Wednesday") |
40e32fe44aaa
Ugrade time functions to accept millisecond format string FFF (Bug #34586)
Rik <octave@nomad.inbox5.com>
parents:
11587
diff
changeset
|
348 ## Test possible bug where input is a vector of datenums that is exactly 6 wide |
40e32fe44aaa
Ugrade time functions to accept millisecond format string FFF (Bug #34586)
Rik <octave@nomad.inbox5.com>
parents:
11587
diff
changeset
|
349 %!assert (datestr ([1944, 6, 6, 6, 30, 0], 0), "06-Jun-1944 06:30:00") |
40e32fe44aaa
Ugrade time functions to accept millisecond format string FFF (Bug #34586)
Rik <octave@nomad.inbox5.com>
parents:
11587
diff
changeset
|
350 ## Test fractional millisecond time extension |
40e32fe44aaa
Ugrade time functions to accept millisecond format string FFF (Bug #34586)
Rik <octave@nomad.inbox5.com>
parents:
11587
diff
changeset
|
351 %!assert (datestr (testtime, "HH:MM:SS:FFF"), "02:33:17:382") |
11329
6b073da9d7fc
ChangeLog fix and new datestr test omitted from previous change
John W. Eaton <jwe@octave.org>
parents:
11328
diff
changeset
|
352 |
19833
9fc020886ae9
maint: Clean up m-files to follow Octave coding conventions.
Rik <rik@octave.org>
parents:
19697
diff
changeset
|
353 ## Test input validation |
13848
40e32fe44aaa
Ugrade time functions to accept millisecond format string FFF (Bug #34586)
Rik <octave@nomad.inbox5.com>
parents:
11587
diff
changeset
|
354 %!error datestr () |
40e32fe44aaa
Ugrade time functions to accept millisecond format string FFF (Bug #34586)
Rik <octave@nomad.inbox5.com>
parents:
11587
diff
changeset
|
355 %!error datestr (1, 2, 3, 4) |
14237
11949c9795a0
Revamp %!demos in m-files to use Octave coding conventions on spacing, etc.
Rik <octave@nomad.inbox5.com>
parents:
14138
diff
changeset
|
356 |