totalTime_days is coming out D. first.
If I do this in a new script, I get the right number:
Code:
totalTime = 52260
totalTime_days := totalTime / (60 * 60 * 24)
MsgBox, %totalTime% %totalTime_days%
If It do it to your script, I get D.
Code:
startDate := DateParse("2007-06-25 18:52")
endDate := DateParse("2007-06-26 09:23")
GoSub, calcProgress
Return
; calculate current progress
calcProgress:
; total time
totalTime := endDate
totalTime -= startDate, Seconds
totalTime = 52260 ;for testing!
totalTime_days := totalTime / (60 * 60 * 24)
MsgBox, %totalTime% %totalTime_days%
; time elapsed/left
currentDate := A_Now
timeElapsed := currentDate
timeElapsed -= startDate, Seconds
timeElapsed_days := timeElapsed / (60 * 60 * 24)
timeLeft := totalTime - timeElapsed
timeLeft_days := timeLeft / (60 * 60 * 24)
; current progress
currentProgress := timeElapsed / totalTime * 100
listvars
pause
MsgBox, %currentProgress%
Return
/*
Title: Date Parser
Function: DateParse
Converts almost any date format to a YYYYMMDDHH24MISS value.
Parameters:
str - a date/time stamp as a string
Returns:
A valid YYYYMMDDHH24MISS value which can be used by FormatTime,
EnvAdd and other time commands.
About: Example
- time := DateParse("2:35 PM, 27 November, 2007")
About: License
- Version 1.01 by Titan <http://www.autohotkey.net/~Titan/#dateparse>.
- Licenced under GNU GPL <http://creativecommons.org/licenses/GPL/2.0/>.
*/
DateParse(str) {
static e1 = "i)(\d{1,2})\s*:\s*(\d{1,2})(?:\s*(\d{1,2}))?\s*([ap]m)"
, e2 = "i)(?:(\d{1,2}+)[\s\.\-\/,]+)?(\d{1,2}|(?:Jan|Feb|Mar|Apr|May|Jun|Jul|Aug|Sep|Oct|Nov|Dec)\w*)[\s\.\-\/,]+(\d{2,4})"
str := RegExReplace(str, "((?:" . SubStr(e2, 42, 47) . ")\w*)(\s*)(\d{1,2})\b", "$3$2$1", "", 1)
If RegExMatch(str, "i)^\s*(?:(\d{4})([\s\-:\/])(\d{1,2})\2(\d{1,2}))?"
. "(?:\s*[T\s](\d{1,2})([\s\-:\/])(\d{1,2})(?:\6(\d{1,2})\s*(?:(Z)|(\+|\-)?"
. "(\d{1,2})\6(\d{1,2})(?:\6(\d{1,2}))?)?)?)?\s*$", i)
d3 := i1, d2 := i3, d1 := i4, t1 := i5, t2 := i7, t3 := i8
Else If !RegExMatch(str, "^\W*(\d{1,2}+)(\d{2})\W*$", t)
RegExMatch(str, e1, t), RegExMatch(str, e2, d)
f = %A_FormatInteger%
SetFormat, Float, 02.0
d := (d3 ? (StrLen(d3) = 2 ? 20 : "") . d3 : A_YYYY)
. ((d2 := d2 + 0 ? d2 : (InStr(e2, SubStr(d2, 1, 3)) - 40) // 4 + 1.0) > 0 ? d2 + 0.0 : A_MM)
. ((d1 += 0.0) ? d1 : A_DD) . t1 + (t4 = "pm" ? 12.0 : 0.0) . t2 + 0.0 . t3 + 0.0
SetFormat, Float, %f%
Return, d
}
Login
Register
FAQ
Search
