Working with time

[jbailey01]

Hello,

What I am trying to do is find a method to find out how often something happends within a time frame. What I have is a TotalTime (total spent on form). And a CompleteButton. What I want to figure out is how many times CompleteButton is clicked in an hour.

Thanks for any advice...

[.paul.]

try this:

Public Class Form1
 
    Dim startTime As New TimeSpan(16, 0, 0) '4 o'clock
    Dim endTime As New TimeSpan(17, 0, 0) '5 o'clock
 
    Dim clicks As Integer = 0
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If Now.TimeOfDay >= startTime And Now.TimeOfDay <= endTime Then
            clicks += 1
            Label1.Text = clicks.ToString
        End If
    End Sub
 
End Class

[dunfiddlin]

Add a global variable

Dim Count As Int16 = 0

Take the time when the application starts (use the form load event)

Dim Start as DateTime= Now

Add one hour for Stop

In the button click event

If Stop > Now increment Count and display the running total


Alternatively keep the count running, take the time at the end of an arbitrary period and divide count by the hours expired.

[dunfiddlin]

try this:

Yeah, something like that. (How does he do that so quick?)

[jbailey01]

Thank you both very much.

I think I might have not properly said what I was trying to do because you both answered me perfect.

I guess my goal is to track an employee's production. So the theory I have came up with is that Production = Total Time / Clicks ...... and then all that broken down to hours... and the program has many forms... so i want to track how long they are on say form1 and how many times they click it within the total time frame...if that makes sense

[.paul.]

ok. that's slightly more complicated. i used a button, a numericupdown, + a label.
the number of clicks is stored per hour, starting when you load the app. if there is more than 1 hour, you can select a different hour with the numericupdown.

Public Class Form1
 
    Dim startTime As TimeSpan
 
    Dim clicks As New List(Of Integer)
    Dim listIndex As Integer = 0
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim endTime As TimeSpan = Now.TimeOfDay
        Dim elapsed As TimeSpan = endTime - startTime
        If elapsed.TotalMinutes >= 60 Then
            clicks.Add(0)
            startTime = startTime.Add(New TimeSpan(1, 0, 0))
            listIndex += 1
            NumericUpDown1.Maximum += 1
            NumericUpDown1.Value = NumericUpDown1.Maximum
        End If
        clicks(listIndex) += 1
        Label1.Text = String.Format("{0} hour clicks = {1}", getNumberWithSuffix(CInt(NumericUpDown1.Value) + 1), clicks(CInt(NumericUpDown1.Value)))
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        startTime = Now.TimeOfDay
        NumericUpDown1.Maximum = 0
        clicks.Add(0)
    End Sub
 
    Private Sub NumericUpDown1_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NumericUpDown1.ValueChanged
        Label1.Text = String.Format("{0} hour clicks = {1}", getNumberWithSuffix(CInt(NumericUpDown1.Value) + 1), clicks(CInt(NumericUpDown1.Value)))
    End Sub
 
    Private Function getNumberWithSuffix(ByVal x As Integer) As String
        If x > 100 Then Return "Unsupported"
        Select Case x
            Case 1, 21, 31, 41, 51, 61, 71, 81, 91
                Return x.ToString & "st"
            Case 2, 22, 32, 42, 52, 62, 72, 82, 92
                Return x.ToString & "nd"
            Case 3, 23, 33, 43, 53, 63, 73, 83, 93
                Return x.ToString & "rd"
            Case Else
                Return x.ToString & "th"
        End Select
    End Function
 
End Class

[jbailey01]

Thank You .paul.