Wolfram Function Repository (Under Development)
Instantuse addon functions for the Wolfram Language
Display progress of a computation together with estimated completion time
ResourceFunction["ProgressIndicatorEstimator"][Dynamic[x],{xmin,xmax}] represents a progress indicator and remaining time estimator with the range xmin to xmax. 
Display an estimate of completion time for a simple Do loop:
In[1]:= 

Display an estimate of completion time for a simple While loop:
In[2]:= 

Control the refresh rate of the estimator. Note that a refresh rate shorter than the expected interval between changes to the tracked variable will result in an estimate that rises in a sawtooth, especially early in the process:
In[3]:= 

If the progress is expected to be nonlinear, then use “History” to consider only recent progress. This example resets the estimator each time 10% progress is made:
In[4]:= 

Appearance None will not display the ProgressIndicator:
In[5]:= 

If the tracked symbol does not fall in the expected interval, then no estimate is returned:
In[6]:= 

If the tracked symbol does represent progress monotonically from the start value to end value, then the time estimates are meaningless:
In[7]:= 
