FileMaker Pro Custom Functions

/* timeFormat Written by Bob Patin Longterm Solutions LLC bob@longtermsolutions.com http://www.longtermsolutions.com PARAMETERS: thetime - a text string which can include 9 9a 9:00a 9:00 (resolves to 9:00 AM) 930 1230 any string more than 5 characters will cause an INPUT ERROR message leader -- 1 puts a leading zero before the hour if it's a single-digit hour */ Let ( [ thetime = Filter(Lower ( thetime ); "amp1234567890:"); nums = Filter(thetime ; "0123456789:"); len = Length(nums); // set AM or PM // UPPER CASE ampm = Case( Position ( thetime ; "p" ; 1 ; 1 ) >0; "PM"; Position ( thetime ; "a" ; 1 ; 1 ) > 0; "AM"; "AM" ); // check for the colon nums = If (Position(nums ; ":" ; 1 ; 1) > 1; nums; Case ( len > 4 ; "13:13"; len = 4; Left(nums ; 2) & ":" & Right(nums ; 2); len = 3 and leader; "0" & Left(nums ; 1) & ":" & Right(nums ; 2); len = 3 ; Left(nums ; 1) & ":" & Right(nums ; 2); len = 2 ; nums & ":00"; len = 1 and leader; "0" & nums & ":00"; len = 1 ; nums & ":00" )); // get the HOURS h = Case (leader ; Left(nums ; 2); (leader = 0) and (Position(nums ; ":" ; 1 ; 1 ) = 3) ; Left(nums ; 2); Left(nums ; 1) ); // get the MINUTES m = Right(nums ; 2); // ----- CHECK FOR INPUT ERROR thetime = If (GetAsNumber(h) > 12 or GetAsNumber(m) > 59; "INPUT ERROR"; h & ":" & m & " " & ampm ) // -------------- ] ; thetime )
 Then copy & paste into FileMaker Advanced's Edit Custom Function window.