diary question

diary question

[Rudy Gevaert]

Hi

How can I mark al the uneven weeks?

Thanks in advance,
-- 
Rudy Gevaert                rudy@gnu.org		
Web page                    http://www.webworm.org
GNU/Linux for schools       http://www.nongnu.org/glms
Savannah hacker             http://savannah.gnu.org
		                        

Re: diary question

[Edward M. Reingold]

>>>>> "RG" == Rudy Gevaert <rudy@gnu.org> writes:

    RG> Hi How can I mark al the uneven weeks?
		                        
Do you mean the ISO week numbering?  If so, for example, a diary entry for the 
Monday of each such week would be

&%%(let* ((iso-date (calendar-iso-from-absolute
                     (calendar-absolute-from-gregorian date)))
          (week (extract-calendar-month iso-date))
          (day (extract-calendar-day iso-date)))
     (and (= day 1)
          (= (% week 2) 1))) Today is Monday of an odd week



-- 

Professor Edward M. Reingold                Email: reingold@iit.edu
Chairman, Department of Computer Science    Voice: (312) 567-3309
Illinois Institute of Technology            Assistant: (312) 567-5152
Stuart Building                             Fax:   (312) 567-5067
10 West 31st Street, Suite 236
Chicago, IL  60616-3729  U.S.A.

Diary question

[Steve Brown]

Hi All,

I can mark the last instance of a particular day using

%%(diary-float t 4 -1)

and alls well, but I get paid on the last working day, and I'd like to
mark it. I would guess that I could change the 4 for a list, but it
didn't work, and now I'm lost.

Anyone got a clue for me?

Thank you, Steve.

Re: Diary question

[Edward M. Reingold]

>>>>> "SB" == Steve Brown <steve.stevebrown@gmail.com> writes:

    SB> %%(diary-float t 4 -1)

    SB> and alls well, but I get paid on the last working day, and I'd like to
    SB> mark it. I would guess that I could change the 4 for a list, but it
    SB> didn't work, and now I'm lost.

For example:

&%%(let* ((month (extract-calendar-month date))
          (day (extract-calendar-day date))
          (year (extract-calendar-year date))
          (last (calendar-last-day-of-month month year))
          (dayname (calendar-day-of-week date)))
     (or (and (= day last) (memq dayname '(1 2 3 4 5)))
         (and (or (= day (1- last)) (= day (- last 2)))
              (= dayname 5)))) Payday!

Or, if it's the first work day of the month:

&%%(let ((dayname (calendar-day-of-week date))
         (day (car (cdr date))))
     (or (and (= day 1) (memq dayname '(1 2 3 4 5)))
         (and (memq day '(2 3)) (= dayname 1)))) Rent due

-- 

Professor Edward M. Reingold                Email: reingold@iit.edu
Department of Computer Science              Voice: (312) 567-3309
Illinois Institute of Technology            Fax:   (312) 567-5067
Stuart Building, 228F
10 West 31st Street
Chicago, IL  60616-3729  U.S.A.

Re: Diary question

[Steve Brown]

Absolutely superb.

Thank you very much for your fast reply.

Steve