џџџџџ 4š (HHџџPage1Form€мx|,Э БЈБэБъЬт1Hі:0џџџџџШ2вГНХ1|і0џџџџџШ—вГЭЗ1œі&0џџџџџШŠ жїЯюЪ§Он2і0џџџ frDBDataSet1begin  FoundDateId := -1;  for i:=0 to IDCount-1 do  begin ! if DateIDs[i]=["DateId"] then begin 0 DateSums[i] := DateSums[i]+[TimeInterval];  FoundDateId := i; break;  end;  end;  if FoundDateId=-1 then  begin # DateIds[IDCount] := ["DateId"]; ( DateSums[IDCount] := [TimeInterval];  inc(IDCount);  end; endШ:ЗжзщЭЗ1мі0џџџ[qryLeave1."UserId"]begin  IDCount:=0;  DataIdSummary:=''; endШЁЗжзщНХ1<і0џџџШ(Memo10єАHџџџ.DurationџџArial †џџџОMemo19@L0Cџџџ.Business Leave/AfL ListџџArialџџџ Line1@l,џџџ.џџ\Line2@h,џџџ.џџшMemo20HT€Cџџџ. [ReportRange]џџArial џџџ7Line4A€ƒџџџ.џџХMemo22H„„Cџџџ.[Administrator]џџArial џџџOMemo23„ЈCџџџ. . [PAGE#] .џџArial џџџдMemo24„tCџџџ.[DATE]џџArial џџџМ Memo25ЬTьCџџџ.iFrom [FORMATDATETIME('yyyy-mm-dd', [ReportStartDate])] To [FORMATDATETIME('yyyy-mm-dd', [ReportEndDate])]џџArial џџџD Memo3<А\џџџ. Start TimeџџArial †џџџъ Memo4<\џџџ,yy-mm-dd hh:nn[qryLeave1."STARTSPECDAY"]џџArial џџџp Memo6˜А\џџџ.End TimeџџArial †џџџ Memo13˜\џџџ,yy-mm-dd hh:nn[qryLeave1."ENDSPECDAY"]џџArial џџџ˜ Memo16,А@џџџ.TypeџџArial †џџџ+ Memo17,@џџџ.[qryLeave1."DATEID"]џџArial џџџЏ Memo18lАTџџџ.ResonџџArial †џџџDMemo26lTџџџ.[qryLeave1."YUANYING"]џџArial џџџ“Line5=Тƒџџџ.џџ#Memo1<фxџџџ.[qryLeave1."Name"]џџArial џџџКMemo2Мфxџџџ.[qryLeave1."BadgeNumber"]џџArial џџџJMemo5<<hџџџ.[qryLeave1."Name"]џџArial џџџсMemo7Є<lџџџ.[qryLeave1."BadgeNumber"]џџArial џџџzMemo8& џџџ,hh:nn[TimeInterval/(24*60)]џџArial џџџMemo9№C џџџ,hh:nnnt(TimeInterval/(24*60))]џџArial џџџ}Memo11<Аџџџ.[DataIdSummary]begin A DataIdSummary := DateIds[0]+':'+STR(int(DateSums[0]/6)/10)+' ';  for i := 0 to IDCount-1 do  begin Q DataIdSummary := DataIdSummary+' '+DateIds[i]+':'+STR(int(DateSums[i]/6)/10);  end; endArial џџџўўџ Var1IDCountDateIDs TimeIntervalBround(([qryLeave1."ENDSPECDAY"]-[qryLeave1."STARTSPECDAY"])*24*60)DateSums DataIdSummary qryLeave1 qryLeaveClassqryLeaveClass2qryLeave