***RESOLVED*** Data type conversion error

I need to be able to divide two currency values in an MSFlexGrid to come up with a percent value.

The challenge is that I need to have error handling to be sure that if the user puts in a $.0 currency value I do not get an error.

Ex.

Private Sub MSFlexGrid1_LeaveCell()

With MSFlexGrid1
.TextMatrix(1, 1) = Format(.TextMatrix(2, 1) / .TextMatrix(3, 1), "0.0%")
End With

End Sub

Quote:

---

Originally posted by Jefftopia
I need to be able to divide two currency values in an MSFlexGrid to come up with a percent value.

The challenge is that I need to have error handling to be sure that if the user puts in a $.0 currency value I do not get an error.

Ex.

Private Sub MSFlexGrid1_LeaveCell()

Code:

---

With MSFlexGrid1
          if .textMatrix(3,1) > 0 And .textMatrix(2,1) > 0 then
            .TextMatrix(1, 1) = Format(.TextMatrix(2, 1) / .TextMatrix(3, 1), "0.0%")
          End
End With

---

End Sub

---

You may need to convert the values to decimals...

In addition to what SoCalled said, I'd create variables, do the math in memory with the variables, and then write the results back to the appropriate column in my grid.

Quote:

---

Originally posted by Hack
In addition to what SoCalled said, I'd create variables, do the math in memory with the variables, and then write the results back to the appropriate column in my grid.

---

Nice, am thinking you mean this would be more efficient, since l would imagine vb would have to locate each value in the memory array, as opposed to having a single memory location for each value.

Would also make the code easier to read and reduce the likelyhood of bugs.

Try this

Private Sub MSFlexGrid1_LeaveCell()
Dim x as Double

With MSFlexGrid1
if .textMatrix(3,1) > 0 And .textMatrix(2,1) > 0 then
x = (.TextMatrix(2, 1) / .TextMatrix(3, 1)
End
.TextMatrix(1, 1) =format(x,"0.0%")
End With

End Sub

hope that help

Setting x to 0 above the if then right....

thx--I am going with the variable method. Works well!