Calendar ( c_Date )

Require FM8+. Shows monthly calendar view with different colour for previous/next month days, Sundays and today. Custom function can be used as calculation field.

Average rating: 3.9 (39 votes) Log in to vote

JERRY - Show more from this author

Sample input:

Calendar ("02/03/06")

Sample output:

(May not show color or text styles)

29 30 31 1 2 3 4
5 6 7 8 9 10 11
12 13 14 15 16 17 18
19 20 21 22 23 24 25
26 27 28 1 2 3 4
5 6 7 8 9 10 11

Function definition: (Copy & paste into FileMaker's Edit Custom Function window)

// Calendar(c_Date)  // c_Date -- Function Parameter
//
// This calendar works very fast even though it uses text function extensively. 
// In order to display this calendar properly use Text PARAGRAPH  settings for the field 
// ( exp. for Verdana10 I use Line Spacing 22 px and Tabs: 22,44,66,88,110,132,154 ) 
//
// To pick the date put 42 transperent buttons on top and use script with parameter. Something like this:
// Set DBDate to 
// Date(Month(c_Date);Get ( ScriptParameter )-DayOfWeek(Date(Month(c_Date);1;Year(c_Date)))+1; Year(c_Date))
// -------------------------------------------------------------------------------------------

Let
(
 [
  RED  		= RGB ( 200 ; 50  ; 50   );	// SUNDAYs COLOR
  GREY		= RGB ( 161 ; 161; 161 );	// PREVIOUS and NEXT MONTH COLOR
  BLUE 		= RGB ( 50   ; 50  ; 200 );	// TODAY COLOR
  
  DAY1_DATE	= Date(Month(C_Date);1;Year(C_Date));
  DAY1_DOW	= DayOfWeek(DAY1_DATE);
  DAYS		= Day(Date(Month(C_Date)+1;1;Year(C_Date))-1);
  TODAY 		= If( Month (Get(CurrentDate))=Month(c_Date) and Year(Get(CurrentDate))=Year(c_Date) ; 
			TextStyleAdd(TextColor(Day(Get(CurrentDate));BLUE);Bold);  	// any other styles for today can be added here
			Day(Get(CurrentDate)));							// if today is not current month - no color
  TODAY 		= If(Length ( TODAY ) =1 ; "	 " & TODAY;"	" & TODAY); 	// adding <tab> and <space>

  STRING      	= "	 1	 2	 3	 4	 5	 6	 7	 8	 9	10	11	12	13	14	15	16	17	18	19	20	21	22	23	24	25	26	27	28	29	30	31";
  
  STR	= Left(STRING ; 3*DAYS)

 ];
TextColor(Middle( STRING ; 1+3*(Day(DAY1_DATE-1)-DAY1_DOW+1) ; 3*(DAY1_DOW-1));GREY) & 
/* set todays color */ Substitute ( 
If(DAY1_DOW=1;TextColor("	 1";RED);"	 1")&
Middle( STR;4 ; 3*( 7-DAY1_DOW ))	& "¶" &

TextColor(Middle( STR;1+3*(8-DAY1_DOW) ; 3); RED) &
Middle( STR;1+3*(9-DAY1_DOW) ; 18)	& "¶" &

TextColor(Middle( STR;1+3*(15-DAY1_DOW) ; 3); RED) &
Middle( STR;1+3*(16-DAY1_DOW);18)	& "¶" &

TextColor(Middle( STR;1+3*(22-DAY1_DOW) ; 3); RED) &
Middle( STR;1+3*(23-DAY1_DOW);18)	& "¶" &

TextColor(Middle( STR;1+3*(29-DAY1_DOW) ; 3); RED) &
Middle( STR;1+3*(30-DAY1_DOW);18)	& If(DAY1_DOW+DAYS <36; "" ;"¶") &

TextColor(Middle( STR;1+3*(36-DAY1_DOW) ; 3); RED) &
Middle( STR;1+3*(37-DAY1_DOW);18)
/* end of Substitute, second 'today' is blue color */ ; TODAY;TODAY&TextColorRemove(" "))
&TextColor(Left(Replace(STRING;1+3*(8-DayOfWeek(DAY1_DATE+DAYS));0;"¶");130-3*(DAY1_DOW+DAYS));GREY)
)

// Calendar(c_Date) // c_Date -- Function Parameter
This calendar works very fast even though it uses text function extensively. In order to display this calendar properly use Text PARAGRAPH settings for the field ( exp. for Verdana10 I use Line Spacing 22 px and Tabs: 22,44,66,88,110,132,154 )

To pick the date put 42 transperent buttons on top and use script with parameter. Something like this:
Set DBDate to
Date(Month(c_Date);Get ( ScriptParameter )-DayOfWeek(Date(Month(c_Date);1;Year(c_Date)))+1; Year(c_Date))

Comments

		Wilmer, Anaheim, Ca Mar 26, 2009
HI Brian, can you help me please I can't pick up the date from the calendar can you help me with the script and parameter. Thanks, Wilmer

Note: these functions are not guaranteed or supported by BrianDunning.com. Please contact the individual developer with any questions or problems.

Calendar ( c_Date )

Comments

Support this website.

Support this website.