ForumSevgisi.Com

  ForumSevgisi.Com > ForumSevgisi Webmaster Bölümü > Webmaster Genel

Webmaster Genel Webmasterlıkla ilgili Her şeyin Paylaşıldığı Bölüm.


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

Webmasterlıkla ilgili Her şeyin Paylaşıldığı Bölüm.


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

ForumSevgisi Webmaster Bölümü Kategorisinde ve Webmaster Genel Forumunda Bulunan Procedure ile hafta, ay, gün, yıl hesaplama ve yazdırma Konusunu Görüntülemektesiniz,Konu İçerigi Kısaca ->> Procedure ile hafta, ay, gün, yıl hesaplama ve yazdırma Procedure ile hafta, ay, gün, yıl hesaplama ve yazdırma Kod: / ...

Kullanıcı Etiket Listesi

Yeni Konu aç  Cevapla
LinkBack Seçenekler Stil

Okunmamış 09 Nisan 2015, 16:28   #1
Durumu:
Çevrimdışı
Kaf_Dağı - ait Kullanıcı Resmi (Avatar)
Arastirmaci
Üyelik tarihi: 26 Ekim 2014
Şehir: ~~~~~~
Mesajlar: 1.130
Konular: 710
Beğenilen: 168
Beğendiği: 334
www.forumsevgisi.com
Standart Procedure ile hafta, ay, gün, yıl hesaplama ve yazdırma

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

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

Kod:
        / başlamadan önce uses satırına dateutils ekleyin
 
 procedure SonTarihHesapla(BaslangicTarihi:TDate; ArtisRakami:Integer; Hafta,Ay,Yil,Gun:Boolean; NereyeYazayim: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

________________
.........................
imza
Alıntı ile Cevapla
Yeni Konu aç  Cevapla

Etiketler
gun, hafta, hesaplama, ile, procedure, procedure ile hafta, yazdirma, yil

Seçenekler
Stil


Saat: 10:54

Forum Yasal Uyarı
vBulletin® ile Oluşturuldu
Copyright © 2016 vBulletin Solutions, Inc. All rights reserved.

ForumSevgisi.Com Her Hakkı Saklıdır
Tema Tasarım:
Kronik Depresif


Sitemiz bir 'paylaşım' sitesidir. Bu yüzden sitemize kayıt olan herkes kontrol edilmeksizin mesaj/konu/resim paylaşabiliyorlar. Bu sebepten ötürü, sitemizdeki mesaj ya da konulardan doğabilecek yasal sorumluluklar o yazıyı paylaşan kullanıcıya aittir ve iletişim adresine mail atıldığı taktirde mesaj ya da konu en fazla 48 saat içerisinde silinecektir.

ankara escort, izmir escort ankara escort, ankara escort bayan, eryaman escort, bursa escort pendik escort, antalya escort,