type tarih=record gun,ay:byte;yil:integer;end;
function gunhesapla(t1,t2:tarih):longint;
const gunsay:array[1..12] of byte=(31,28,31,30,31,30,31,31,30,31,30,31);
var t:tarih;b:boolean;k:tarih;h:longint;
begin
b:=false;
if t2.yil<t1.yil then b:=true else
if t2.ay<t1.ay then b:=true else
if t2.gun<t1.gun then b:=true else
if (t1.gun=t2.gun) and (t1.ay=t2.ay) and (t1.yil=t2.yil) then begin gunhesapla:=0;exit;end;
if b then begin t:=t1;t1:=t2;t2:=t;end;
k:=t1;h:=0;
repeat
inc(h);
inc(k.gun);
if k.gun>gunsay[k.ay]+ord(k.ay=2)*ord(k.yil mod 4=0) then
begin
k.gun:=1;inc(k.ay);
if k.ay>12 then
begin
k.ay:=1;
inc(k.yil);
end;
end;
until (k.gun=t2.gun) and (k.ay=t2.ay) and (k.yil=t2.yil);
gunhesapla:=h;
end;
var t1,t2:tarih;
begin
writeln('1.tarih');
write('gün:');readln(t1.gun);
write('ay:');readln(t1.ay);
write('yıl:');readln(t1.yil);
writeln('2.tarih');
write('gün:');readln(t2.gun);
write('ay:');readln(t2.ay);
write('yıl:');readln(t2.yil);
writeln('bu tarihler arasında ',gunhesapla(t1,t2),' gün wardır.');
readln;
end.
anlaşılmayan bişey warsa yardımcı olabilirim. kolay gelsin.
Tarihten Tarih Cikarma
Normal
