kalendar u pascalu

Odgovori Nova tema

4 odgovora
5.327 pregleda

kalendar u pascalu 07.11.2004. u 23:37 · pre 267 meseci #1

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?

Potpis

toliko od majla

Re: kalendar u pascalu 08.11.2004. u 08:31 · pre 267 meseci #2

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.

Potpis

When something is hard to do, then it's not worth doing.

Re: kalendar u pascalu 09.11.2004. u 00:45 · pre 267 meseci #3

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?

Potpis

toliko od majla

Re: kalendar u pascalu 09.11.2004. u 07:32 · pre 267 meseci #4

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

ss.

Potpis

When something is hard to do, then it's not worth doing.

Re: kalendar u pascalu 02.12.2004. u 20:12 · pre 266 meseci #5

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

Potpis

toliko od majla

Prijavite se da biste odgovorili u ovoj temi.Prijava Registracija

Srodne teme