Domino Code Fragment

Code Name*
Pop-up Calendar		Date*
02/13/1999		Source (or email address if you prefer)*
Rlatulippe@romac.com
IP address:.18.119.131.178
Description*
Presents a calendar of the current month when clicked		Type*
Formula		Categories*
Date/Time Handling, User Interface (Notes)
Implementation:
None (plug and play)		Required Client:
Server:
Limitations:
Comments:
Make sure you select "Formula" in the pop-up hotspot
for this to work.
Files/Graphics attachments (if applicable): Code:
The formula below is a pop-up calendar that can be placed behind an icon in a Formula Hotspot.

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"