WEEKHIGHAV4DAILY

INPUT:LENGTH(NUMERIC);



ARRAY:HARRAY[200](0);



IF DAYOFWEEK(DATE) < DAYOFWEEK(DATE[1]) THEN BEGIN

     VALUE4 = 0;

     HARRAY[LENGTH + 1] = VALUE1;



     FOR VALUE0 = 1 TO LENGTH BEGIN



          HARRAY[VALUE0] = HARRAY[VALUE0 + 1];

          VALUE4 = VALUE4 + HARRAY[VALUE0];

      

     END;

                     

     VALUE1 = H;

     VALUE3 = 0;

     VALUE6 = ROUND(VALUE4 / LENGTH,2);

     WEEKHIGHAV4DAILY = VALUE6;



END;



IF H > VALUE1 THEN VALUE1 = H;