|
Booth, > Fill "DateTest" with any Sunday's date and use "DateIn" as your target >date. Then run this bit. "indx" will be the day of the week where >0=Sunday, 6=Saturday. (Test it though - I may be off a day) > C* > C DateIn subdur DateTest days:*d 7 0 > C days div 7 days > C mvr indx 1 With this code you need to be sure that your "any Sunday" base date is older than DateIn. If so, you're OK. If not, you can have a problem because the remainder can be negative. So you should add a test to see if indx < 0 and if so do indx = indx + 7 to put it back in range. Also note that ISO 8601 says that days should be numbered 1=Monday thru 7=Sunday, but that is another matter. Personally I like to put this in a subprocedure (like Rob's post) rather than code it inline. Mine is in a service program, with the rest of my date handling functions. Doug +--- | This is the RPG/400 Mailing List! | To submit a new message, send your mail to RPG400-L@midrange.com. | To subscribe to this list send email to RPG400-L-SUB@midrange.com. | To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com. | Questions should be directed to the list owner/operator: david@midrange.com +---
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2025 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.