DatesInSameMonthYear Function
Returns true if both DateTimes refer to the exact same Month, cannot have different years.

Unit
QESBPCSDateTime

Declaration
Function DatesInSameMonthYear(const DT1, DT2: TDateTime): Boolean;

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

Category
Date/Time Arithmetic Routines
Month Based Arithmetic Routines
Date/Time Comparison

Implementation

function DatesInSameMonthYear (const DT1, DT2: TDateTime): Boolean;
begin
     Result := DatesInSameMonth (DT1, DT2) and DatesInSameYear (DT1, DT2);
End;


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