Problem in display feet and inches

Question

I have a database that I use to record and display Boy’s Long Jump. I use this function to find the longest jump for each student.

Function Maximum(ParamArray FieldArray() As Variant)

   ' Declare the two local variables.    Dim I As Integer    Dim currentVal As Variant

   ' Set the variable currentVal equal to the array of values.    currentVal = FieldArray(0)

   ' Cycle through each value from the row to find the largest.

   For I = 0 To UBound(FieldArray)

      If FieldArray(I) > currentVal Then

         currentVal = FieldArray(I)

      End If

   Next I

   ' Return the maximum value found.

   Maximum = currentVal

End Function

There a total of six jumps that each student makes.

I have fields where I get the total inches for each jump: totalinx: ([dis_ft_x]*12)+[dis_in_x]. x is the jump number

I then use this find the longest: Maximum([totalin1],[totalin2],[totalin3],[totalin4],[totalin5],[totalin6])

I then display the jump in feet: longft: Int([longest]/12)

I display the inches using: longin: [longest] Mod 12

The problem is if the inches are like 8.75 it only shows 8.

So how can I get and display the longest jump of 42ft 6.75in

I may be doing this the hard way so any suggestions would be greatly appreciated.

Answer 1

Hi,

You could try it this way:

longin: ([longest]/12-Int([longest]/12))*12

Hope that helps...

Answer 2

That worked!!!!!

Thank you, Thank you

Answer 3

part of your issue is that you have defined the answer as integer, rather than double, thus your answer is truncated by definition.

al edlund

---

Al Edlund Visio MVP

Answer 4

That worked!!!!!

Thank you, Thank you

Hi,

You're welcome! We're all happy to assist. Good luck with your project.