Bars Left

//@version=4
study("Bars left")

f_msInBarsFromRes() =>
    var _MILLISECONDS_IN_SECOND = 1000
    var _MILLISECONDS_IN_MINUTE = 60 * _MILLISECONDS_IN_SECOND
    var _MILLISECONDS_IN_HOUR   = 60 * _MILLISECONDS_IN_MINUTE
    var _MILLISECONDS_IN_DAY    = 24 * _MILLISECONDS_IN_HOUR
    var _MILLISECONDS_IN_WEEK   =  7 * _MILLISECONDS_IN_DAY
    var _MILLISECONDS_IN_MONTH  = 30 * _MILLISECONDS_IN_DAY
    var ms = timeframe.isseconds ? timeframe.multiplier * _MILLISECONDS_IN_SECOND : timeframe.isintraday ? timeframe.multiplier * _MILLISECONDS_IN_MINUTE : timeframe.isdaily ? _MILLISECONDS_IN_DAY : timeframe.isweekly ? _MILLISECONDS_IN_WEEK : timeframe.ismonthly ? _MILLISECONDS_IN_MONTH : na

f_msInBarsFromTime() =>
    var float msBetweenBars = na
    ms = time - time[1]
    if bar_index == 1
        msBetweenBars := ms
    else
        if not timeframe.isintraday or not change(time("D"))
            msBetweenBars := avg(msBetweenBars, ms)
    floor(msBetweenBars)

f_msInBarsFromTimeAvg() =>
    var float msBetweenBars = na
    ms = time - time[1]
    if bar_index == 1
        msBetweenBars := ms
    else
        if not timeframe.isintraday or not change(time("D"))
            msBetweenBars := avg(msBetweenBars, ms)
    floor(sma(msBetweenBars, 500))


var lastBarDate = timestamp(year(timenow), month(timenow), dayofmonth(timenow), hour(timenow), minute(timenow), second(timenow))
barDate = timestamp(year, month, dayofmonth, hour, minute, second)

barsLeft1 = floor((lastBarDate - barDate) / f_msInBarsFromRes())
barsLeft2 = floor((lastBarDate - barDate) / f_msInBarsFromTime())
barsLeft3 = floor((lastBarDate - barDate) / f_msInBarsFromTimeAvg())

plot(barsLeft1, "barsLeft1")
plot(barsLeft2, "barsLeft2", color.orange)
plot(barsLeft3, "barsLeft3", color.olive)
plotchar(f_msInBarsFromRes(), "f_msInBarsFromRes()", "", location.top)
plotchar(f_msInBarsFromTime(), "f_msInBarsFromTime()", "", location.top)
plotchar(f_msInBarsFromTimeAvg(), "f_msInBarsFromTimeAvg()", "", location.top)
plotchar(dayofmonth(timenow), "dayofmonth(timenow)", "", location.top)
plotchar(hour(timenow), "hour(timenow)", "", location.top)
plotchar(hour(time), "hour(timenow)", "", location.top)