Imas DateUtils unit prepun funkcija za baratanje vremenom.
Evo ti primer toga sto zelis da napravis (pronaci ce sve petke trinaeste od danas do sledecih 10000 dana):
Code:
var
dt: TDateTime;
i: integer;
begin
dt := now;
for i := 1 to 10000 do
begin
dt := IncDay(dt);
if (DayOfTheWeek(dt) = DayFriday) and (DayOf(dt) = 13) then
listbox1.Items.Add(DateToStr(dt) + ' je petak 13ti.');
end;
end;
ss.
When something is hard to do, then it's not worth doing.