Mercurial > hg > octave-lyh

comparison scripts/time/eomday.m @ 6046:34f96dd5441b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2006-10-10 16:10:25 by jwe]
author jwe
date Tue, 10 Oct 2006 16:10:31 +0000
parents a2902024bc4e
children 93c65f2a5668
comparison
equal deleted inserted replaced
6045:421d8a903df7 6046:34f96dd5441b
28 ## Adapted-By: William Poetra Yoga Hadisoeseno <williampoetra@gmail.com> 28 ## Adapted-By: William Poetra Yoga Hadisoeseno <williampoetra@gmail.com>
29 29
30 function e = eomday (y, m) 30 function e = eomday (y, m)
31 31
32 if (nargin != 2) 32 if (nargin != 2)
33 usage ("e = eomday (y, m)"); 33 print_usage ();
34 endif 34 endif
35 35
36 eom = [31, 28, 31, 30 ,31, 30, 31, 31, 30, 31, 30, 31]; 36 eom = [31, 28, 31, 30 ,31, 30, 31, 31, 30, 31, 30, 31];
37 e = eom(m); 37 e = eom(m);
38 e += (m == 2) & (mod (y, 4) == 0 & (mod (y, 100) != 0 | mod (y, 400) == 0)); 38 e += (m == 2) & (mod (y, 4) == 0 & (mod (y, 100) != 0 | mod (y, 400) == 0));