FileMaker Pro Custom Functions

/* 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.