Here are some great tips from InchCalc users

Rounding Function

 

I thought I’d send you a quick function I have added to my copy which helped me round to the nearest 16th, 32nd, etc. in certain situations.  For example, if I need to calculate the hypotenuse of a triangle (to square up a frame, for example), the result won’t end with an even fraction, but instead have a bunch of decimal places.

 

For instance:

 

Hypotenuse calculation for 20’ x 34’ = 39' - 5.3539901595845"  -- using i2s)

With new function: 39' - 5 3/8" -- using i2s(iround(VALUE, 16))

 

This way, I can round uneven results to the nearest 16th (which in this case also is an even 8th).  Here’s my code:

 

Function iround(num As Double, denominator As Integer) As Double

    Dim n1 As Long

    n1 = num * denominator

    iround = n1 / denominator

End Function

Anyway, I appreciate this add-in as it saved me a lot of time implementing something similar.  Have a great day!

 

Sincerely,

 

Peter Rankin

No Leading 0's

 

I am missing a function to get a fractional number without the leading 0..i.e. .8125 to read 13/16” and NOT 0 13/16”

It took a little playing around with, but I got it to work. Here is what I got:

                       

A

B

C

 

.9375

=i2s(A1,3,1)

=IF( LEFT( B1,1) ="0", MID( B1,3,6), B1 )

.9375

0 15/16”

15/16”

 

 

 

 

 

 

 

Thanks again for your help.

Jessye