Strange values

[scantor145]

Visual Basic 6.3
Excel 2003

I created a form that has some text boxes in which a user inputs
numbers.
Sounds simple to me.

The name of the form is frmEasyLyteQC
The name of one textbox is txtMinNa
The name of second textbox is txtMaxNa

User opens the form and inputs 135 in first box and 145 in second box,
then clicks OK.

I declared the following variables before showing the form:


Code:
--------------------
Public NaMin As Variant
Public NaMax As Variant
Public MedianNa As Variant

Sub QCTrack()

frmEasyLyteQC.txtAnalDate.SetFocus
frmEasyLyteQC.Show

End Sub
--------------------


Here is the section of the program where those values are seen:


Code:
--------------------
NaMin = frmEasyLyteQC.txtMinNa.Value
NaMax = frmEasyLyteQC.txtMaxNa.Value
MedianNa = (NaMin + NaMax)/2
--------------------


When I step through the program and place cursor over NaMin the value
displayed is "135" and the value for NaMax is "145"
When I cursor over to MedianNa the value is "67572.5"

I've written many other programs before with similar code using
different variables, but can't figure out why the calculation is
strange. Obviously Median Na sholud be 140.

Any clues?

 

[RB Smissaert]

Not sure, but maybe it helps to declare the variables as
Long or Double and doing instead of:

frmEasyLyteQC.txtMinNa.Value

Val(Trim(frmEasyLyteQC.txtMinNa.Text))

RBS

 

[Guest]

Textboxes return string values and because you use Variants they will
interpret it as String unless you specify otherwise. Adding them (as string
values) concatenates them, so "135"+"145" = "135145." When you get to the
division, VBA can no longer interpret it as a string and so now it "forces"
the conversion to number and you get the result 135145/2=67572.5

When using variants you have to consider carefully how VBA will interpret
the contents. It is better to explicitly convert them either by storing in a
properly typed variable or using the conversion functions (e.g. CInt, Val,
etc.)