Code by CyberCow
Public Function myGetFrac(nVal) ' nVal = Decimal number to be converted
' Test in debug window: ?myGetFrac(32.956)
' The result will be 32 61/64"
Dim i As Integer
Dim lVal, fVal
Dim nmr, dnmr
i = InStr(nVal, ".")
lVal = Left(nVal, i - 1)
fVal =...