Mercurial > hg > octave-nkf

diff scripts/time/datevec.m @ 5873:b6ef36e92701

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2006-06-30 20:46:34 by jwe]
author jwe
date Fri, 30 Jun 2006 20:46:34 +0000
parents b645066d40ad
children 12fd61d549ba
line wrap: on
line diff
--- a/scripts/time/datevec.m
+++ b/scripts/time/datevec.m
@@ -156,11 +156,10 @@
     ## datenum format.
 
     fracd = date - floor (date);
-    ## Special case for total days <= 0.
-    tmpd = abs (365.25*y);
-    tmpd(tmpd == 0) = 1;
-    srnd = 10 .^ floor (log10 (tmpd));
-    s = round (86400*fracd.*srnd) ./ srnd;
+    tmps = abs (eps*86400*date);
+    tmps(tmps == 0) = 1;
+    srnd = 2 .^ floor (- log2 (tmps));
+    s = round (86400 * fracd .* srnd) ./ srnd;
     h = floor (s / 3600);
     s = s - 3600 * h;
     mi = floor (s / 60);
@@ -169,7 +168,7 @@
   endif
 
   if (nargout <= 1)
-    y = [y m d h mi s];
+    y = [y, m, d, h, mi, s];
   endif
 
 ### endfunction