Gün sayısı

[csyasar]

Kod: Tümünü seç

function TForm1.tarih_cikar(tarih:tdatetime;i:integer):tdatetime;
var aylar:array[1..12] of integer;
    yil,ay,gun:integer;
    s,ayirac:string;
begin
     yil:=0;ay:=0;gun:=0;
     aylar[1]:=31;aylar[2]:=28;aylar[3]:=31;aylar[4]:=30;
     aylar[5]:=31;aylar[6]:=30;aylar[7]:=31;aylar[8]:=31;
     aylar[9]:=30;aylar[10]:=31;aylar[11]:=30;aylar[12]:=31;

     ayirac:=copy(datetostr(tarih),3,1);
     yil:=strtoint(copy(datetostr(tarih),7,4));
     ay:=strtoint(copy(datetostr(tarih),4,2));
     gun:=strtoint(copy(datetostr(tarih),1,2));
     if (yil mod 4)=0 then aylar[2]:=29 else aylar[2]:=28;

     if gun>1 then
     begin
        gun:=gun-1;
        s:=inttostr(gun)+ayirac+inttostr(ay)+ayirac+inttostr(yil);
        tarih_cikar:=strtodatetime(s);
     end else if gun=1 then
     begin
        if ay>1 then
        begin
                gun:=aylar[ay-1];
                s:=inttostr(gun)+ayirac+inttostr(ay-1)+ayirac+inttostr(yil);
                tarih_cikar:=strtodatetime(s);
        end else if ay=1 then
        begin
                yil:=yil-1;
                ay:=12;
                gun:=31;
                s:=inttostr(gun)+ayirac+inttostr(ay)+ayirac+inttostr(yil);
                tarih_cikar:=strtodatetime(s);
        end;
     end;
end

[aslangeri]

kardeş yanlış anlama ama bu procedure ne işe yarıyor. Amacı nedir yani?