Domino Code Fragment

Code Name*
Calendar Pop-Up		Date*
04/28/2024		Source (or email address if you prefer)*
Rlatulippe@romac.com
IP address:.3.145.97.248
Description*
The formula below is a pop-up calendar that can be placed behind an icon. A working example of this function can be found in the Client Service Call Tracker application. Make sure you select "Formula" in the pop-up window for this to work. Click on icon below for demo :		Type*
Formula		Categories*
(Misc)
Implementation:
Required Client:
Server:
Limitations:
Comments:
Files/Graphics attachments (if applicable): Code:
Date := @Today;
A := @Adjust(Date; 0; 0; -(@Day(Date) - 1); 0; 0; 0);
A1 := @Weekday(A);
A2 := A;
A3 := @Month(A);
C1 := @Adjust(A2; 0; 0; (1 - A1); 0; 0; 0);
C2 := @Adjust(A2; 0; 0; (2 - A1); 0; 0; 0);
C3 := @Adjust(A2; 0; 0; (3 - A1); 0; 0; 0);
C4 := @Adjust(A2; 0; 0; (4 - A1); 0; 0; 0);
C5 := @Adjust(A2; 0; 0; (5 - A1); 0; 0; 0);
C6 := @Adjust(A2; 0; 0; (6 - A1); 0; 0; 0);
C7 := @Adjust(A2; 0; 0; (7 - A1); 0; 0; 0);
C8 := @Adjust(A2; 0; 0; (8 - A1); 0; 0; 0);
C9 := @Adjust(A2; 0; 0; (9 - A1); 0; 0; 0);
C10 := @Adjust(A2; 0; 0; (10 - A1); 0; 0; 0);
C11 := @Adjust(A2; 0; 0; (11 - A1); 0; 0; 0);
C12 := @Adjust(A2; 0; 0; (12 - A1); 0; 0; 0);
C13 := @Adjust(A2; 0; 0; (13 - A1); 0; 0; 0);
C14 := @Adjust(A2; 0; 0; (14 - A1); 0; 0; 0);
C15 := @Adjust(A2; 0; 0; (15 - A1); 0; 0; 0);
C16 := @Adjust(A2; 0; 0; (16 - A1); 0; 0; 0);
C17 := @Adjust(A2; 0; 0; (17 - A1); 0; 0; 0);
C18 := @Adjust(A2; 0; 0; (18 - A1); 0; 0; 0);
C19 := @Adjust(A2; 0; 0; (19 - A1); 0; 0; 0);
C20 := @Adjust(A2; 0; 0; (20 - A1); 0; 0; 0);
C21 := @Adjust(A2; 0; 0; (21 - A1); 0; 0; 0);
C22 := @Adjust(A2; 0; 0; (22 - A1); 0; 0; 0);
C23 := @Adjust(A2; 0; 0; (23 - A1); 0; 0; 0);
C24 := @Adjust(A2; 0; 0; (24 - A1); 0; 0; 0);
C25 := @Adjust(A2; 0; 0; (25 - A1); 0; 0; 0);
C26 := @Adjust(A2; 0; 0; (26 - A1); 0; 0; 0);
C27 := @Adjust(A2; 0; 0; (27 - A1); 0; 0; 0);
C28 := @Adjust(A2; 0; 0; (28 - A1); 0; 0; 0);
C29 := @Adjust(A2; 0; 0; (29 - A1); 0; 0; 0);
C30 := @Adjust(A2; 0; 0; (30 - A1); 0; 0; 0);
C31 := @Adjust(A2; 0; 0; (31 - A1); 0; 0; 0);
C32 := @Adjust(A2; 0; 0; (32 - A1); 0; 0; 0);
C33 := @Adjust(A2; 0; 0; (33 - A1); 0; 0; 0);
C34 := @Adjust(A2; 0; 0; (34 - A1); 0; 0; 0);
C35 := @Adjust(A2; 0; 0; (35 - A1); 0; 0; 0);
C36 := @Adjust(A2; 0; 0; (36 - A1); 0; 0; 0);
C37 := @Adjust(A2; 0; 0; (37 - A1); 0; 0; 0);
B1 := @If(@Month(C1) != A3; " -- "; @Right("0" + @Text(@Day(C1)); 2));
B2 := @If(@Month(C2) != A3; " -- "; @Right("0" + @Text(@Day(C2)); 2));
B3 := @If(@Month(C3) != A3; " -- "; @Right("0" + @Text(@Day(C3)); 2));
B4 := @If(@Month(C4) != A3; " -- "; @Right("0" + @Text(@Day(C4)); 2));
B5 := @If(@Month(C5) != A3; " -- "; @Right("0" + @Text(@Day(C5)); 2));
B6 := @If(@Month(C6) != A3; " -- "; @Right("0" + @Text(@Day(C6)); 2));
B7 := @If(@Month(C7) != A3; " -- "; @Right("0" + @Text(@Day(C7)); 2));
B8 := @If(@Month(C8) != A3; " -- "; @Right("0" + @Text(@Day(C8)); 2));
B9 := @If(@Month(C9) != A3; " -- "; @Right("0" + @Text(@Day(C9)); 2));
B10 := @If(@Month(C10) != A3; " -- "; @Right("0" + @Text(@Day(C10)); 2));
B11 := @If(@Month(C11) != A3; " -- "; @Right("0" + @Text(@Day(C11)); 2));
B12 := @If(@Month(C12) != A3; " -- "; @Right("0" + @Text(@Day(C12)); 2));
B13 := @If(@Month(C13) != A3; " -- "; @Right("0" + @Text(@Day(C13)); 2));
B14 := @If(@Month(C14) != A3; " -- "; @Right("0" + @Text(@Day(C14)); 2));
B15 := @If(@Month(C15) != A3; " -- "; @Right("0" + @Text(@Day(C15)); 2));
B16 := @If(@Month(C16) != A3; " -- "; @Right("0" + @Text(@Day(C16)); 2));
B17 := @If(@Month(C17) != A3; " -- "; @Right("0" + @Text(@Day(C17)); 2));
B18 := @If(@Month(C18) != A3; " -- "; @Right("0" + @Text(@Day(C18)); 2));
B19 := @If(@Month(C19) != A3; " -- "; @Right("0" + @Text(@Day(C19)); 2));
B20 := @If(@Month(C20) != A3; " -- "; @Right("0" + @Text(@Day(C20)); 2));
B21 := @If(@Month(C21) != A3; " -- "; @Right("0" + @Text(@Day(C21)); 2));
B22 := @If(@Month(C22) != A3; " -- "; @Right("0" + @Text(@Day(C22)); 2));
B23 := @If(@Month(C23) != A3; " -- "; @Right("0" + @Text(@Day(C23)); 2));
B24 := @If(@Month(C24) != A3; " -- "; @Right("0" + @Text(@Day(C24)); 2));
B25 := @If(@Month(C25) != A3; " -- "; @Right("0" + @Text(@Day(C25)); 2));
B26 := @If(@Month(C26) != A3; " -- "; @Right("0" + @Text(@Day(C26)); 2));
B27 := @If(@Month(C27) != A3; " -- "; @Right("0" + @Text(@Day(C27)); 2));
B28 := @If(@Month(C28) != A3; " -- "; @Right("0" + @Text(@Day(C28)); 2));
B29 := @If(@Month(C29) != A3; " -- "; @Right("0" + @Text(@Day(C29)); 2));
B30 := @If(@Month(C30) != A3; " -- "; @Right("0" + @Text(@Day(C30)); 2));
B31 := @If(@Month(C31) != A3; " -- "; @Right("0" + @Text(@Day(C31)); 2));
B32 := @If(@Month(C32) != A3; " -- "; @Right("0" + @Text(@Day(C32)); 2));
B33 := @If(@Month(C33) != A3; " -- "; @Right("0" + @Text(@Day(C33)); 2));
B34 := @If(@Month(C34) != A3; " -- "; @Right("0" + @Text(@Day(C34)); 2));
B35 := @If(@Month(C35) != A3; " -- "; @Right("0" + @Text(@Day(C35)); 2));
B36 := @If(@Month(C36) != A3; " -- "; @Right("0" + @Text(@Day(C36)); 2));
B37 := @If(@Month(C37) != A3; " -- "; @Right("0" + @Text(@Day(C37)); 2));
ShowMonth := @Select(@Month(A2); "January"; "February"; "March"; "April";
"May"; "June"; "July"; "August"; "September"; "October"; "November"; "December");
ShowMonth + " " + @Text(@Year(A2)) + @NewLine + " S M T W T F S" +
@NewLine + B1 + " " + B2 + " " + B3 + " " + B4 + " " + B5 + " " + B6 + " " + B7 +
@NewLine + B8 + " " + B9 + " " + B10 + " " + B11 + " " + B12 + " " + B13 + " " + B14 +
@NewLine + B15 + " " + B16 + " " + B17 + " " + B18 + " " + B19 + " " + B20 + " " + B21 +
@NewLine + B22 + " " + B23 + " " + B24 + " " + B25 + " " + B26 + " " + B27 + " " + B28 + " " +
@NewLine + B29 + " " + B30 + " " + B31 + " " + B32 + " " + B33 + " " + B34 + " " + B35 + " " +
@NewLine + B36 + " " + B37 + @NewLine + "Templeton Client Services"