Page 1 of 1
starttime-endtime
Posted: Wed Mar 04, 2015 2:57 pm
by 5243
Hi Oleg
I want to extract time, for example 13:01:57 – 14:01:30 = 3591 sec or 0:59:51
I have used your basic example “amount of seconds to time” (attached)
but there are some problems with it:
first of all, it will not display always two digits
example “ 12:01:03 = 12:1:3”
second if you have a time difference between one day the value become negatief
example “ 23:01:12 – 14:01:30 = -32382 sec or -8:59: -42
Is there al simple way to extract time? with a outcome in HH:MM:SS and sometimes a DAY?
Thanks
Re: starttime-endtime
Posted: Wed Mar 04, 2015 4:21 pm
by Oleg
Use
VB evaluate.
See my example. This should work without problem if the difference less then 24 hours.
The function is very simple:
Code: Select all
function difference(Time1, Time2)
d1 = CDate(Time1)
d2 = CDate(Time2)
d3 = cdate(d2-d1)
difference = CStr(d3)
end Function
Usage example:
difference("17:02:01", "17:05:23")
See below the full task:
Code: Select all
[Root]
ActionAfterRun=INTEGER|0
Actions=FOLDER
Automat=INTEGER|-1
CatID=INTEGER|317955339
Comment=STRINGLIST
ContinueOnError=INTEGER|0
ExternalName=STRING|"Task209"
Hide=INTEGER|0
ID=INTEGER|1560806310
LogOnAsUser=INTEGER|1
Name=STRING|"Date-time difference"
OnErrorTaskID=INTEGER|-1
Priority=INTEGER|3
RunOnClose=INTEGER|0
RunOnStartup=INTEGER|0
ToLog=INTEGER|3
WriteGeneralLog=INTEGER|0
[Actions]
Action1=FOLDER
Action2=FOLDER
Action3=FOLDER
Action4=FOLDER
Action5=FOLDER
[Actions\Action1]
ActionID=STRING|"A_VARIABLES_CREATE"
Enabled=INTEGER|-1
Name=STRING|"Create local variable ""T1"" with value ""{datetime}"""
Params=FOLDER
[Actions\Action1\Params]
expand=STRING|"1"
varkind=STRING|"1"
varname=STRING|"T1"
varvalue=STRING|"{datetime}"
[Actions\Action2]
ActionID=STRING|"A_DIALOG_MESSAGE"
Enabled=INTEGER|-1
Name=STRING|"Show ""Wait some time."""
Params=FOLDER
[Actions\Action2\Params]
icon=STRING|"1"
msg0=STRING|"Wait some time."
msg1=STRING|"Then, press OK "
msg3=STRING|"The task calulates the time"
msgcount=STRING|"4"
playsound=STRING|"0"
showmessage=STRING|"1"
[Actions\Action3]
ActionID=STRING|"A_VARIABLES_CREATE"
Enabled=INTEGER|-1
Name=STRING|"Create local variable ""T2"" with value ""{datetime}"""
Params=FOLDER
[Actions\Action3\Params]
expand=STRING|"1"
varkind=STRING|"1"
varname=STRING|"T2"
varvalue=STRING|"{datetime}"
[Actions\Action4]
ActionID=STRING|"A_SCRIPT_VBEVALUATE"
Enabled=INTEGER|-1
Name=STRING|"VB Evaluate"
Params=FOLDER
[Actions\Action4\Params]
expression=STRING|"difference(""{t1}"",""{t2}"")"
line00000000=STRING|"function difference(Time1, Time2)"
line00000001=STRING|" d1 = CDate(Time1)"
line00000002=STRING|" d2 = CDate(Time2)"
line00000003=STRING|" d3 = cdate(d2-d1)"
line00000004=STRING|" difference = CStr(d3)"
line00000005=STRING|"end Function"
line00000007=STRING|"'LogMessage(difference(""17:02"", ""17:02:23""))"
linecount=STRING|"8"
loadfromfile=STRING|"1"
variable=STRING|"d"
[Actions\Action5]
ActionID=STRING|"A_DIALOG_MESSAGE"
Enabled=INTEGER|-1
Name=STRING|"Show ""You have waited: {d}"""
Params=FOLDER
[Actions\Action5\Params]
icon=STRING|"1"
msg0=STRING|"You have waited: {d}"
msgcount=STRING|"1"
playsound=STRING|"0"
showmessage=STRING|"1"
Re: starttime-endtime
Posted: Thu Mar 05, 2015 12:50 am
by 5243
Thank you!