0

I am not sure how to accomplish this, but I am trying to take a dates from two fields and using the current date show the progress percentage in a different field.

So, if past date is Jan 1st, the current date is Jan 5th, the future date is Jan 10th. How do I get a percentage of completion between Jan 1st and Jan 10th based on today's date Jan 5th?

2
Contributors
1
Reply
2
Views
7 Years
Discussion Span
Last Post by sidnei
0

Try to work with numbers. And using DateDiff function.
Dates are numbers, so, it simplify your work! ;)


I will work with Jan 11th, only for rounding numbers, right?

Dim nDiasTotal as Integer, nDiasPassados as Integer

'GET DIFFERENCE BETWEEN JAN 1st AND JAN 11th
nDiasTotal = DateDiff("d", "01/01/2010", "11/01/2010")
'GET DIFFERENCE BETWEEN TODAY (ASSUMING TODAY IS JAN 6th) AND FIRST DATE
nDiasPassados = DateDiff("d", "01/01/2010", Date)

'CALCULATE PERCENTAGE OF PAST DAYS
MsgBox (nDiasPassados / nDiasTotal) * 100 & " % past time"
'CALCULATE PERCENTAGE OF REMAINING TIME
MsgBox 100 - ((nDiasPassados / nDiasTotal) * 100) & " % remaining time"

Hope it helps!

Sidnei

This topic has been dead for over six months. Start a new discussion instead.
Have something to contribute to this discussion? Please be thoughtful, detailed and courteous, and be sure to adhere to our posting rules.