Mercurial > octave-antonio
annotate scripts/time/datestr.m @ 8098:229bd50e6e8f
datestr.m: convert format and use strtftime for most of the actual conversion
| author | John W. Eaton <jwe@octave.org> |
|---|---|
| date | Tue, 09 Sep 2008 18:56:51 -0400 |
| parents | 4f9e8eeb2059 |
| children | 31e86163b752 |
| rev | line source |
|---|---|
| 7017 | 1 ## Copyright (C) 2000, 2001, 2002, 2003, 2005, 2006, 2007 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 -*- | |
| 20 ## @deftypefn {Function File} {@var{str} =} datestr (@var{date}, [@var{f}, [@var{p}]]) | |
| 21 ## Format the given date/time according to the format @code{f} and return | |
| 22 ## the result in @var{str}. @var{date} is a serial date number (see | |
| 6555 | 23 ## @code{datenum}) or a date vector (see @code{datevec}). The value of |
| 24 ## @var{date} may also be a string or cell array of strings. | |
| 5687 | 25 ## |
| 26 ## @var{f} can be an integer which corresponds to one of the codes in | |
| 27 ## the table below, or a date format string. | |
| 28 ## | |
| 29 ## @var{p} is the year at the start of the century in which two-digit years | |
| 30 ## are to be interpreted in. If not specified, it defaults to the current | |
| 31 ## year minus 50. | |
| 32 ## | |
| 33 ## For example, the date 730736.65149 (2000-09-07 15:38:09.0934) would be | |
| 34 ## formatted as follows: | |
| 35 ## | |
| 36 ## @multitable @columnfractions 0.1 0.45 0.35 | |
| 37 ## @headitem Code @tab Format @tab Example | |
| 38 ## @item 0 @tab dd-mmm-yyyy HH:MM:SS @tab 07-Sep-2000 15:38:09 | |
| 39 ## @item 1 @tab dd-mmm-yyyy @tab 07-Sep-2000 | |
| 40 ## @item 2 @tab mm/dd/yy @tab 09/07/00 | |
| 41 ## @item 3 @tab mmm @tab Sep | |
| 42 ## @item 4 @tab m @tab S | |
| 43 ## @item 5 @tab mm @tab 09 | |
| 44 ## @item 6 @tab mm/dd @tab 09/07 | |
| 45 ## @item 7 @tab dd @tab 07 | |
| 46 ## @item 8 @tab ddd @tab Thu | |
| 47 ## @item 9 @tab d @tab T | |
| 48 ## @item 10 @tab yyyy @tab 2000 | |
| 49 ## @item 11 @tab yy @tab 00 | |
| 50 ## @item 12 @tab mmmyy @tab Sep00 | |
| 51 ## @item 13 @tab HH:MM:SS @tab 15:38:09 | |
| 52 ## @item 14 @tab HH:MM:SS PM @tab 03:38:09 PM | |
| 53 ## @item 15 @tab HH:MM @tab 15:38 | |
| 54 ## @item 16 @tab HH:MM PM @tab 03:38 PM | |
| 55 ## @item 17 @tab QQ-YY @tab Q3-00 | |
| 56 ## @item 18 @tab QQ @tab Q3 | |
| 57 ## @item 19 @tab dd/mm @tab 13/03 | |
| 58 ## @item 20 @tab dd/mm/yy @tab 13/03/95 | |
| 59 ## @item 21 @tab mmm.dd.yyyy HH:MM:SS @tab Mar.03.1962 13:53:06 | |
| 60 ## @item 22 @tab mmm.dd.yyyy @tab Mar.03.1962 | |
| 61 ## @item 23 @tab mm/dd/yyyy @tab 03/13/1962 | |
| 62 ## @item 24 @tab dd/mm/yyyy @tab 12/03/1962 | |
| 63 ## @item 25 @tab yy/mm/dd @tab 95/03/13 | |
| 64 ## @item 26 @tab yyyy/mm/dd @tab 1995/03/13 | |
| 65 ## @item 27 @tab QQ-YYYY @tab Q4-2132 | |
| 66 ## @item 28 @tab mmmyyyy @tab Mar2047 | |
| 67 ## @item 29 @tab yyyymmdd @tab 20470313 | |
| 68 ## @item 30 @tab yyyymmddTHHMMSS @tab 20470313T132603 | |
| 69 ## @item 31 @tab yyyy-mm-dd HH:MM:SS @tab 1047-03-13 13:26:03 | |
| 70 ## @end multitable | |
| 71 ## | |
| 72 ## If @var{f} is a format string, the following symbols are recognised: | |
| 73 ## | |
| 74 ## @multitable @columnfractions 0.1 0.7 0.2 | |
| 75 ## @headitem Symbol @tab Meaning @tab Example | |
| 76 ## @item yyyy @tab Full year @tab 2005 | |
| 77 ## @item yy @tab Two-digit year @tab 2005 | |
| 78 ## @item mmmm @tab Full month name @tab December | |
| 79 ## @item mmm @tab Abbreviated month name @tab Dec | |
| 80 ## @item mm @tab Numeric month number (padded with zeros) @tab 01, 08, 12 | |
| 81 ## @item m @tab First letter of month name (capitalized) @tab D | |
| 82 ## @item dddd @tab Full weekday name @tab Sunday | |
| 83 ## @item ddd @tab Abbreviated weekday name @tab Sun | |
| 84 ## @item dd @tab Numeric day of month (padded with zeros) @tab 11 | |
| 85 ## @item d @tab First letter of weekday name (capitalized) @tab S | |
| 86 ## @item HH @tab Hour of day, padded with zeros if PM is set @tab 09:00 | |
| 87 ## @item @tab and not padded with zeros otherwise @tab 9:00 AM | |
| 88 ## @item MM @tab Minute of hour (padded with zeros) @tab 10:05 | |
| 89 ## @item SS @tab Second of minute (padded with zeros) @tab 10:05:03 | |
| 90 ## @item PM @tab Use 12-hour time format @tab 11:30 PM | |
| 91 ## @end multitable | |
| 92 ## | |
| 93 ## If @var{f} is not specified or is @code{-1}, then use 0, 1 or 16, | |
| 94 ## depending on whether the date portion or the time portion of | |
| 95 ## @var{date} is empty. | |
| 96 ## | |
| 97 ## If @var{p} is nor specified, it defaults to the current year minus 50. | |
| 98 ## | |
| 99 ## If a matrix or cell array of dates is given, a vector of date strings is | |
| 100 ## returned. | |
| 101 ## | |
| 102 ## @seealso{datenum, datevec, date, clock, now, datetick} | |
| 103 ## @end deftypefn | |
| 104 | |
| 105 ## TODO: parse arbitrary code strings. | |
| 106 ## TODO: e.g., for Wednesday 2001-03-05 09:04:06 AM, use | |
| 107 ## TODO: yy 01 | |
| 108 ## TODO: yyyy 2001 | |
| 109 ## TODO: m M | |
| 110 ## TODO: mm 03 | |
| 111 ## TODO: mmm Mar | |
| 112 ## TODO: d W | |
| 113 ## TODO: dd 05 | |
| 114 ## TODO: ddd Wed | |
| 115 ## TODO: HH 09 | |
| 116 ## TODO: MM 04 | |
| 117 ## TODO: SS 06 | |
| 118 ## TODO: PM AM | |
| 119 ## TODO: Vectorize. It is particularly easy since all the codes are | |
| 120 ## TODO: fixed width. Just generate the parts in separate arrays and | |
| 121 ## TODO: concatenate. | |
| 122 | |
| 123 ## Author: pkienzle <pkienzle@users.sf.net> | |
| 124 ## Created: 10 October 2001 (CVS) | |
| 125 ## Adapted-By: William Poetra Yoga Hadisoeseno <williampoetra@gmail.com> | |
| 126 | |
| 127 function retval = datestr (date, f, p) | |
| 128 | |
| 129 persistent dateform names_mmmm names_mmm names_m names_dddd names_ddd names_d; | |
| 130 | |
| 131 if (isempty (dateform)) | |
| 132 | |
| 133 dateform = cell (32, 1); | |
| 134 dateform{1} = "dd-mmm-yyyy HH:MM:SS"; | |
| 135 dateform{2} = "dd-mmm-yyyy"; | |
| 136 dateform{3} = "mm/dd/yy"; | |
| 137 dateform{4} = "mmm"; | |
| 138 dateform{5} = "m"; | |
| 139 dateform{6} = "mm"; | |
| 140 dateform{7} = "mm/dd"; | |
| 141 dateform{8} = "dd"; | |
| 142 dateform{9} = "ddd"; | |
| 143 dateform{10} = "d"; | |
| 144 dateform{11} = "yyyy"; | |
| 145 dateform{12} = "yy"; | |
| 146 dateform{13} = "mmmyy"; | |
| 147 dateform{14} = "HH:MM:SS"; | |
| 148 dateform{15} = "HH:MM:SS PM"; | |
| 149 dateform{16} = "HH:MM"; | |
| 150 dateform{17} = "HH:MM PM"; | |
| 151 dateform{18} = "QQ-YY"; | |
| 152 dateform{19} = "QQ"; | |
| 153 dateform{20} = "dd/mm"; | |
| 154 dateform{21} = "dd/mm/yy"; | |
| 155 dateform{22} = "mmm.dd.yyyy HH:MM:SS"; | |
| 156 dateform{23} = "mmm.dd.yyyy"; | |
| 157 dateform{24} = "mm/dd/yyyy"; | |
| 158 dateform{25} = "dd/mm/yyyy"; | |
| 159 dateform{26} = "yy/mm/dd"; | |
| 160 dateform{27} = "yyyy/mm/dd"; | |
| 161 dateform{28} = "QQ-YYYY"; | |
| 162 dateform{29} = "mmmyyyy"; | |
| 163 dateform{30} = "yyyymmdd"; | |
| 164 dateform{31} = "yyyymmddTHHMMSS"; | |
| 165 dateform{32} = "yyyy-mm-dd HH:MM:SS"; | |
| 166 | |
| 167 names_m = {"J"; "F"; "M"; "A"; "M"; "J"; "J"; "A"; "S"; "O"; "N"; "D"}; | |
| 168 | |
| 169 names_d = {"S"; "M"; "T"; "W"; "T"; "F"; "S"}; | |
| 170 | |
| 171 endif | |
| 172 | |
| 173 if (nargin < 1 || nargin > 3) | |
| 6046 | 174 print_usage (); |
| 5687 | 175 endif |
| 176 | |
| 177 if (nargin < 2) | |
| 178 f = []; | |
| 179 endif | |
| 180 if (nargin < 3) | |
| 181 p = []; | |
| 182 endif | |
| 183 | |
| 184 if (ischar (date)) | |
| 185 t = date; | |
| 186 date = cell (1); | |
| 187 date{1} = t; | |
| 188 endif | |
| 189 | |
| 190 # guess, so we might be wrong | |
| 191 if (iscell (date) || columns (date) != 6) | |
| 192 v = datevec (date, p); | |
| 193 else | |
| 7492 | 194 v = []; |
| 7493 | 195 if (columns (date) == 6) |
| 196 ## Make sure that the input really is a datevec. | |
| 197 maxdatevec = [Inf, 12, 31, 23, 59, 60]; | |
| 7492 | 198 for i = 1:numel (maxdatevec) |
| 7493 | 199 if (any (date(:,i) > maxdatevec(i))) |
| 7492 | 200 v = datevec (date, p); |
| 201 break; | |
| 202 endif | |
| 203 endfor | |
| 204 endif | |
| 7493 | 205 if (isempty (v)) |
| 7492 | 206 v = date; |
| 207 endif | |
| 5687 | 208 endif |
| 209 | |
| 210 for i = 1:(rows (v)) | |
| 211 | |
| 212 if (isempty (f) || f == -1) | |
| 213 if (v(i,4:6) == 0) | |
| 214 f = 1; | |
| 215 #elseif (v(i,1:3) == [0, 1, 1]) | |
| 216 elseif (v(i,1:3) == [-1, 12, 31]) | |
| 217 f = 16; | |
| 218 else | |
| 219 f = 0; | |
| 220 endif | |
| 221 endif | |
| 222 | |
| 223 if (isnumeric (f)) | |
| 224 df = dateform{f + 1}; | |
| 225 else | |
| 226 df = f; | |
| 227 endif | |
| 228 | |
|
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 df_orig = df; |
|
229bd50e6e8f
datestr.m: convert format and use strtftime for most of the actual conversion
John W. Eaton <jwe@octave.org>
parents:
7969
diff
changeset
|
230 df = regexprep (df, "[AP]M", "%p"); |
|
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 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
|
232 ## 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
|
233 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
|
234 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
|
235 df = strrep (df, "HH", sprintf ("%2d", v(i,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
|
236 endif |
|
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 |
|
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 = regexprep (df, "[Yy][Yy][Yy][Yy]", "%C%y"); |
|
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 |
|
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 df = regexprep (df, "[Yy][Yy]", "%y"); |
|
229bd50e6e8f
datestr.m: convert format and use strtftime for most of the actual conversion
John W. Eaton <jwe@octave.org>
parents:
7969
diff
changeset
|
241 |
|
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 df = regexprep (df, "[Dd][Dd][Dd][Dd]", "%A"); |
|
229bd50e6e8f
datestr.m: convert format and use strtftime for most of the actual conversion
John W. Eaton <jwe@octave.org>
parents:
7969
diff
changeset
|
243 |
|
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 df = regexprep (df, "[Dd][Dd][Dd]", "%a"); |
|
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 |
|
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 df = regexprep (df, "[Dd][Dd]", "%e"); |
|
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 |
|
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 tmp = names_d{weekday (datenum (v(i,1), v(i,2), v(i,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
|
249 df = regexprep (df, "([^%])[Dd]", sprintf ("$1%s", tmp)); |
|
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 df = regexprep (df, "^[Dd]", sprintf ("%s", tmp)); |
|
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 |
|
229bd50e6e8f
datestr.m: convert format and use strtftime for most of the actual conversion
John W. Eaton <jwe@octave.org>
parents:
7969
diff
changeset
|
252 df = strrep (df, "mmmm", "%B"); |
| 5687 | 253 |
|
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
|
254 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
|
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 |
|
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 tmp = names_m{v(i,2)}; |
|
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 pos = regexp (df, "[^%]m") + 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
|
260 df(pos) = tmp; |
|
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 df = regexprep (df, "^m", tmp); |
|
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 |
|
229bd50e6e8f
datestr.m: convert format and use strtftime for most of the actual conversion
John W. Eaton <jwe@octave.org>
parents:
7969
diff
changeset
|
263 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
|
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 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
|
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 = regexprep (df, "[Qq][Qq]", sprintf ("Q%d", fix ((v(i,2) + 2) / 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
|
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 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
|
270 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
|
271 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
|
272 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
|
273 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
|
274 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
|
275 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
|
276 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
|
277 tm.usec = fix (rem (sec, 1) * 1e6); |
|
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 |
|
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 str = strftime (df, localtime (mktime (tm))); |
| 5687 | 280 |
| 281 if (i == 1) | |
| 282 retval = str; | |
| 283 else | |
| 284 retval = [retval; str]; | |
| 285 endif | |
| 286 | |
| 287 endfor | |
| 288 | |
| 289 endfunction | |
| 290 | |
| 291 # simple tests | |
| 292 %!shared testtime | |
| 293 %! testtime = [2005.0000, 12.0000, 18.0000, 2.0000, 33.0000, 17.3822]; | |
| 294 %!assert(datestr(testtime,0),"18-Dec-2005 02:33:17"); | |
| 295 %!assert(datestr(testtime,1),"18-Dec-2005"); | |
| 296 %!assert(datestr(testtime,2),"12/18/05"); | |
| 297 %!assert(datestr(testtime,3),"Dec"); | |
| 298 %!assert(datestr(testtime,4),"D"); | |
| 299 %!assert(datestr(testtime,5),"12"); | |
| 300 %!assert(datestr(testtime,6),"12/18"); | |
| 301 %!assert(datestr(testtime,7),"18"); | |
| 302 %!assert(datestr(testtime,8),"Sun"); | |
| 303 %!assert(datestr(testtime,9),"S"); | |
| 304 %!assert(datestr(testtime,10),"2005"); | |
| 305 %!assert(datestr(testtime,11),"05"); | |
| 306 %!assert(datestr(testtime,12),"Dec05"); | |
| 307 %!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
|
308 %!assert(datestr(testtime,14)," 2:33:17 AM"); |
| 5687 | 309 %!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
|
310 %!assert(datestr(testtime,16)," 2:33 AM"); |
| 5687 | 311 %!assert(datestr(testtime,17),"Q4-05"); |
| 312 %!assert(datestr(testtime,18),"Q4"); | |
| 313 %!assert(datestr(testtime,19),"18/12"); | |
| 314 %!assert(datestr(testtime,20),"18/12/05"); | |
| 315 %!assert(datestr(testtime,21),"Dec.18.2005 02:33:17"); | |
| 316 %!assert(datestr(testtime,22),"Dec.18.2005"); | |
| 317 %!assert(datestr(testtime,23),"12/18/2005"); | |
| 318 %!assert(datestr(testtime,24),"18/12/2005"); | |
| 319 %!assert(datestr(testtime,25),"05/12/18"); | |
| 320 %!assert(datestr(testtime,26),"2005/12/18"); | |
| 321 %!assert(datestr(testtime,27),"Q4-2005"); | |
| 322 %!assert(datestr(testtime,28),"Dec2005"); | |
| 323 %!assert(datestr(testtime,29),"20051218"); | |
| 324 %!assert(datestr(testtime,30),"20051218T023317"); | |
| 325 %!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
|
326 %!assert(datestr(testtime+[0 0 3 0 0 0],"dddd"),"Wednesday") |
| 7492 | 327 ## avoid the bug where someone happens to give a vector of datenums that |
| 328 ## happens to be 6 wide | |
| 329 %!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"]) | |
| 5687 | 330 # demos |
| 331 %!demo | |
| 332 %! datestr (now ()) | |
| 333 %!demo | |
| 334 %! datestr (rem (now (), 1)) | |
| 335 %!demo | |
| 336 %! datestr (floor (now ())) |