DateFormatUSA ( textDate )

USA date's format using Month Name. It will make FM read date from text date format. If you find this useful, please comment. Thank you :)

Average rating: 3.8 (79 votes) Log in to vote

Henry Iriawan - Show more from this author
HYBAN

Sample input:

DateFormatUSA ("December 31, 2009")

Sample output:

12/31/2009

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

/* 

Creator: Henry Iriawan
Date: December 31, 2009
CF FOrmat: DateFormatUSA (TextDate) 
Whereas: TextDate contains a spesific format, e.g.: December 31, 2009
Aim: It would create a readable Date format 

*/
Case ( GetAsDate (textDate) = "?" and not IsEmpty (textDate) ;
Let ([
           Raw = TextDate; 
           tMonth = LeftWords ( Raw  ; 1 ) ;
           cYear = GetValue ( Substitute ( Raw ; "," ; "¶" )  ; 2 );
           cDay = Substitute  ( Raw ; [",";""] ;[tMonth;""]; [cYear;""]);
           cMonth = Case ( 
                                         Upper (tMOnth) = "JANUARY" or Upper (tMOnth) = "JAN" ; "1";
                                         Upper (tMOnth) = "FEBRUARY" or Upper (tMOnth) = "FEB" ; "2";
                                         Upper (tMOnth) = "MARCH" or Upper (tMOnth) = "MAR" ; "3";
                                         Upper (tMOnth) = "APRIL"  or Upper (tMOnth) = "APR" ; "4" ;
                                         Upper (tMOnth) = "MAY"; "5";
                                         Upper (tMOnth) = "JUNE"  or Upper (tMOnth) = "JUN" ; "6";
                                         Upper (tMOnth) = "JULY"  or Upper (tMOnth) = "JUL"  ; "7";
                                         Upper (tMOnth) = "AUGUST" or Upper (tMOnth) = "AUG" ; "8";
                                         Upper (tMOnth) = "SEPTEMBER" or Upper (tMOnth) = "SEP" ; "9";
                                         Upper (tMOnth) = "OCTOBER" or Upper (tMOnth) = "OCT" ; "10";
                                         Upper (tMOnth) = "NOVEMBER" or Upper (tMOnth) = "NOV" ; "11";
                                         Upper (tMOnth) = "DECEMBER" or Upper (tMOnth) = "DEC" ; "12"; "");
            Result = Trim (cMonth) & "/" & Trim (cDay) & "/" & Trim (cYear) ];
     Result)
;
"")

This would be helpful to convert text Date format to readable Date format for Filemaker.

Hope this function helps some people :)

Thank you.

Comments

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

DateFormatUSA ( textDate )

Comments

Support this website.

Support this website.