TimeDispRange ( InTimeStart ; InTimeEnd )

Display a time range in a compact form.

Be the first to rate this function Log in to vote

Richard DeShong - Show more from this author
Logic Tools
http://logictools.com

Sample input:

TimeDispRange ( 11:30 AM ; 1:15 PM )

Sample output:

"11:30a-1:15p"

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

Let([
   T1 = SetVar( GetAsTime( InTime1 ) ) ;
   T2 = SetVar( GetAsTime( InTime2 ) )
];
   Case(
      T1 = "Empty"  and  T2 = "Empty" ; "NoTimes" ;
      T1 = "Empty" ; "null-" & TimeDisp( T2 ) ;
      T2 = "Empty" ; TimeDisp( T1 ) & "-null" ;

      Let([
         T1 = T1 + Case( Minute( T1 ) = 59 ; 60 ; 0 ) ;   // add 60 seconds
         T2 = T2 + Case( Minute( T2 ) = 59 ; 60 ; 0 ) ;

         Disp1 = TimeDisp( T1 ) ;
         Disp2 = TimeDisp( T2 ) ;
         Disp1 = Case( Right( Disp1 ; 1 ) = Right( Disp2 ; 1 ) ; Substitute( Disp1 ; ["a";""] ; ["p";""] ) ; Disp1 )
      ];
         Disp1 & "-" & Disp2
      )   // endlet
   )   // endcase
)   // endlet
/*
   Returns text version of time range of two times.
   Requires:  custom function TimeDisp() and SetVar().
   Example:  11:30 AM ; 1:15 PM  => 11:30a-1:15p
   Example:  10:00 AM ; 11:00 AM  => 10-11a
   Example:  11:00 PM ; 25:30  => 11p-25:30
   Example:  10:00 AM ; 10:59 AM  => 10-11a
   Format rules:
      Does not include minutes if "00".
      If Minutes = 59, then round up.
      For AM/PM, uses lower case "a" and "p", no space, only uses 1 if same.
      For 24+ hrs, does not use AmPm.
*/

Returns a text version of a time range of two times.
Requires Functions: SetVar() and TimeDisp()
(both available on BrianDunning.com)
I needed a compact way of displaying a time range.
This was for contact timing, so if minutes = 59, then rounds up to the next hour.
It uses TimeDisp() to minimize the text length of each time.

Comments

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

TimeDispRange ( InTimeStart ; InTimeEnd )

Comments

Support this website.

Support this website.