[cadil]

Сообщение от Ildar-tsr

Ты уж прости, но тебе не кажется, что твое решение немного идиотски не универсальное? А что если не октябрь будет, а ноябрь?

Код:

procedure TForm1.Button10Click(Sender: TObject);
var
  date2: string;
  y,m,d: word;
begin
date2:= table1.Cell(j, 3).Range.Text;
Label10.Caption:=date2;
DecodeDate(strtodate(date2),y,m,d);
case m of
1: Label11.Caption:= 'выполнено в январе';
2: Label11.Caption:= 'выполнено в феврале';
3: Label11.Caption:= 'выполнено в марте';
4: Label11.Caption:= 'выполнено в апреле';
5: Label11.Caption:= 'выполнено в мае';
6: Label11.Caption:= 'выполнено в июне';
7: Label11.Caption:= 'выполнено в июле';
8: Label11.Caption:= 'выполнено в августе';
9: Label11.Caption:= 'выполнено в сентябре';
10: Label11.Caption:= 'выполнено в октябре';
11: Label11.Caption:= 'выполнено в ноябре';
12: Label11.Caption:= 'выполнено в декабре';
end;
end;

Конечно, ты прав! Я хотел продемонстрировать только общий подход. Не воспользоваться твоим решением было бы глупо.
Еще раз - благодарю!