Numberformat

[Ksmith1192]

Hi guys, I am trying to get a certain percentage out of my program, and I just want it to be up to 2 decimal places, but even though i try using numberformat, I keep getting extremely long strings of numbers when it calculates. Here is some of the code I use

 Dim Emaciated As Int
   Label4.Text = NumberFormat(Emaciated, 0 ,2)
   Label5.Text = NumberFormat(Thin, 0 ,2)
   Label8.Text = NumberFormat(Average, 0 ,2)
   Label9.Text = NumberFormat(Heavy, 0 ,2)
   Label10.Text = NumberFormat(Fat, 0 ,2)
   Emaciated = Emaciated + 1
   edittext1.Text = Emaciated   
   Label4.Text = ((Emaciated) /(Thin + Average + Heavy + Fat + Emaciated)) * 100
   Label5.Text = ((Thin) /(Thin + Average + Heavy + Fat + Emaciated)) * 100
   Label8.Text = ((Average) /(Thin + Average + Heavy + Fat + Emaciated)) * 100
   Label9.Text = ((Heavy) /(Thin + Average + Heavy + Fat + Emaciated)) * 100
   Label10.Text = ((Fat) /(Thin + Average + Heavy + Fat + Emaciated)) * 100

 

[NJDude]

Look at NumberFormat2

 

[Ksmith1192]

I tried using numberformat2 and I still come up with the same error

   Label4.Text = NumberFormat2(Emaciated,0,2,2, False)
   Label5.Text = NumberFormat2(Thin, 0 ,2,2,False)
   Label8.Text = NumberFormat2(Average, 0 ,2,2,False)
   Label9.Text = NumberFormat2(Heavy, 0 ,2,2,False)
   Label10.Text = NumberFormat2(Fat, 0 ,2,2,False)
   Emaciated = Emaciated + 1
   edittext1.Text = Emaciated   
   Label4.Text = ((Emaciated) /(Thin + Average + Heavy + Fat + Emaciated)) * 100
   Label5.Text = ((Thin) /(Thin + Average + Heavy + Fat + Emaciated)) * 100
   Label8.Text = ((Average) /(Thin + Average + Heavy + Fat + Emaciated)) * 100
   Label9.Text = ((Heavy) /(Thin + Average + Heavy + Fat + Emaciated)) * 100
   Label10.Text = ((Fat) /(Thin + Average + Heavy + Fat + Emaciated)) * 100

 

[MLDev]

This will round to 2 decimal places:

Label4.Text = Round2(((Emaciated) /(Thin + Average + Heavy + Fat + Emaciated)) * 100, 2)
...