date

Как правильно распределить 30 дней для 3 цветов от 1 до 15 зеленый от 15 до 25 желтый от 25 до 30 красный Не могу придумать как это сделать. вот я думаю так делать, но в условиях не формат даты procedure TWindow.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State...