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; |
|