ISOWeeksApart Function
Returns the Number of ISO Weeks between DT2 and DT1.

Unit
QESBPCSDateTime

Declaration
Function ISOWeeksApart(const DT1, DT2: TDateTime): LongInt;

Description
An ISO Week is taken as starting with Monday. If result is 0 then they are in within the same ISO Week, if result is negative then DT2 occurs in an ISO Week before DT1.

Parameters
DT1 First Date/Time to process.
DT2 Second Date/Time to process.

Category
Date/Time Arithmetic Routines
Week Based Arithmetic Routines

Implementation

function ISOWeeksApart (const DT1, DT2: TDateTime): Integer;
begin
     Result := WeeksApart (StartOfISOWeek (DT1), StartOfISOWeek (DT2));
End;


HTML generated by Time2HELP
http://www.time2help.com