Time

[martialdc]

The value of TextBox1 is 10:24:23 AM and the value of TextBox2 is 11:32:54 AM.

Dim Tim1 As Date = TextBox1.Text
Dim Tim2 As Date = TextBox2.Text
Dim WD As Long = DateDiff(DateInterval.Hour, Tim1, Tim2)

But the error is;

'DateDiff' is a namespace, and so is not a valid expression

What's wrong with this?

[flog3941]

Dim tim1 as datetime
dim tim2 as datetime
dim wd as timespan

'Sets the first time
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
tim1 = TimeOfDay
TextBox1.Text=tim1
End Sub

'Sets the second time and returns the difference as time
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
tim2 = TimeOfDay
TextBox2.Text= tim2
textbox3.text = tim2.subtrct(tim1)
End Sub

if you want a double just use this instead of the last sub

'Sets the second time and returns the difference as decimal
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
tim2 = TimeOfDay
TextBox2.Text= tim2
textbox3.text = (tim2.subtrct(tim1)).totalhours
End Sub

or even further to round the double to something like 0.25

textbox3.text = math.round((tim2.subtrct(tim1)).totalhours),2)


hope that helps!!