FileMaker Pro Custom Functions

/*================================================= FORM: IsTimeOfDay ( _var ) PURPOSE: return number of seconds since midnight if valid or NOTHING if invalid PARAMETER: _var format: unknown value:variable RESULT: number of seconds since midnight if valid or NOTHING if invalid DEPENDENCY: - NOTE: check with IsEmpty ( IsTimeOfDay ( _var )) instead of GetAsBoolean ( IsTimeOfDay ( _var )) since IsTimeOfDay ( 0:0 ) is valid valid timeOfDay: 17:09:56 / 17:9:56 / 5:9 PM / 5:09 p.m. / not 170956 / not 123:34 tolerates whitespace accepts AM/PM notation see my other function IsTime ( _var ) EXAMPLE: IsTimeOfDay ( "23:1:13" ) => 82873 IsTimeOfDay ( "11:10:13 PM" ) => 82873 IsTimeOfDay ( "26:30" ) => "" HISTORY: 2012-04-13 [235325] 1.00 tsw turned into IsTimeOfDay() to be valid in #VarType 2012-04-26 [005836] 1.10 tsw integrated AM/PM DEVELOPER: tsw @ http://rewolfer.de =================================================*/ Let ([ _var = Trim ( _var ); _colonCount = PatternCount ( _var ; ":" ); _isAMPM = Case ( Right ( _var ; 3 ) = " pm" or Right ( _var ; 5 ) = " p.m." ; 12 ; Left ( _var ; 3 ) = "12:" and ( Right ( _var ; 3 ) = " am" or Right ( _var ; 5 ) = " a.m." ); 12 ); _time = Substitute ( _var ; [" a.m." ; ""] ; [" am" ; ""] ; [" p.m." ; ""] ; [" pm" ; ""] ; [" " ; ""] ; [":" ; "¶"] ); // left "." to discern number format in _clean _clean = Filter ( _time ; "0123456789¶" ) ]; Case ( _clean = _time and _colonCount <= 2; Let ([ _hh = GetAsNumber ( GetValue ( _time ; 1 )); _hh = Case ( _hh = 12 ; _hh - _isAMPM ; _hh + _isAMPM ); _mm = GetAsNumber ( GetValue ( _time ; 2 )); _ss = GetAsNumber ( GetValue ( _time ; 3 )) ]; Case ( not IsEmpty ( _hh ) and not IsEmpty ( _mm ) and ( 24 > _hh ) and ( 60 > _mm ) and ( 60 > _ss ) ; GetAsNumber ( Time ( _hh ; _mm ; _ss )) ) ) ) )
 Then copy & paste into FileMaker Advanced's Edit Custom Function window.