;***************************** ;* RoboTask Task file ;* Do not edit in text editor! ;***************************** [Root] ActionAfterRun=INTEGER|0 Actions=FOLDER Automat=INTEGER|0 CatID=INTEGER|1981091247 Comment=STRINGLIST ContinueOnError=INTEGER|0 ExternalName=STRING|"Task3" Hide=INTEGER|0 ID=INTEGER|-798273842 LogOnAsUser=INTEGER|1 Name=STRING|"[DEMO] ""TimeIncSeconds"" 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 ""{Time}""" Params=FOLDER [Actions\Action1\Params] expand=STRING|"1" varname=STRING|"TM" varvalue=STRING|"{Time}" [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|"TimeIncSeconds(""{tm}"", {delta})" line00000000=STRING|"function TimeIncSeconds(tm, add)" line00000001=STRING|" TimeIncSeconds = DateAdd(""s"", CInt(add), CDate(tm))" line00000002=STRING|"end function" line00000005=STRING|"'logmessage(Now)" line00000006=STRING|"'logmessage(TimeIncSeconds(Now, ""12""))" linecount=STRING|"7" loadfromfile=STRING|"1" variable=STRING|"newTime" [Actions\Action4] ActionID=STRING|"A_DIALOG_MESSAGE" Enabled=INTEGER|-1 Name=STRING|"Show ""TimeIncSeconds result:""" Params=FOLDER [Actions\Action4\Params] icon=STRING|"1" msg0=STRING|"TimeIncSeconds result:" msg2=STRING|"Current time: {tm}" msg3=STRING|"Delta: {delta}" msg4=STRING|"New time: {NewTime}" msgcount=STRING|"5" playsound=STRING|"0" showmessage=STRING|"1"