| DatesInSameISOWeekNo Function | 
Unit
QESBPCSDateTime
Declaration
Function DatesInSameISOWeekNo(const DT1, DT2: TDateTime): Boolean;Implementation
 
| function DatesInSameISOWeekNo (const DT1, DT2: TDateTime): Boolean;
var
     W1, W2: Integer;
     Y1, Y2: Word;
begin
     Date2ISOWeekNo (DT1, W1, Y1);
     Date2ISOWeekNo (DT2, W2, Y2);
     Result := (W1 = W2) and (Y1 = Y2);
End; | 
|  |