Anasayfa > Kodlar > Delphi ile Gün sayısı

Delphi ile Gün sayısı

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;


TD Software


Reklamlar
  1. Henüz yorum yapılmamış.
  1. No trackbacks yet.

Bir Yanıt Bırakın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: