AutoHotkey Community

;for all functions, PreviousTime is the "timer" - the previous time is stored

/*
calculates ETA
(supports "pausing")

returns the formatted ETA
*/
ETA(CurrentValue, TotalValue, ByRef PreviousTime, ByRef TimeTaken)
{
    /*
    values MUST start at 0 and have a constant step
    (CurrentValue or TotalValue can be a decimal value)


    e.g.

    A_Index (in a loop),
    percentages (TotalValue = 100),
    file download (use bytes for values),
    etc.
    */

    /*
    Derivation of formula

    ETA = TimeRequired - TimeTaken

    TimeTaken / CurrentValue = TimeRequired / TotalValue
    TimeRequired = TimeTaken / CurrentValue * TotalValue
    TimeRequired - TimeTaken = TimeTaken / CurrentValue * TotalValue - TimeTaken
    ETA = TimeTaken * (TotalValue / CurrentValue - 1)
    */

    if (PreviousTime >= 0)
    {
        ;timer is not "paused" and not stopped
       
        TimeTaken += A_TickCount - PreviousTime
        PreviousTime := A_TickCount
    }

    ;divide by 1000 to convert from milliseconds to seconds
    ETA := round(TimeTaken * (TotalValue - CurrentValue) / CurrentValue / 1000)

    ;ETA is less than a minute
    if (ETA < 60)
        return "0:" . (ETA < 10 ? "0" : "") . ETA

    seconds := mod(ETA, 60)
    ETA //= 60


    ;ETA is less than an hour
    if (ETA < 60)
        return ETA ":" . (seconds < 10 ? "0" : "") . seconds

    minutes := mod(ETA, 60)
    ETA //= 60


    ;else, ETA is greater than an hour
    return ETA ":" . (minutes < 10 ? "0" : "") . minutes
        . ":" . (seconds < 10 ? "0" : "") . seconds
}

;initializes a Timer
;pass variables to use for each the
;   previous time, time taken, and timer index (optional)
ETA_Start(ByRef PreviousTime, ByRef TimeTaken, ByRef TimerIndex = 0)
{
    PreviousTime := A_TickCount
    TimeTaken := 0
    TimerIndex := 0
}

;"stops" an ETA timer
;(use ETA_Pause if you plan to continue the timer later)
;updates TimeTaken, and returns this value (in seconds)
;sets PreviousTime to -2, to signify the time is done
ETA_Stop(ByRef PreviousTime, ByRef TimeTaken)
{
    ;only if timer is "ticking"
    if (PreviousTime >= 0)
        TimeTaken += A_TickCount - PreviousTime
       
    PreviousTime := -2
   
    return round(TimeTaken / 1000)
}

;"pauses" an ETA timer
ETA_Pause(ByRef PreviousTime, ByRef TimeTaken)
{
    ;already paused (or stopped)
    if (PreviousTime < 0)
        return

    TimeTaken += A_TickCount - PreviousTime
    PreviousTime := -1
}

;"resumes" a "paused" ETA timer
ETA_Resume(ByRef PreviousTime)
{
    ;you don't need to pass TimeTaken, because the time taken doesn't increase
    ;(since the timer was paused)

    ;wasn't paused
    if (PreviousTime != -1)
        return

    PreviousTime := A_TickCount
}

#SingleInstance Force
#NoEnv

;initialize an ETA timer
ETA_Start(Timer1, Timer1Time)

;loops for about 15 seconds
LoopCount := 150

Loop, %LoopCount%
{
    Sleep, 100
    ToolTip, % ETA(A_Index, LoopCount, Timer1, Timer1Time)
}

#SingleInstance Force
#NoEnv

;each loop loops for about 5 seconds (4 loops = 20 seconds)
LoopCount := 50


;initialize an ETA timer
ETA_Start(Timer1, Timer1Time, Index1)

;Store the total count
TotalValue1 := 4 * LoopCount


;initialize an ETA timer
ETA_Start(Timer2, Timer2Time, Index2)

;Store the total count
TotalValue2 := 2 * LoopCount


Loop, %LoopCount%
{
    Sleep, 100
   
    ;store pause state
    isPaused1 := (Timer1 = -1) ? " (Paused)" : ""
    isPaused2 := (Timer2 = -1) ? " (Paused)" : ""
   
    ;stores done state
    isDone1 := (Timer1 = -2) ? " (Done)" : ""
    isDone2 := (Timer2 = -2) ? " (Done)" : ""

    ;increase indexes
    Index1++
    Index2++
       
    ToolTip, % "Loop #1`n`n"
        . "Timer1: " ETA(Index1, TotalValue1, Timer1, Timer1Time) . "`n"
        . isDone1 . isPaused1
        . "Timer2: " ETA(Index2, TotalValue2, Timer2, Timer2Time)
        . isDone2 . isPaused2
}

;pause Timer2
ETA_Pause(Timer2, Timer2Time)

Loop, %LoopCount%
{
    Sleep, 100

    ;store pause state
    isPaused1 := (Timer1 = -1) ? " (Paused)" : ""
    isPaused2 := (Timer2 = -1) ? " (Paused)" : ""

    ;stores done state
    isDone1 := (Timer1 = -2) ? " (Done)" : ""
    isDone2 := (Timer2 = -2) ? " (Done)" : ""

    ;increase indexes
    Index1++
    ;don't increase Index2 (Timer2 is paused)

    ToolTip, % "Loop #2`n`n"
        . "Timer1: " ETA(Index1, TotalValue1, Timer1, Timer1Time) . "`n"
        . isDone1 . isPaused1
        . "Timer2: " ETA(Index2, TotalValue2, Timer2, Timer2Time)
        . isDone2 . isPaused2
}

;resume Timer2
ETA_Resume(Timer2)

Loop, %LoopCount%
{
    Sleep, 100

    ;store pause state
    isPaused1 := (Timer1 = -1) ? " (Paused)" : ""
    isPaused2 := (Timer2 = -1) ? " (Paused)" : ""

    ;stores done state
    isDone1 := (Timer1 = -2) ? " (Done)" : ""
    isDone2 := (Timer2 = -2) ? " (Done)" : ""

    ;increase indexes
    Index1++
    Index2++

    ToolTip, % "Loop #3`n`n"
        . "Timer1: " ETA(Index1, TotalValue1, Timer1, Timer1Time) . "`n"
        . isDone1 . isPaused1
        . "Timer2: " ETA(Index2, TotalValue2, Timer2, Timer2Time)
        . isDone2 . isPaused2
}

/*
Timer2 is done

calling ETA_Stop is not required;
   it can be used to store the "total time required" into a variable.
*/
TotalTime2 := ETA_Stop(Timer2, Timer2Time)

Loop, %LoopCount%
{
    Sleep, 100

    ;store pause state
    isPaused1 := (Timer1 = -1) ? " (Paused)" : ""
    isPaused2 := (Timer2 = -1) ? " (Paused)" : ""

    ;stores done state
    isDone1 := (Timer1 = -2) ? " (Done)" : ""
    isDone2 := (Timer2 = -2) ? " (Done)" : ""

    ;increase indexes
    Index1++
    ;don't increase Index2 (Timer2 is already finished)
   
    ToolTip, % "Loop #4`n`n"
        . "Timer1: " ETA(Index1, TotalValue1, Timer1, Timer1Time) . "`n"
        . isDone1 . isPaused1
        . "Timer2: " ETA(Index2, TotalValue2, Timer2, Timer2Time)
        . isDone2 . isPaused2
}

;Timer1 is done
TotalTime1 := ETA_Stop(Timer1, Timer1Time)

ToolTip

MsgBox, % "Timer1 took " TotalTime1 " seconds.`n"
    . "Timer2 took " TotalTime2 " seconds."