How to divide numbers

[JamieWarren09]

Hi guys does anybody know how i can make it divide the numbers put in text1 and text 2?

for example

text 1 = 100
text 2 = 4

when command1 is pressed it then divides text1 by text2


any ideas?

thanks
Jamie

[4x2y]

Dim dblResult As Double
dblResult = Val(Text1.Text) / Val(Text2.Text)

[JamieWarren09]

fantastic thank you, by anychance do you know how i can make it choose the number to divide it by automatically?

Basically i have 2 dtpicker boxes and a user selects 2 diffrent dates, is it possible to make it divide it by the number of different days?

For example dtpicker1 = 08/04/2012 and dtpicker2 = 10/04/2012

it will know to divide it by 2 as thats the day difference?

Thanks
Jamie

[si_the_geek]

Use the DateDiff function to find out the amount of days

[4x2y]

Try this

    Dim dblResult As Double
    dblResult = Val(Text1.Text) / DateDiff("d", "08/04/2012", "10/04/2012") ' Replace dates with dtpicker1 & dtpicker2

[JamieWarren09]

Hi mate,

For some reason the code you provided is not returning any values, so it is just displaying empty results and not actually showing any numbers.

Any ideas?

[4x2y]

The returning value is stored in the variable dblResult, so you have to show it in a control like Text box or Label, e.g.

Text2.Text = CStr(dblResult)