Datum

[marabu]

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