report header:

shared numbervar array stateMinute;

redim stateMinute[10];

 

in the detail:

shared datetime lastDate;

local datetime thisDate := {table.field};

shared int lastStatus;

 

stateMinute[lastStatus] = datediff("s", lastDate, thisDate);

lastStatus := {table.status};

"" //hide the output of the formula

 

in footer:

shared numbervar stateMinute;

local stringvar result := "";

local numbervar ind;

for ind = 1 to 10 step 1 do(

  if stateMinute[ind] <> 0 then (

     result := result + totext(ind, 0,"") + chrw(9);   //status and tab

     result := result + formula to format the secondsas desired + chrw(13) + chrw(10);   //seconds formated as hours:minutes:seconds crlf

  );

);

result

 

 

place the display in a text field that can grow.

 

it should be close, I don't remember precise syntax or the order of values in teh datediff function, but my goal is to give a path to a solution.

 

 

I've used your code and with a little modification it now works !

It's been a steep learning curve but I'm begining to get to grips Crystal Reports and can see me using it a lot as time goes by.

 

Thanks again for your invaluable help.

 

The finished codeis this:

 

 

// Flag set to indicate first record being read

    shared booleanVar FirstRecord:= TRUE;

// Array to hold accumulated time periods in seconds for each status (0-10)

    shared numberVar array StatusArray;
    redim StatusArray [11];

// Status descriptions (0-10) held in second array

    Shared stringVar array StatusNames := [
    
        'Unknown                            ',
        'Stopped                            ',
        'Stopped in alarm               ',
        'Status 3 (Future)              ',
        'Status 4 (Future)              ',
        'Status 5 (Future)              ',
        'Status 6 (Future)              ',
        'Waiting for upstream line     ',
        'Running in alarm               ',
        'Running empty                  ',
        'Running                            '
        ];
 

// Hide the output

    ""

 

 

Deatil Section

 

// Variable declarations

    // External from header
    shared booleanVar      FirstRecord;
    shared numberVar array StatusArray;

    // Last Scan
    shared dateTimeVar  LastTime;
    shared numberVar    LastStatus;

    // This Scan
    local dateTimeVar  ThisTime;
    local numberVar    ThisStatus;

    // Scan Results
    local numberVar    Status;
    local numberVar    Period;

    // Totaliser
    local numberVar    Status;
    local numberVar    Period;
    local numbervar    Index;

 
// Read time and status from current record

    ThisTime    := {LinesStatus.TimeCol};
    ThisStatus  := {LinesStatus.Status};

  
// Check for first record

    IF FirstRecord = TRUE

    THEN

    // Take a snapshot of current record on first scan

   (LastStatus  := ThisStatus;
    LastTime    := ThisTime)
 
    ELSE

    // Calculate period and status on all other scans

  ( Period      := datediff("s", LastTime, ThisTime);
    Status      := LastStatus;
    LastStatus  := ThisStatus;
    LastTime    := ThisTime);

// Reset first record flag

    FirstRecord:= FALSE;

// Assemble results into an array (Offset by 1 to cope with Status 0)

    StatusArray[STATUS + 1]:= StatusArray[STATUS + 1] + Period;

// Hide the output

   ""

 

 

 
// External variable from header
  
    shared numberVar array StatusArray;
    shared stringVar array StatusNames;

//  Result string

    local stringvar Result := "";

// Loop to assemble each status/period 

    local numbervar i;
       
    FOR i := 1 to 11 step 1 do(

        if StatusArray <> 0 then (