Fórum Somar o total de semanas de uma determinada tabela? #367470

function TForm1.CountDSRsInPeriod: Byte;
Var
   DSR: Array[1..6] of Byte;
   I: Byte;
begin
     //Zera as variáveis
     Result := 0;
     for I := Low(DSR) to High(DSR) do
         DSR[I] := 0;

     With DM do
     begin
          if (not cdsHistFaltasTemp.Active) or (cdsHistFaltasTemp.IsEmpty) then
             Exit;
          dm.cdsHistFaltasTemp.First;
          while not dm.cdsHistFaltasTemp.Eof do
          begin
              Case NthDayOfWeek(cdsHistFaltasTempDATA_FALTA.AsDateTime) of
                1: begin
                       DSR[1] := 1;
                   end;
                2: begin
                       DSR[2] := 1;
                   end;
                3: begin
                       DSR[3] := 1;
                   end;
                4: begin
                       DSR[4] := 1;
                   end;
                5: begin
                       DSR[5] := 1;
                   end;
                6: begin
                       DSR[6] := 1;
                   end;
              end;
              dm.cdsHistFaltasTemp.Next;
          end;
     end;
     // Result recebe o valor dos DSRs
     // do período informado
     for I := Low(DSR) to High(DSR) do
         Result := Result + DSR[I];
end;