Guten Morgen,
Daniel hat es in Beitrag #2 doch schon auf den Punkt gebracht:
Delphi-Quellcode:
const
COL_NUMBER = 0;
ROW_OFFSET = 2;
var
i, monday: Integer;
begin
monday := Trunc(DateUtils.StartOfTheWeek(DateTimePicker.Date));
with StringGrid do
for i := 0 to 5 do
Cells[COL_NUMBER, i * 4 + ROW_OFFSET]:= FormatDateTime('dd.mm.yy', monday + i);
end;
Grüße vom marabu