Trouble with calculations

Jeremy.Carter · May 14th, 2011, 09:04 PM

I am Trying to calculate two times to find out how many hours are between them.
When the user clicks the Log in button it gets the time they logged in and then when they click the Log out button they get the time they logged out
and inputs both times in seperate textboxs. If anyone can help with this I would appreciate it

Thank you Jeremy

Apocolypse2005 · May 15th, 2011, 08:49 AM

There is a whole object used for this, called the TimeSpan object.

Code:

Dim startTime As TimeSpan
Dim stopTime As TimeSpan
Dim duartion As TimeSpan
duration = startTime.Subtract(stopTime)

that'll sort you out for a while.

Shasur · May 15th, 2011, 09:16 AM

Hi

Here is a hint

http://dotnetdud.blogspot.com/2011/0...-two-time.html

You can assign the value of textbox to the variable and modify it

Cheers
Shasur

GeneBuchite · May 16th, 2011, 08:23 AM

here is code for 2 different ways of doing the same.
of course timespan is a lot shorter method!

you need to dim StartTime And StopTime AS DateTime Rather than TimeSpan Though

Code:

    Dim LBL As New Label
    Dim Btn As New Button
    Dim startTime As DateTime

    Dim stopTime As DateTime

    Dim duration As TimeSpan


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Btn = New Button
        Btn.Text = "Start Time"
        Btn.Name = "BtnStart"
        Btn.Location = New Point(10, 10)
        Btn.Size = New Size(40, 40)
        Me.Controls.Add(Btn)

        AddHandler Btn.Click, New System.EventHandler(AddressOf Btn_Click)

        Btn = New Button
        Btn.Text = "End Time"
        Btn.Name = "BtnEnd"
        Btn.Location = New Point(120, 10)
        Btn.Size = New Size(40, 40)
        Me.Controls.Add(Btn)

        AddHandler Btn.Click, New System.EventHandler(AddressOf Btn_Click)

        LBL = New Label
        LBL.Name = "lblStart"
        LBL.Location = New Point(10, 60)
        LBL.Text = Now
        Me.Controls.Add(LBL)

        LBL = New Label
        LBL.Name = "lblEnd"
        LBL.Location = New Point(120, 60)
        Me.Controls.Add(LBL)

        LBL = New Label
        LBL.Name = "lblEnd"
        LBL.Location = New Point(110, 100)
        Me.Controls.Add(LBL)

        LBL = New Label
        LBL.Name = "lblEnd"
        LBL.Location = New Point(110, 140)
        Me.Controls.Add(LBL)

        LBL = New Label
        LBL.Name = "lblEnd"
        LBL.Location = New Point(110, 180)
        Me.Controls.Add(LBL)

        LBL = New Label
        LBL.Name = "lblEnd"
        LBL.Location = New Point(110, 220)
        Me.Controls.Add(LBL)


    End Sub

    Private Sub Btn_Click(ByVal sender As Object, ByVal e As System.EventArgs)
        If (CType(sender, Button).Name()) = "BtnStart" Then
            Me.Controls(2).Text = Now

        Else

            Me.Controls(3).Text = Now
            Me.Controls(4).Text = DateDiff(DateInterval.Hour, CDate(Me.Controls(2).Text), CDate(Me.Controls(3).Text))
            Me.Controls(5).Text = " Hours:" & DateDiff(DateInterval.Hour, CDate(Me.Controls(2).Text), CDate(Me.Controls(3).Text))
            Me.Controls(6).Text = " Minutes:" & DateDiff(DateInterval.Minute, CDate(Me.Controls(2).Text), CDate(Me.Controls(3).Text))
            Me.Controls(7).Text = " Seconds:" & DateDiff(DateInterval.Second, CDate(Me.Controls(2).Text), CDate(Me.Controls(3).Text))
            startTime = Me.Controls(2).Text


            stopTime = Me.Controls(3).Text
            duration = startTime.Subtract(stopTime)
            MsgBox(duration.ToString)

        End If
    End Sub

Just copy And Pase Between The Class Declaration And THe End Class