Question - date and color

Men you are simply perfect

Another question.. like i already told, i'm building an inventory of products.. i wan't to have a way to save manuals...certifications etc of each product... what is the best way to do that? I have a table with a field for files.. and already have it in a form but i want something different, like list manuals and other documents for each product in a table grid for example..

Thanks once again

i think we are searching Selling products installments
Any sense of the history of the introduction of the product after 30 days the color changed to red.
that good idea.can you help us.

thank you Mr.Dmitry .Good Developer.

Very nice script !

Ii took the opportunity to modify it as follows :

begin
     c := Form1.GridEmployees.RowCount - 1;
     for i := 0 to c do
     begin
         s := Form1.GridEmployees.Cells[2,i];
         if ValidDate(s) then
             if (StrToDate(s) - 15) >= now then Form1.GridEmployees.Cell[2,i].Color := clGreen;
             if (StrToDate(s) - 15) < now then Form1.GridEmployees.Cell[2,i].Color := clYellow;
             if (StrToDate(s) - 7) < now then Form1.GridEmployees.Cell[2,i].Color := clRed;
     end;
end;

The result is :
- 15 or more days -> color is green
- less than 15 days ->color is yellow
- less than 7 days -> color is red

Your tool is howesome !

Thanks for teh great work.

Math

Thanks for the script mathmathou, I was looking for something like this