Calulating start/end dates for each month i.e. Jan

JamieBrown

Hi,

Does anyone know a way of calculating the start and end dates of each month in the current year?

Thanks in advance
Jamie

Luc_VanDyck

Try this code:

intYear := DATE2DMY(TODAY,3);
FOR i := 1 TO 12 DO BEGIN
  datStartDate := DMY2DATE(1,i,intYear);
  datEndDate := CALCDATE('<+1M-1D>',datStartDate);
  MESSAGE('Month %1: %2 - %3',i,datStartDate,datEndDate);
END;

David_Cox

David Cox wrote:

Luc Van Dyck wrote:

Try this code:

intYear := DATE2DMY(TODAY,3);
FOR i := 1 TO 12 DO BEGIN
  datStartDate := DMY2DATE(1,i,intYear);
  datEndDate := CALCDATE('<+1M-1D>',datStartDate);
  MESSAGE('Month %1: %2 - %3',i,datStartDate,datEndDate);
END;

Or try
datEndDate := CALCDATE('CM',datStartDate);

Hi Jamie
You might find these useful for reference as well
'-CM' = First Day and 'CM' = Last Day
You also have the same for week '-CW' and CW

FirstDay := CALCDATE('-CM',TODAY);
LastDay := CALCDATE('CM',TODAY);

Dave

Luc_VanDyck

David Cox wrote:

datEndDate := CALCDATE('CM',datStartDate);

Don't forget the multi-language aspect in your code, so you would better write

datEndDate := CALCDATE('<CM>',datStartDate);

so it works independant of the users language.

JamieBrown

Thanks for all your help guys.

Worked perfectly.

Jamie