title: Microsoft Access function not working
body: <p>I have this function and it works except instead of displaying the inches 11.25 it displays only 11.</p>
  
  <pre><code>Function InchesToFtIn(varInches As Variant) As String
  
     Dim intFeet As Integer
     Dim intInch1 As Integer
     Dim intInch2 As Single
     Dim strReturn As String
  
     strReturn = ""
     intFeet = 0
     intInch1 = 0
     intInch2 = 0
  
     intInch1 = Val(Nz(varInches, 0))
     intFeet = intInch1 \ 12
     intInch2 = ((intInch1 / 12) - intFeet) * 12
  
     strReturn = intFeet &amp; "'" &amp; intInch2 &amp; Chr(34)
     InchesToFtIn = strReturn
  
  End Function
  </code></pre>
  
  <p>Anyone know what I am doing wrong?</p>