Domino Code Fragment

Code Name*
Precompute List of Monthly Dates		Date*
04/28/2024		Source (or email address if you prefer)*
Rlatulippe@romac.com
IP address:.18.225.209.95
Description*
This formula generates a list of dates.		Type*
Formula		Categories*
Date/Time Handling
Implementation:
Required Client:
Server:
Limitations:
Comments:
Keyword Formula The same formula may be used as a keyword formula by replacing the last two statements: Period0 : Period1 : Period2 : Period3
Files/Graphics attachments (if applicable): Code:
Default Value Formula

m0 := @Month(@Adjust(@Now; 0; 1; 0; 0; 0; 0));
m1 := @Month(@Now);
m2 := @Month(@Adjust(@Now; 0; -1; 0; 0; 0; 0));
m3 := @Month(@Adjust(@Now; 0; -2; 0; 0; 0; 0));
y0 := @Text(@Year(@Adjust(@Now; 0; 1; 0; 0; 0; 0)));
y1 := @Text(@Year(@Now));
y2 := @Text(@Year(@Adjust(@Now; 0; -1; 0; 0; 0; 0)));
y3 := @Text(@Year(@Adjust(@Now; 0; -2; 0; 0; 0; 0)));
mt0 := @Select(m0; "January"; "February"; "March"; "April"; "May"; "June"; "July"; "August"; "September"; "October"; "November"; "December");
mt1 := @Select(m1; "January"; "February"; "March"; "April"; "May"; "June"; "July"; "August"; "September"; "October"; "November"; "December");
mt2 := @Select(m2; "January"; "February"; "March"; "April"; "May"; "June"; "July"; "August"; "September"; "October"; "November"; "December");
mt3 := @Select(m3; "January"; "February"; "March"; "April"; "May"; "June"; "July"; "August"; "September"; "October"; "November"; "December");
Period0 := mt0 + " " + y0;
Period1 := mt1 + " " + y1;
Period2 := mt2 + " " + y2;
Period3 := mt3 + " " + y3;
Period := @Prompt([OKCANCELLIST]; "Time Period"; "Please select the appropriate time period for this report"; Period1; Period0 : Period1 : Period2 : Period3);
Period