Create a Table of Dates

[MLNorton]

I need to create a Table of the weeks and dates of the Mondays of a year. I select the first Monday of the year from a MonthCalendar.
The Table values are as follows:
Week integer (1, 2, 3..52)
DateName string (Jan 7, Jan 14, Jan 21..Dec 30)
WeekName string (1/7, 1/14. 1/21..12/30)

Can anyone help?

 

[imex]

Try something like this:

var
  DateAux: TDate;
  DateEndYear: TDate;
  WeekNo: integer;
begin
  DateAux := MonthCalendar1.Date;
  DateEndYear := EndOfTheYear;
  WeekNo := 1;
  repeat 
      ShowMessage(IntToStr(WeekNo) + sLineBreak +
                  FormatDateTime('mmm d', DateAux) + sLineBreak +
                  FormatDateTime('m/d', DateAux));
      DateAux := DateAux + 7; 
      Inc(WeekNo);
  until DateAux > DateEndYear;

Hope this helps.

[URL unfurl="true"]http://www.imoveisemexposicao.com.br/imobiliarias-em-guarulhos[/url]

 

[imex]

ps: you need to add the unit DateUtils in the uses

[URL unfurl="true"]http://www.imoveisemexposicao.com.br/imobiliarias-em-guarulhos[/url]