Get 5 Decimal places without rounding off

**puuts** · 04-10-2013, 08:52 AM

What is the format to get the 5 decimal places but without rounding off?

Here's the sample:

textbox1 / textbox2 = textbox3

Textbox1 = 3768.62
Textbox2 = 134
Textbox3 should be only 28.12402

I have this below formula but this still it's rounding.


Private Sub TextBox1_Change()

If IsNumeric(TextBox1) And IsNumeric(TextBox2) Then
       TextBox3.Value = Format(TextBox1 / TextBox2, "####.00000")
      
      
   Else
   
   TextBox3.Value = ""

    End If


End Sub

Private Sub TextBox2_Change()


If IsNumeric(TextBox1) And IsNumeric(TextBox2) Then
       TextBox3.Value = Format(TextBox1 / TextBox2, "####.00000")
    
       
      
   Else
   TextBox3.Value = ""
   
    End If


End Sub

**zbor** · 04-10-2013, 08:55 AM

try

TextBox3.Value = Format(INT(10000*TextBox1 / TextBox2)/10000, "####.00000")

**puuts** · 04-10-2013, 09:14 AM

Hi zbor, it getting me a result of 28.12400 when trying to use your code

**zbor** · 04-10-2013, 09:28 AM

try add one more 0

TextBox3.Value = Format(INT(100000*TextBox1 / TextBox2)/100000, "####.00000")

**puuts** · 04-10-2013, 09:38 AM

Now it works! thanks! zbor!

**zbor** · 04-10-2013, 09:38 AM

Also, you could get error if Textbox2 is 0

try something like:

Private Sub TextBox1_Change()

On error resume next
   TextBox3.Value = ""
   TextBox3.Value = Format(INT(100000*TextBox1 / TextBox2)/100000, "####.00000")

End Sub

Private Sub TextBox2_Change()

On error resume next
   TextBox3.Value = ""
   TextBox3.Value = Format(INT(100000*TextBox1 / TextBox2)/100000, "####.00000")