CalendarLite ( date_field ; option ; iteration ; x_start_on_monday ; x_highlight_weekends ; holiday_list )

Same as Calendar (minus documentation and integrated holiday list).

Average rating: 4.1 (33 votes) Log in to vote

Drew Wesley - Show more from this author
Drewsol
https://www.drewsol.com

Sample input:

CalendarLite ( "6/1/2012" ; "calendar" ; 3 ; "" ; "" ; "" )

Sample output:

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

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

/*
Calendar Lite v2.2
Copyright © 2009-2012 Drewsol

GNU Lesser General Public License:  This function is free software: you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation, either version 3 of the License, or (at your option) any later version.  This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU Lesser General Public License for more details.  You should have received a copy of the GNU Lesser General Public License along with this program.  If not, see <http://www.gnu.org/licenses/>.

This CF consolidates a simple calendar display and selection tool complete with limitless iterations, highlights, holidays, and tooltips.

CalendarLite ( date_field ; option ; iteration ; x_start_on_monday ; x_highlight_weekends ; holiday_list )

//   --- EXTRA DOCUMENTATION (Beg) ---
//   --- EXTRA DOCUMENTATION (End) ---
*/

Let ( [

   //   === CALENDAR HIGHLIGHT COLORS (Customize to your liking using RGB codes) ===

   //  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 <> "" ; Extend ( date_field ) ; Get ( CurrentDate ) ) ;
   //date_field = Case ( date_field <> "" ; date_field ; Get ( CurrentDate ) ) ;
   option = Case ( option <> "" ; option ; "calendar" ) ;
   iteration = Case ( iteration <> "" ; iteration ; 1 ) ;
   highlight_weekends = Case ( x_highlight_weekends <> "" ; x_highlight_weekends ; 0 ) ;
   holiday_list = Case ( holiday_list <> "" ; holiday_list ; "" ) ;


   //   === MAIN VARIABLES ===
   i = iteration ;

   cal_index =
   Case (
      x_start_on_monday = 1 ;
      Get ( CalculationRepetitionNumber ) + 1 ;
      Get ( CalculationRepetitionNumber )
   ) ;

   date_selected = GetRepetition ( Extend ( 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 (

      option = "label_monthname_year" ;
      MonthName ( mx_date ) & " " & Year ( mx_date ) ;

      option = "label_days_of_week" ;
      // Better localized on the label field to avoid processing declarations above.
      Let (
         n = Get ( CalculationRepetitionNumber ) ;
         Case ( 
            x_start_on_monday = 1 ;
               Case ( n = 1 ; "M" ; n = 2 ; "T" ; n = 3 ; "W" ; n = 4 ; "R" ; n = 5 ; "F" ; n = 6 ; "S" ; n = 7 ; "S" ) ;
               Case ( n = 1 ; "S" ; n = 2 ; "M" ; n = 3 ; "T" ; n = 4 ; "W" ; n = 5 ; "R" ; n = 6 ; "F" ; n = 7 ; "S" )
            )
      ) ;

      option = "label_days_of_week_abv" ;
      // Better localized on the label field to avoid processing declarations above.
      Let (
         n = Get ( CalculationRepetitionNumber ) ;
         Case ( 
            x_start_on_monday = 1 ;
            Case ( n = 1 ; "Mon" ; n = 2 ; "Tue" ; n = 3 ; "Wed" ; n = 4 ; "Thu" ; n = 5 ; "Fri" ; n = 6 ; "Sat" ; n = 7 ; "Sun" ) ;
            Case ( n = 1 ; "Sun" ; n = 2 ; "Mon" ; n = 3 ; "Tue" ; n = 4 ; "Wed" ; n = 5 ; "Thu" ; n = 6 ; "Fri" ; n = 7 ; "Sat" )
         )
      ) ;

      // --- Week of Year Addition for v2.1 ---
      option = "label_week_of_year" ;
      Let ( [
         n = Get ( CalculationRepetitionNumber ) ;
         mx_date_weekbeg = mx_date - DayOfWeek ( mx_date ) + 1 + x_start_on_monday
         ] ;
         WeekOfYear ( mx_date_weekbeg + ( ( n - 1 ) * 7 ) )
      ) ;

      option = "label_week_of_year_fiscal" ;
      Let ( [
         n = Get ( CalculationRepetitionNumber ) ;
         mx_date_weekbeg = mx_date - DayOfWeek ( mx_date ) + 1 + x_start_on_monday
         ] ;
         WeekOfYearFiscal ( mx_date_weekbeg + ( ( n - 1 ) * 7 ) ; 1 + x_start_on_monday )
      ) ;
      // --- Week of Year Addition for v2.1 ---

      option = "date" ;
      mx_date ;

      option = "calendar" ;
      mx_calendar ;

      option = "index" ;
      cal_index ;

      option = "calendar_highlights" or
      PatternCount ( option ; "tooltip" ) > 0 or

      option = "holiday_list" ;
      Let ( [
         Y = Year ( mx_date ) ;

         holiday_list =
         Case (
            holiday_list = "" ;
            "" ;
            holiday_list <> "" and holiday_list <> "included" ;
            holiday_list

         // fnCalendarLite - replace the semi-colon with an end parenthesis to close the Case ( ).
         )

         //   --- INTEGRATED HOLIDAY LIST (Beg) --- (This section can be commented out / removed for better performance over remote networks)
         //   --- INTEGRATED HOLIDAY LIST (End) ---

         ] ;

         Case ( 
            option = "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 ( option ; "tooltip" ) > 0 ;
            Case ( mx_date = Get ( CurrentDate ) ; "Today:" & "¶" ) &
            Case (
               option = "tooltip" ;
               mx_date ;
               option = "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
                  )
               )
            ) ;

            option = "holiday_list" ;
            holiday_list ;

         ) /*End Case*/

      ) /*End Let*/

   ) /*End Case*/

) /*End Let*/

Same as Calendar (minus the extra documentation and integrated holiday list).

Comments

		Benoit Kaisin, Belgium Jan 12, 2010
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

		Andrew Butt, Los Angeles, CA Jan 13, 2010
The documentation included in the full fnCalendar function provides the instructions you'll need. Please email me with any questions.

		Bruce Robertson Feb 1, 2010
Doesn't work; all but first cell empty. Missing extend()? 1.5 worked OK.

		Andrew Butt, Los Angeles, CA May 29, 2010
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 ; "" ; "" ) )

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

CalendarLite ( date_field ; option ; iteration ; x_start_on_monday ; x_highlight_weekends ; holiday_list )

Comments

Support this website.

Support this website.