Dny mezi dvema daty – Pascal – Fórum – Programujte.com

....

function Prestupny (Rok: integer): boolean;
begin
Prestupny:= ((Rok mod 4 =0) and (Rok mod 100<>0)) or (Rok mod 400=0);
end;

begin
Writeln ('Zadej prvni datum:');
read (Den1,Mesic1,Rok1);
Writeln ('Zadej druhe datum:');
read (Den2,Mesic2,Rok2);

PocetDni:=0;
for i:= Rok1 to Rok2 do
if Prestupny(i) then PocetDni:=(Rok2-Rok1)*366
else PocetDni:=(Rok2-Rok1)*365;

....         

Mohu se zeptat, kde mam chybu v teto funkci? a proc se pocita spatne?

No jestli dobře koukám, tak máš jednu funkci (Prestupny) a k ní dvě těla (dva bloky begin-end)

#2 miHan
ta funkce je jen ta prvni cast, ta druha je cast je uz ta problematicka cast toho programu kam pomoci te funkce chci neco vyhodnotit..

#3 kejta

Osobně bych ti na rozparsování data doporučil spíše funkci DecodeDate, než tak jak to máš řešené (viz http://www.delphibasics.co.uk/RTL.asp?Name=DecodeDate).

Počet dní mezi dvěma daty získáš jednoduše tak, že tyto dvě data od sebe odečteš .

A pro zjištění, zda je daný rok přestupný ti docela dobře poslouží funkce IsLeapYear (viz http://www.delphibasics.co.uk/RTL.asp?Name=IsLeapYear&ExpandCode1=Yes).

Snad ti to pomohlo ke správnému řešení ...

Taky jsem se o těchto funkcích dočetl, ale vůbec jsem se je zatím neučili, tudíž je nejspíš nemáme používat. 

Ale každopádně díky za snahu. Na řešení už jsem přišel, měl jsem napsaný nesmysly v tom for cyklu.

#6 kejta
Nejdříve k té funkci
function Prestupny (Rok: integer): boolean;
Podle deklarace má být výstupem logická hodnota tedy (True nebo False (také možno 1 nebo 0)

A ty tam děláš nějaké vyhodnocování, které ovšem není v podmínce.

Tedy zkus to takhle:

function Prestupny (Rok: integer): boolean;
begin
if ((Rok mod 4 =0) and (Rok mod 100<>0)) or (Rok mod 400=0)then
  Prestupny := True
else
  Prestupny := False;
end;

k programu:

Co myslíš, že ti to bude počítat? (až ti to projde přes funkci Prestupny)

V každém kroku zjistíš, zda je tento rok přestupný nebo není a pak do proměnné Pocet dní vložíš 366 nebo 365.

To znamená, že na konci budeš mít v proměnné Pocet dni buď (Rok2-Rok1)*366 (pokud ten poslední rok bude přestupný) nebo (Rok2-Rok1)*365 (pokd nebude) a to jistě nechceš.

Aby ti to dělalo dobře pak musíš cyklus udělat takto:

PocetDni:=0;
for i := Rok1 to Rok2 do
  if Prestupny(i) then 
    PocetDni := PocetDni+366
  else 
    PocetDni := PocetDni+365;

Ještě poznámka:

Jestli chceš zjistit kolik dní uplynulo od prvního data do druhého data (a to jistě chceš), pak počítej jen celé roky mezi hodnotami Rok 2 a Rok1 (a zbytek už spočítáš z měsíců a dní Rok1 a Rok2), tedy v cyklu použij

PocetDni:=0;
for i := Rok1+1 to Rok2-1 do
  if Prestupny(i) then 
    PocetDni := PocetDni+366
  else 
    PocetDni := PocetDni+365;

#6 kejta
Tak jsem zkoušel ještě jednou tu tvou funkci  function Prestupny (Rok: integer): boolean;

a kdybys ji napsal takto:

function Prestupny (Rok: integer): boolean;
begin
  Prestupny := (Rok mod 4=0)and((Rok mod 100<>0)or(Rok mod 400=0));
end;

tak by to fungovalo.

Díky za postřehy, přesně takto jsem to vyřešil. :)

btw. a ta funkce funguje i podle toho meho predchoziho navrhu:)

#5 kejta
Taky jsem se o těchto funkcích dočetl, ale vůbec jsem se je zatím neučili, tudíž je nejspíš nemáme používat.

To že jste se to neučili neznamená, že bys to neměl používat, Je kvantum věcí který se nevyučují a přes to jsou fajn  .

Každopádně jsem rád že se ti to povedlo vyřešit.

Supeeer děkuji moc, moc mi to pomohlo.. MILUJI PASCAL!  

#12 zdenenenecek
Jé tak to jo ja taky MILUJU PASCAL      

NECHTĚLA BYS DÁT RANDE?   jsme si souzeni

#14 zdenenenecek
Tak proč ne,když jsme si asi souzeni  Kde  a kdy ?

#15 katullina
Nooo, končím 11.30 v prác tak můůžem paaak, ty můůj Pascálku :-)   

#16 zdenenenecek
Dobře,tak potom můžeme něco vymyslet Pascálku :)  

#18 zdenenenecek
Tak se teš