Shopping Cart

Free Newsletter
Signup

Contact me | vCard

Brian on CNN

Brian on CBS Radio

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

FileMaker Pro Custom Functions

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

Calendar ( c_Date )

Jerry, D
http://www.canada.com

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.

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

// 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) )
Then copy & paste into FileMaker Advanced's Edit Custom Function window.

if you have myFMbutler's Clip Manager installed

Description:

// 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))

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

digg this page | del.icio.us this page

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

Newest Custom Functions:

1.	PVofFV ( FutureVal , Interest , Term )
	(Sat, May 10, 6:52pm)
2.	Edate ( thedate ; months )
	(Sat, May 10, 5:21pm)
3.	FormatDate( DatetoFormat )
	(Thu, May 08, 6:05pm)

Quick Poll...

Are you mainly Mac
or mainly Windows?

• Mac

• Windows

View the answers

The BoardRoom

Instant Messaging for your FileMaker Pro network. Click here.

Custom Function Authors:
Link to all of your own custom functions on this site with the following URL:
http://www.briandunning.com/filemaker-custom-functions/results.php?author=Your Name Here


			[ 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

Let's Meet in Person