![]() |
Tarihten Tarih Cikarma
Bana tarihten tarih cıkarma ıslemı yapan ve arada kaç gün olduğunu bulan program parçası lazım..!! YARDIM!!
|
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. |
bu arada satır başındaki boşluklar çıkmıyo sanırım bidahakine "." kullanıcam
|
paylaşım için tşkler
|
Paylaşım için tşkler…
|
teŞekkÜrler PaylaŞim İİÇİn
|
Bütün Zaman Ayarları WEZ +3 olarak düzenlenmiştir. Şu Anki Saat: 11:37 . |
Powered by vBulletin® Version 3.7.0
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.