Attribute VB_Name = "Modulo2"
'Timing tool for FP/Q
Global SessionTime, Laptime, CurrentTime, Remaining, Lap As Integer


Sub StartTimer_Perf()

ActiveSheet.Range("AK2") = Time()  'Time at start of timer
SessionTime = Range("AJ4")         'Initial time remaining
Laptime = Range("AJ3")             'Expected avg laptime
ActiveSheet.Range("AL2") = 100     'Counter initialization

RefreshTimer_Perf

End Sub


Sub RefreshTimer_Perf()

    CurrentTime = Time()
    Remaining = SessionTime - (CurrentTime - ActiveSheet.Range("AK2"))
    If Laptime <> 0 Then
        Lap = Remaining / Laptime
    End If
    
    
    If Remaining > TimeValue("00:00:01") Then
        Range("AL3") = Fix(Remaining / Laptime)
        Range("AL4") = Remaining
    End If
    
    If Remaining < TimeValue("00:00:01") Then
        Range("AL3") = "End"
        Range("AL4") = TimeValue("00:00:00")
    End If

End Sub


'Timing tool for Races
Sub StartTimer_Race()

ActiveSheet.Range("T37") = Time()  'Time at start of timer
SessionTime = Range("P28")          'Initial time remaining
Laptime = Range("P26")             'Expected avg laptime
ActiveSheet.Range("P37") = 100     'Counter initialization

RefreshTimer_Race

End Sub


Sub RefreshTimer_Race()

    CurrentTime = Time()
    Remaining = SessionTime - (CurrentTime - ActiveSheet.Range("T37"))
    If Laptime <> 0 Then
        Lap = Remaining / Laptime
    End If
    
    
    If Remaining > TimeValue("00:00:01") Then
        Range("P30") = Fix(Remaining / Laptime)
        Range("P35") = Remaining
    End If
    
    If Remaining < TimeValue("00:00:01") Then
        Range("P30") = "End"
        Range("P35") = TimeValue("00:00:00")
    End If

End Sub