DecimalToHrMin ( aNumber )

This CF will return a decimal value in a format of hour and minutes

Average rating: 4.4 (36 votes) Log in to vote

Andy Knasinski - Show more from this author
nrg software, llc.
http://www.nrgsoft.com

Sample input:

DecimalToHrMin ( 1.5 )

Sample output:

1 Hr 30 Min

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

/* 

DecimalToHrMin ( aNumber )

This CF will return a decimal value in a format of hour and minutes

Examples:
DecimalToHrMin ( 1.5 ) will return "1 Hr 30 Min"
DecimalToHrMin ( .25 ) will return "15 Min"

*/


Let (
[
rem = Round ( aNumber ; 3 ) ;
rem = If ( PatternCount ( rem ; "." ) = 0 ; Rem & ".0" ; rem ) ;
Hr = Left ( rem ;  Position ( rem ; "." ; 1 ; 1 ) -1 ) ;
Rem = Middle ( rem ; Position ( rem ; "." ; 1 ; 1 )  ; 4 ) ;
Min = 
Case ( 
rem >= .983 ; 59 ;
rem >= .967 ; 58 ;
rem >= .95 ; 57 ;
rem >= .933 ; 56 ;
rem >= .917 ; 55 ;
rem >= .9 ; 54 ;
rem >= .883 ; 53 ;
rem >= .867 ; 52 ;
rem >= .85 ; 51 ;
rem >= .833 ; 50 ;
rem >= .817 ; 49 ;
rem >= .8 ; 48 ;
rem >= .783 ; 47 ;
rem >= .767 ; 46 ;
rem >= .75 ; 45 ;
rem >= .733 ; 44 ;
rem >= .717 ; 43 ;
rem >= .7 ; 42 ;
rem >= .683 ; 41 ;
rem >= .667 ; 40 ;
rem >= .65 ; 39 ;
rem >= .633 ; 38 ;
rem >= .617 ; 37 ;
rem >= .6 ; 36 ;
rem >= .583 ; 35 ;
rem >= .567 ; 34 ;
rem >= .55 ; 33 ;
rem >= .533 ; 32 ;
rem >= .517 ; 31 ;
rem >= .5 ; 30 ;
rem >= .483 ; 29 ;
rem >= .467 ; 28 ;
rem >= .45 ; 27 ;
rem >= .433 ; 26 ;
rem >= .417 ; 25 ;
rem >= .4 ; 24 ;
rem >= .383 ; 23 ;
rem >= .357 ; 22 ;
rem >= .35 ; 21 ;
rem >= .333 ; 20 ;
rem >= .317 ; 19 ;
rem >= .3 ; 18 ;
rem >= .283 ; 17 ;
rem >= .267 ; 16 ;
rem >= .25 ; 15 ;
rem >= .233 ; 14 ;
rem >= .217 ; 13 ;
rem >= .2 ; 12 ;
rem >= .183 ; 11 ;
rem >= .167 ; 10 ;
rem >= .15 ; 9 ;
rem >= .133 ; 8 ;
rem >= .117 ; 7 ;
rem >= .1 ; 6 ;
rem >= .083 ; 5 ;
rem >= .067 ; 4 ;
rem >= .05 ; 3 ;
rem >= .033 ; 2 ;
rem >= .017 ; 1 ;
0
)
] ; 
Trim ( If ( hr > 0 ; hr & " Hr " ) & If ( min > 0 ; min  &" Min" ))
)

This CF will return a decimal value in a format of hour and minutes

Examples:
DecimalToHrMin ( 1.5 ) will return "1 Hr 30 Min"
DecimalToHrMin ( .25 ) will return "15 Min"

Comments

		comment, VR Feb 10, 2011
How about something simple? Let ( [ t = decimalHours * 3600 ; h = Hour ( t ) ; m = Minute ( t ) ] ; Case ( h ; h & " Hr " ) & Case ( m ; m & " min" ) )

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

DecimalToHrMin ( aNumber )

Comments

Support this website.

Support this website.