Shopping Cart

Free Newsletter
Signup

Contact

FileMaker is a registered trademark of FileMaker, Inc. in the U.S. and other countries.

FileMaker Pro Custom Functions

List | Show Random | Upload | Add This to Your Site

fnCalendarLite ( date_field ; parameter ; iteration ; highlight_weekends ; holiday_list )

Rate this function:

Average rating: 3.4 (9 votes)
Discuss this Custom Function

Andrew Butt, Drewsol
http://www.drewsol.com

fnCalendar minus documentation and integrated holiday list.

Sample Input:

fnCalendarLite ( "6/1/2009" ; "calendar" ; 3 ; "" ; "" )

Sample Output:

(Shows month of August 2009 in 42 repeating fields. Days outside of August are grayed.)

/* fnCalendarLite™ v1.6 Copyright © 2009 Drewsol This CF consolidates a simple calendar display and selection tool complete with limitless iterations, highlights, holidays, and tooltips. */ Let ( [ // === CALENDAR HIGHLIGHT COLORS === // Off-month Days (Default: Gray) color_off_month_day = RGB ( 160 ; 160 ; 160 ) ; // Weekends (Default: Light-Gray) color_weekend = RGB ( 238 ; 238 ; 238 ) ; // Date Selected (Default: Light-Yellow) color_date_selected = RGB ( 255 ; 238 ; 192 ) ; // Holidays (Default Light-Green) color_holiday = RGB ( 224 ; 255 ; 238 ) ; highlight = TextSize ( "██" ; 40 ) ; highlight_date_selected = TextSize ( "██" ; 40 ) ; // === SET DEFAULTS FOR EMPTY PARAMETERS === date_field = Case ( date_field <> "" ; date_field ; Get ( CurrentDate ) ) ; parameter = Case ( parameter <> "" ; parameter ; "calendar" ) ; iteration = Case ( iteration <> "" ; iteration ; 1 ) ; highlight_weekends = Case ( highlight_weekends <> "" ; highlight_weekends ; 0 ) ; holiday_list = Case ( holiday_list <> "" ; holiday_list ; "" ) ; // === MAIN VARIABLES === i = iteration ; cal_index = Get ( CalculationRepetitionNumber ) ; date_selected = GetRepetition ( date_field ; 1 ) ; mx_total_days = Day ( Date ( Month ( date_selected ) + i ; 1 ; Year ( date_selected ) ) - 1 ) ; mx_date_monthbeg = Date ( Month ( date_selected ) + ( i - 1 ) ; 1 ; Year ( date_selected ) ) ; mx_date_monthend_prev_month = Date ( Month ( date_selected ) + ( i - 1 ) ; 1 ; Year ( date_selected ) ) - 1 ; mx_date_monthend_prev_month_dayofweek = DayOfWeek ( mx_date_monthend_prev_month ) ; mx_total_days_prev_month = Day ( mx_date_monthend_prev_month ) ; mx_index = Let ( [ mx_date_monthbeg_dayofweek = DayOfWeek ( mx_date_monthbeg ) ; X = mx_date_monthbeg_dayofweek - 1 ] ; Case ( X > 0 ; cal_index - X ; X = 0 ; cal_index - X - 7 ) ) ; mx_date = Date ( Month ( date_selected ) + ( i - 1 ) ; mx_index ; Year ( date_selected ) ) ; // === CALENDAR === mx_buffer = Case ( DayOfWeek ( mx_date_monthbeg ) = 1 ; 8 - 1 ; DayOfWeek ( mx_date_monthbeg ) - 1 ) ; mx_textstyle = If ( mx_date = Get ( CurrentDate ) ; Bold ; Plain ) ; mx_calendar = TextStyleAdd ( Case ( // Dates Before Month X (Grayed) mx_index ≤ 0 ; TextColor ( cal_index + ( mx_total_days_prev_month - mx_date_monthend_prev_month_dayofweek ) ; color_off_month_day ) ; // Dates Within Month X mx_index > 0 and mx_index ≤ mx_total_days ; mx_index ; // Dates After Month X (Grayed) mx_index > mx_total_days ; TextColor ( cal_index - mx_total_days - mx_buffer ; color_off_month_day ) ) ; mx_textstyle ) ] ; Case ( parameter = "label_monthname_year" ; MonthName ( mx_date ) & " " & Year ( mx_date ) ; parameter = "label_days_of_week" ; // Better localized on the label field to avoid processing declarations above. Let ( n = Get ( CalculationRepetitionNumber ) ; Case ( n = 1 ; "S" ; n = 2 ; "M" ; n = 3 ; "T" ; n = 4 ; "W" ; n = 5 ; "R" ; n = 6 ; "F" ; n = 7 ; "S" ) ) ; parameter = "label_days_of_week_abv" ; // Better localized on the label field to avoid processing declarations above. Let ( n = Get ( CalculationRepetitionNumber ) ; Case ( n = 1 ; "Sun" ; n = 2 ; "Mon" ; n = 3 ; "Tue" ; n = 4 ; "Wed" ; n = 5 ; "Thu" ; n = 6 ; "Fri" ; n = 7 ; "Sat" ) ) ; parameter = "date" ; mx_date ; parameter = "calendar" ; mx_calendar ; parameter = "index" ; cal_index ; parameter = "calendar_highlights" or PatternCount ( parameter ; "tooltip" ) > 0 or parameter = "holiday_list" ; Let ( [ Y = Year ( mx_date ) ; // === INTEGRATED HOLIDAY LIST - BEG === (This section can be commented out / removed for better performance over remote networks) holiday_list = Case ( holiday_list = "" ; "" ; holiday_list <> "" and holiday_list <> "included" ; holiday_list ) // INTEGRATED HOLIDAY LIST - END ] ; Case ( parameter = "calendar_highlights" ; // CALENDAR HIGHLIGHTS (current day, date selected, holidays). Case ( mx_index > 0 and mx_index ≤ mx_total_days and mx_date = date_selected ; TextColor ( highlight_date_selected ; color_date_selected ) ; PatternCount ( Substitute ( " " & holiday_list & " " ; [ "¶" ; " " ] ) ; " " & mx_date & " " ) > 0 ; TextColor ( highlight ; color_holiday ) ; highlight_weekends = 1 and ( DayOfWeek ( mx_date ) = 1 or DayOfWeek ( mx_date ) = 7 ) ; TextColor ( highlight ; color_weekend ) ) ; PatternCount ( parameter ; "tooltip" ) > 0 ; Case ( mx_date = Get ( CurrentDate ) ; "Today:" & "¶" ) & Case ( parameter = "tooltip" ; mx_date ; parameter = "tooltip_long" ; DayName ( mx_date ) & ", " & MonthName ( mx_date ) & " " & Day ( mx_date ) & ", " & Year ( mx_date ) ) & Case ( PatternCount ( Substitute ( " " & holiday_list & " " ; [ "¶" ; " " ] ) ; " " & mx_date & " " ) ; Let ( [ pos1 = Position ( holiday_list ; mx_date ; 1 ; 1 ) ; pos2 = Position ( holiday_list ; " " ; pos1 ; 1 ) + 1 ; pos3 = Position ( holiday_list & "¶" ; "¶" ; pos1 ; 1 ) ; holiday_name = Middle ( holiday_list ; pos2 ; pos3 - pos2 ) ] ; Case ( holiday_name <> "" ; "¶" & holiday_name ) ) ) ; parameter = "holiday_list" ; holiday_list ; ) /*End Case*/ ) /*End Let*/ ) /*End Case*/ ) /*End Let*/
Then copy & paste into FileMaker Advanced's Edit Custom Function window.

Click here to copy To Clip Manager if you have myFMbutler's Clip Manager installed

Description:

fnCalendar™ minus documentation and integrated holiday list.

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

This is my Custom Function and I want to edit it

Discuss:

Seems to be a nice idea for calendar.
But it doesn't seems to work.
This example return a 22 in grey color.
Should I miss something?
Do you have a simple example to download?
Could I have more details about the parameters?
Thanks
Ben

Benoit Kaisin, Belgium
January 12, 2010 7:41pm

The documentation included in the full fnCalendar function provides the instructions you'll need. Please email me with any questions.

Andrew Butt, Los Angeles, CA
January 13, 2010 9:41am

Doesn't work; all but first cell empty.
Missing extend()?
1.5 worked OK.

Bruce Robertson, Redmond WA
February 01, 2010 11:51am

If you're using the global calculation option, you'll need (1) to use the date as a trigger field and (2) the Extend function as noted in Step 3a in the documentation:
Let (
trigger = CAL::Date_G ;
fnCalendar ( Extend ( <date field> ) ; "calendar" ; 1 ; "" ; "" )
)

Andrew Butt, Los Angeles, CA
May 29, 2010 2:45pm

Make a comment about this Custom Function (please try to keep it brief & to the point). Anyone can post:

Download the Custom Function Dashboard Widget for OS X
Keep all the latest Custom Functions right at your fingertips!

Newest Custom Functions:

1.	indonesian_date(date)
	(Mon, Feb 06, 7:14pm)
2.	phpArrayValue ( array ; key ; pos )
	(Fri, Jan 27, 1:49pm)
3.	solfm_timeToMinutes (theTime;roundSec)
	(Fri, Jan 20, 6:26am)
4.	filterLines(filterField;filterValue;Result)
	(Sat, Jan 14, 2:20pm)
5.	getMaxValue ( theList )
	(Thu, Jan 12, 1:06pm)
6.	MiddleWordsIncPunct ( text ; startingWord ; numberOfWords )
	(Sat, Jan 07, 9:16am)
7.	WindowInfo
	(Fri, Jan 06, 12:39pm)
8.	CenterWindow in Window vert horiz (demension)
	(Fri, Jan 06, 12:25pm)


			[ Close Window ]
	The class that teaches you how to successfully sell your FileMaker Pro solution as a professional shrinkwrapped software application.
	Let's Meet in Person Sunday, August 13 2006, Orlando FL Courtyard Orlando International Drive
	Don't miss this most important day of the Developer Conference. Please click here for complete details and online registration.

FileMaker Pro Custom Functions

Description:

Discuss:

Let's Meet in Person