Domino Code Fragment

Code Name*
Precompute List of Weekly Dates		Date*
04/28/2024		Source (or email address if you prefer)*
Rlatulippe@romac.com
IP address:.18.223.124.244
Description*
Sets up keyword field with list of dates, all on the same day. Formula below set to calculate Fridays and return the next five Fridays. Formula can be altered easily to yield more dates, past dates, some past/some future dates, etc.		Type*
Formula		Categories*
Date/Time Handling
Implementation:
Required Client:
Server:
Limitations:
Comments:
Files/Graphics attachments (if applicable): Code:
FIELD = Editable, Keywords

Keyword - formula

REM "Temp variable will get Friday, adjust to get other days"
Temp := 6 - @Weekday(@Today);
a := @Adjust(@Today; 0; 0; Temp; 0; 0; 0);
b := @Adjust(@Today; 0; 0; Temp + 7; 0; 0; 0);
c := @Adjust(@Today; 0; 0; Temp + 14; 0; 0; 0);
d := @Adjust(@Today; 0; 0; Temp + 21; 0; 0; 0);
e := @Adjust(@Today; 0; 0; Temp + 28; 0; 0; 0);
a1 := @Text(@Month(a));
a2 := @Text(@Day(a));
a3 := @Right(@Text(@Year(a)); 2);
a4 := a1 + "/" + a2 + "/" + a3;
b1 := @Text(@Month(b));
b2 := @Text(@Day(b));
b3 := @Right(@Text(@Year(b)); 2);
b4 := b1 + "/" + b2 + "/" + b3;
c1 := @Text(@Month(c));
c2 := @Text(@Day(c));
c3 := @Right(@Text(@Year(c)); 2);
c4 := c1 + "/" + c2 + "/" + c3;
d1 := @Text(@Month(d));
d2 := @Text(@Day(d));
d3 := @Right(@Text(@Year(d)); 2);
d4 := d1 + "/" + d2 + "/" + d3;
e1 := @Text(@Month(e));
e2 := @Text(@Day(e));
e3 := @Right(@Text(@Year(e)); 2);
e4 := e1 + "/" + e2 + "/" + e3;
a4 : b4 : c4 : d4 : e4