kalendar u pascalu

[ mihajilo @ 07.11.2004. 23:37 ] @

treba mi pomoc za izradu programa u paskalu koji odredjuje kada se u toku godine desava petak trinaesti.da li za izradu tog programa ima neka funkcija ugradjena u paskal tipa kalendar?

[ sasas @ 08.11.2004. 08:31 ] @

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.

[ mihajilo @ 09.11.2004. 00:45 ] @

zadatak tacno glasi ovako:
ako je petak 13ti bio u februaru 2004.god.odrediti datum kada ce biti sledeci petak 13ti.verovatno treba da radi kada unesem i neki drugi datum kada je bio petak 13ti,ali kako da postavim datum 13.2.2004. i kako da ga povecavam do sledeceg petka 13-og?

[ sasas @ 09.11.2004. 07:32 ] @

Trebalo bi da pokazes malo vise dobre volje da ucis da bi ti ljudi ubuduce pomagali kad zapnes.

ss.

[ mihajilo @ 02.12.2004. 20:12 ] @

hvala svima na pomoci ali sam se ipak sam snasao i bez koriscenja vasih uputstava.
sve u svemu hvala i da znate da je dobro videti jos neciji stav a ne samo raditi po svom