Skip to Content Former Member

### Time not calculating when more than one employee per order

I am calculating the time taken to complete a production order. I use this formula to get the time. The CR is grouped by Order#, Dept, Empid, and work code. Work codes are calculated according to a set (begin and end) and we have a list of all endings so we know which are a set.

This formula is working for a total of time per order but only where there is one employee on an order, but there can be more than 1. It does the last employee on the order.

shared numbervar OrderTime:=OrderTime;

if OrderTime>0 then

cstr(int(OrderTime/60)) & ":" &  right( "00" & cstr(OrderTime mod 60),2);

---

order time is done in this formula which is done for each set of work codes.

shared numbervar OrderTime:=OrderTime;

shared numbervar StTime:= StTime;

shared numbervar EdTime:= EdTime;

shared numbervar finalTime:= 0;

shared numbervar empTime:=empTime;

shared numbervar TotalWTime:=TotalWTime;

shared numbervar DeptTime:=DeptTime;

if StTime>0 and EdTime>0 and len(cstr(StTime))=6 and len(cstr(EdTime))=6 then

finalTime:= (tonumber( mid(totext(EdTime,0,""),1,1)) * 60 + tonumber( mid(totext(EdTime,0,""),2,2)) )  - (tonumber( mid(totext(StTime,0,""),1,1)) * 60 +

tonumber( mid(totext(StTime,0,""),2,2)) );

if StTime>0 and EdTime>0 and len(cstr(StTime))=7 and len(cstr(EdTime))=7 then

finalTime:= (tonumber( mid(totext(EdTime,0,""),1,2)) * 60 + tonumber( mid(totext(EdTime,0,""),3,2)) )  - (tonumber( mid(totext(StTime,0,""),1,2)) * 60 +

tonumber( mid(totext(StTime,0,""),3,2)) );

if StTime>0 and EdTime>0 and len(cstr(StTime))=6 and len(cstr(EdTime))=7 then

finalTime:= (tonumber( mid(totext(EdTime,0,""),1,2)) * 60 + tonumber( mid(totext(EdTime,0,""),3,2)) )  - (tonumber( mid(totext(StTime,0,""),1,1)) * 60 +

tonumber( mid(totext(StTime,0,""),2,2)) );

if StTime>0 and EdTime>0 and len(cstr(StTime))=7 and len(cstr(EdTime))=6 then

finalTime:= (tonumber( mid(totext(EdTime,0,""),1,1)) * 60 + tonumber( mid(totext(EdTime,0,""),2,2)) )  - (tonumber( mid(totext(StTime,0,""),1,2)) * 60 +

tonumber( mid(totext(StTime,0,""),3,2)) );

if StTime>0 and EdTime>0 then

OrderTime:= OrderTime + finalTime;

if finalTime>0 then

empTime:=empTime+finalTime;

if finalTime>0 then

TotalWTime:=TotalWTime+finalTime;

if finalTime>0 then

StTime:=0;

if finalTime>0 then

EdTime:=0;

if finalTime>0 then

DeptTime:=DeptTime+finalTime;

if finalTime>0 then

cstr(int(finalTime/60)) & ":" &  right( "00" & cstr(finalTime mod 60),2);

##### Add comment
10|10000 characters needed characters exceeded

### 1 Answer

• Best Answer
Dec 30, 2014 at 12:39 AM

Your formula shows that you're processing order time by work code group - it will not work for the order group.  However, if you want to get the total time for the whole order, you'll probably need to do something like this:

1.  Get the minimum start time for the order group.  (Use the actual Date field instead of the variables you're using above.)

2.  Get the maximum end time for the order group.  (Use the actual Date field instead of the variables you're using above.)

3.  Subtract the start time from the end time.

4.  Convert the result to your minutes and second format.

-Dell

##### Add comment
10|10000 characters needed characters exceeded