Time Calculation in MessageBox

[kriemer]

I use the following partial code

Code: Select all

//Set RunTime in Hours
  Let>RuntimeHr=0.03
  Let>RunTimeMin=RunTimeHr*60
  Let>RunTimeSec=RunTimeMin*60
//Time Calculation & Screen Message Box - All Attempts
  VBEval>DateAdd("m",%RunTimeHr%,now),LoopEndTime
  Let>MSG_STAYONTOP=1
  Message>Loop Run Time: %RunTimeHr% Hour(s) / %RunTimeMin% Min(s) %CRLF%Loop Completion: %LoopEndTime%

This message part of the code works so long as the RunTimeHr is an integer. When the value is not an integer the %LoopEndTime% value does not calculate.

Any ideas where I've gone wrong? (I could send the entire scripts if this snippet does not provide enough information.

k

[JRL]

I believe that DateAdd only uses whole numbers. So the logical thing to do would be to use the calculated seconds.

VBEval>DateAdd("s", %RunTimeSec%, now),LoopEndTime

[kriemer]

So simple, once you know; so hard to know.

Thanks for the answer this was really starting to bug me.

k