Topic: Дата рождения
Ув. Дмитрий. вот скрипт.
procedure Form1_TableGrid1_OnChange (Sender: string);
var
i, c: integer;
sCell4: string;
begin
c := Form1.TableGrid1.RowCount - 1;
for i := 0 to c do
begin
sCell4 := Form1.TableGrid1.Cells[4,i]; //Дата рождения в 4 колонке грида
if ValidDate(sCell4) then
begin
if (DaysBetween(Now, StrToDate(sCell4)) = 0) then
begin
Form1.TableGrid1.Cell[4,i].Color := clGreen;
end else
begin
Form1.TableGrid1.Cell[4,i].Color := clWindow;
end;
end;
end;
end;
Например дата рождения 03.12.2000, сегодня 03.12.2015. Дата становится зеленым при и 03.12.2015 и 04.12.2015. В остальные цвет становится clWindow.
1. Как это исправить?
2. Надо чтобы за день до даты рождения цвет была желтым а в день рождения была зеленым.
Помогите пожалуйста.