;*****************************
;* RoboTask Task file
;* Do not edit in text editor!
;*****************************
 
[Root]
ActionAfterRun=INTEGER|0
Actions=FOLDER
Automat=INTEGER|0
CatID=INTEGER|2091259954
Comment=STRINGLIST
ContinueOnError=INTEGER|0
ExternalName=STRING|"Task47"
Hide=INTEGER|0
ID=INTEGER|980793259
LogOnAsUser=INTEGER|1
Name=STRING|"[DEMO] ""TimeIncHours"" custom function"
OnErrorTaskID=INTEGER|-1
Priority=INTEGER|3
RunOnClose=INTEGER|0
RunOnStartup=INTEGER|0
ToLog=INTEGER|3
UnicodeFormat=INTEGER|1
WriteGeneralLog=INTEGER|0

[Actions]
Action1=FOLDER
Action2=FOLDER
Action3=FOLDER
Action4=FOLDER

[Actions\Action1]
ActionID=STRING|"A_VARIABLES_SET"
Enabled=INTEGER|-1
Name=STRING|"Set variable ""TM"" with value ""{DateTime}"""
Params=FOLDER

[Actions\Action1\Params]
expand=STRING|"1"
varname=STRING|"TM"
varvalue=STRING|"{DateTime}"

[Actions\Action2]
ActionID=STRING|"A_VARIABLES_SET"
Enabled=INTEGER|-1
Name=STRING|"Set variable ""DELTA"" with value ""15"""
Params=FOLDER

[Actions\Action2\Params]
expand=STRING|"0"
varname=STRING|"DELTA"
varvalue=STRING|"15"

[Actions\Action3]
ActionID=STRING|"A_SCRIPT_VBEVALUATE"
Enabled=INTEGER|-1
Name=STRING|"VB Evaluate"
Params=FOLDER

[Actions\Action3\Params]
expression=STRING|"TimeIncHours(""{tm}"", {delta})"
line00000000=STRING|"function TimeIncHours(tm, add)"
line00000001=STRING|"  TimeIncHours = DateAdd(""h"", CInt(add), CDate(tm))"
line00000002=STRING|"end function"
line00000004=STRING|"'logmessage(TimeIncHours(Now, ""12""))"
linecount=STRING|"5"
loadfromfile=STRING|"1"
variable=STRING|"newTime"

[Actions\Action4]
ActionID=STRING|"A_DIALOG_MESSAGE"
Enabled=INTEGER|-1
Name=STRING|"Show ""TimeIncHours result:"""
Params=FOLDER

[Actions\Action4\Params]
icon=STRING|"1"
msg0=STRING|"TimeIncHours result:"
msg2=STRING|"Current time: {tm}"
msg3=STRING|"Delta: {delta}"
msg4=STRING|"New time: {NewTime}"
msgcount=STRING|"5"
playsound=STRING|"0"
showmessage=STRING|"1"