HI All,

Im trying to join a minutes parm with an hour par, For example. i want to join 1600 with 43 minutes = 1643 and use it as a parm. does anyone know how to do this.( i dont have the calctime function by the way)

many thanks

In PowerLanguage (knock off of EasyLanguage) I treat times as natural numbers (positive integers), so that if

Hours = 16

and

Minutes = 43

then

a time of 1643 becomes myTime = Hours*100 + Minutes.

Converting a time of 1643 to minutes, say,

value1 = intportion(myTime/100);
myMinutes = value1*60 +(myTime - value1*100);

Functions that use times (e.g. to place drawing objects) or convert to "ticks since some datum" don't seem to mind.

A few years ago, I wrote the following EasyLanguage function called "addMinutes":

 

Code

Inputs: RefTime(numeric),RefMinutesToAdd(numeric); Vars: vOriginalMinutes(0), vOriginalHours(0); Vars: vTestMinutes(0); Vars: vTempMinutes(0), vTempHours(0); Vars: vNewMinutes(0), vNewHours(0); vOriginalHours = IntPortion(RefTime/100); vOriginalMinutes = Mod(RefTime,100); vTestMinutes = vOriginalMinutes + RefMinutesToAdd; If vTestMinutes <= 59 Then Begin vNewMinutes = vTestMinutes; vNewHours = vOriginalHours; End; If vTestMinutes > 59 Then Begin vTempMinutes = Mod(vTestMinutes,60); vTempHours = IntPortion(vTestMinutes/60); vNewMinutes = vTempMinutes; If vNewMinutes > 59 Then Begin vNewMinutes = vNewMinutes - 60; vTempHours = vTempHours + 1; End; vNewHours = vOriginalHours + vTempHours; If vNewHours > 23 Then vNewHours = vNewHours - 24; End; AddMinutes = (vNewHours * 100) + vNewMinutes;

It takes as its inputs the original time (in standard EL military time format) and the number of minutes you want to add and returns the new time.

I think there are easier ways in EasyLanguage to do this ... but this works for me!

TS has CalcTime(RefTime, MinuteChange) to do this.

And the code is trivially simple:

 

Code

CalcTime = MinutesToTime( TimeToMinutes( RefTime ) + MinuteChange ) ;