Decimal fraction to architectural fraction

[Daniel]

Hello DrD'
For My 2cents.

Arch to Dec.

EXPORT Arch_Dec(ft,in,fn,fd)
BEGIN
LOCAL A,B;
// 02-25-2016 by DGT
// Entering feet,inches,frac numerator,frac denominator
A:=ft+(((in+(fn/fd)))/12)+"_ft"
END;

or Dec to Arch

EXPORT Dec_Arch(dft,dd)
BEGIN
LOCAL A,B,C,D,E,F,G;
// 02-25-2016 by DGT
// Entering decimal feet,desired denominator
B:=IP(dft);
C:=FP(dft);
D:=C*12;
E:=IP(D);
F:=FP(D);
G:=F*dd;
A:=B+"'-"+E+"."+G+"/"+dd+""
END;