Facebook'ta Paylaş
Tweetle
Google Plus'ta Paylaş

Delphi Procedure ile hafta, ay, gün, yıl hesaplama ve yazdırma

0
Konuyu Beğen
0
#1
PHP Kod:
PHP Kod:
// başlamadan önce uses satırına dateutils ekleyin 
procedure SonTarihHesapla(BaslangicTarihi:TDateArtisRakami:IntegerHafta,Ay,Yil,Gun:BooleanNereyeYazayim:TEdit);
 
 var
  BitisTarihi
:TDate;
 
 //GelenSayi:Integer;
 
 begin

   
if gun then
    begin
     BitisTarihi
:=IncDay(BaslangicTarihi,ArtisRakami);
 
    NereyeYazayim.Text:=DateToStr(BitisTarihi);
 
   end

      else 
if Hafta then
      begin
      BitisTarihi
:=IncWeek(BaslangicTarihi,ArtisRakami);
 
     NereyeYazayim.Text:=DateToStr(BitisTarihi);
 
     end

        else 
if Ay then
        begin
        BitisTarihi
:=IncMonth(BaslangicTarihi,ArtisRakami);
 
       NereyeYazayim.Text:=DateToStr(BitisTarihi);
 
       end

          else 
if Yil then
            begin
            BitisTarihi
:=IncYear(BaslangicTarihi,ArtisRakami);
 
           NereyeYazayim.Text:=DateToStr(BitisTarihi);
 
           end;

 
 end;
 
  
// hafta hesaplamak için buton click
 
  
  var
  GelenTarih
:Tdate;
 
 begin
   
  GelenTarih
:=strtodate(edit1.text);
 
  
  SonTarihHesapla
(GelenTarih,RzNumericEdit1.IntValue,true,false,false,false,Edit2);
 
 end;
 
  

  
// ay hesaplamak için buton click

 
 var
  GelenTarih
:Tdate;
 
 begin

  GelenTarih
:=strtodate(edit1.text);

 
 SonTarihHesapla(GelenTarih,RzNumericEdit1.IntValue,false,true,false,false,Edit2);
 
 end;

 
 // yıl hesaplamak için buton click

 
 var
  GelenTarih
:Tdate;
 
 begin

  GelenTarih
:=strtodate(edit1.text);

 
 SonTarihHesapla(GelenTarih,RzNumericEdit1.IntValue,false,false,true,false,Edit2);
 
 end;
 
  
  
// güm hesaplamak için buton click

 
 var
  GelenTarih
:Tdate;
 
 begin

  GelenTarih
:=strtodate(edit1.text);

 
 SonTarihHesapla(GelenTarih,RzNumericEdit1.IntValue,false,false,false,true,Edit2);
 
 end;


// dördünü bir arada desteklemez. dördünü desteklesin derseniz procedure içinde ki else if leri if diye değiştirin 



    Delphi Procedure ile hafta, ay, gün, yıl hesaplama ve yazdırma
Bu konuyu görüntüleyen kullanıcı(lar): 1 Ziyaretçi