Program na výpočet počtu dnů mezi dátumama

Delphi & Pascal (česká wiki)
Přejít na: navigace, hledání
Kategórie: KMP (Programy mladých programátorů)

Autor: Ľuboš Saloky
Program: Pocetdni.pas
Soubor exe: Pocetdni.exe

Program na výpočet počtu dnů mezi dátumama. Nebere v úvahu přestupný rok.
{ pocetdni.pas                                                      }
{ Program na vypocet poctu dni medzi dvoma datumami.                }
{ Neberie v uvahu prestupny rok.                                    }
{                                                                   }
{ Author: Ľuboš Saloky                                              }
{ Datum: 01.01.1996                           http://www.trsek.com  }
 
program TYP_RECORD;
uses Crt;
type datum=record
     den,mesiac:byte;
     rok:integer;
     end;
var dni1,dni2,rozdiel:real;
    jedenden,druhyden:datum;
    a:byte;
    mesiac:array[1..12]of byte;
begin
mesiac[1]:=31;mesiac[2]:=28;mesiac[3]:=31;mesiac[4]:=30;
mesiac[5]:=31;mesiac[6]:=30;mesiac[7]:=31;mesiac[8]:=31;
mesiac[9]:=30;mesiac[10]:=31;mesiac[11]:=30;mesiac[12]:=31;
writeln('Zadaj prvy datum:den,mesiac,rok');
readln(jedenden.den,jedenden.mesiac,jedenden.rok);
writeln('Zadaj druhy datum:den,mesiac,rok');
readln(druhyden.den,druhyden.mesiac,druhyden.rok);
if jedenden.rok>0 then dni1:=int((jedenden.rok-1)*365.25)+jedenden.den;
if druhyden.rok>0 then dni2:=int((druhyden.rok-1)*365.25)+druhyden.den;
if jedenden.mesiac>1 then begin
                          for a:=1 to jedenden.mesiac-1 do
                            dni1:=dni1+mesiac[a];
                          end;
if druhyden.mesiac>1 then begin
                          for a:=1 to jedenden.mesiac-1 do
                            dni2:=dni2+mesiac[a];
                          end;
writeln('Rozdiel je:',dni1,dni2,abs(dni1-dni2):9:0);
repeat until keypressed;
end.