It sounds like a job for a very simple function. View the code below.
Function DecimalFraction(num As Double, denominator As Long) As String
Dim numerator As Long
Dim tempstr As String
Dim tempnum As Double
If num >= 1 Then
tempstr = Trim(str(Int(num)))
tempnum = num - Int(num)
Else
tempstr = ""
tempnum = num
End If
numerator = Int(denominator * tempnum)
If numerator > 0 And tempstr = "" Then
DecimalFraction = Trim(str(numerator)) + "/" + Trim(str(denominator))
ElseIf numerator = 0 And tempstr = "" Then
DecimalFraction = "0"
ElseIf numerator = 0 And tempstr <> "" Then
DecimalFraction = tempstr
ElseIf numerator > 0 And tempstr <> "" Then
DecimalFraction = tempstr + " " + Trim(str(numerator)) + "/" + Trim(str(denominator))
End If
End Function
This code is not elegant, but will give a fraction based on the denominator given.
