Başlangıç > Database, Forms, Oracle, PL/SQL, Reports > pl/sql de zaman hesabı

pl/sql de zaman hesabı


Merhaba

Daha önce pl/sql de iki tarih arası farkı bulma hakkında bir makale yazmıştım. Şimdi bu makaleden farklı olarak pl/sql ile zaman hesabı yapabilmek için bir fonksiyon hazırladım. Çoğu zaman tarih ve saat hesabı ile ilgili işlemlere yazdığımız programlarda ihtiyacımız olmuştur. O durumlarda ihtiyaç doğrultusunda farklı çözümler ile bu sorunumuzu gidermişizdir fakat bu fonksiyon ile artık her ihtiyaç olduğunda yeni bir kontrol ya da fonksiyon yazmak yerine bu fonksiyonu kullanabilirsiniz.

Şimdi fonksiyonumuz oluşturalım ve örneklerimize bakalım.

CREATE OR REPLACE FUNCTION zaman_hesabi(tar DATE, islem VARCHAR2, tip VARCHAR2, deger NUMBER)
  RETURN VARCHAR2 IS
  sonuc DATE;
BEGIN
  /*
  -- tar   : işlem yapılacak tarih
  -- islem : '+' veya '-'
  -- tip   : 'yy'=yıl; 'mm'=ay; 'dd'=gün; 'hh'=saat; 'mi'=dakika; 'ss'=saniye;
  -- deger : işlem yapılacak tarih için kullanılack değer
  */

  IF islem = '+' THEN
    IF lower(tip) = 'yy' THEN
      sonuc := add_months(tar, 12 * deger);
    ELSIF lower(tip) = 'mm' THEN
      sonuc := add_months(tar, deger);
    ELSIF lower(tip) = 'dd' THEN
      sonuc := tar + to_dsinterval(deger || ' 00:00:00');
    ELSIF lower(tip) = 'hh' THEN
      sonuc := tar + to_dsinterval('0 ' || deger || ':00:00');
    ELSIF lower(tip) = 'mi' THEN
      sonuc := tar + to_dsinterval('0 00:' || deger || ':00');
    ELSIF lower(tip) = 'ss' THEN
      sonuc := tar + to_dsinterval('0 00:00:' || deger);
    ELSE
      sonuc := tar;
    END IF;
  ELSIF islem = '-' THEN
    IF lower(tip) = 'yy' THEN
      sonuc := add_months(tar, 12 * (-deger));
    ELSIF lower(tip) = 'mm' THEN
      sonuc := add_months(tar, (-deger));
    ELSIF lower(tip) = 'dd' THEN
      sonuc := tar - to_dsinterval(deger || ' 00:00:00');
    ELSIF lower(tip) = 'hh' THEN
      sonuc := tar - to_dsinterval('0 ' || deger || ':00:00');
    ELSIF lower(tip) = 'mi' THEN
      sonuc := tar - to_dsinterval('0 00:' || deger || ':00');
    ELSIF lower(tip) = 'ss' THEN
      sonuc := tar - to_dsinterval('0 00:00:' || deger);
    ELSE
      sonuc := tar;
    END IF;
  ELSE
    sonuc := tar;
  END IF;
  RETURN(to_char(sonuc, 'dd/mm/yyyy hh24:mi:ss'));
END zaman_hesabi;

Artık fonksiyonumuz hazır. Şimdi bir sql ile bu fonksiyonun tüm değerlerini ve işlevselliğini kontrol edebiliriz.

SELECT 1 sira, 'Yıl Ekleme' islem, SYSDATE suanki_tarih,
       zaman_hesabi(SYSDATE, '+', 'yy', 1) deger_eklenen_tarih,
       zaman_hesabi(SYSDATE, '-', 'yy', 1) deger_cikan_tarih
  FROM dual
UNION
SELECT 2 sira, 'Ay Ekleme' islem, SYSDATE suanki_tarih,
       zaman_hesabi(SYSDATE, '+', 'mm', 1) deger_eklenen_tarih,
       zaman_hesabi(SYSDATE, '-', 'mm', 1) deger_cikan_tarih
  FROM dual
UNION
SELECT 3 sira, 'Gün Ekleme' islem, SYSDATE suanki_tarih,
       zaman_hesabi(SYSDATE, '+', 'dd', 1) deger_eklenen_tarih,
       zaman_hesabi(SYSDATE, '-', 'dd', 1) deger_cikan_tarih
  FROM dual
UNION
SELECT 4 sira, 'Saat Ekleme' islem, SYSDATE suanki_tarih,
       zaman_hesabi(SYSDATE, '+', 'hh', 1) deger_eklenen_tarih,
       zaman_hesabi(SYSDATE, '-', 'hh', 1) deger_cikan_tarih
  FROM dual
UNION
SELECT 5 sira, 'Dakika Ekleme' islem, SYSDATE suanki_tarih,
       zaman_hesabi(SYSDATE, '+', 'mi', 1) deger_eklenen_tarih,
       zaman_hesabi(SYSDATE, '-', 'mi', 1) deger_cikan_tarih
  FROM dual
UNION
SELECT 6 sira, 'Saniye Ekleme' islem, SYSDATE suanki_tarih,
       zaman_hesabi(SYSDATE, '+', 'ss', 1) deger_eklenen_tarih,
       zaman_hesabi(SYSDATE, '-', 'ss', 1) deger_cikan_tarih
  FROM dual;

Sql de hazır olduğuna göre sonuçlarımıza bakabiliriz.

SIRA ISLEM SUANKI_TARIH DEGER_EKLENEN_TARIH DEGER_CIKAN_TARIH
1 Yıl Ekleme 12.12.2012 09:28:38 12/12/2013 09:28:38 12/12/2011 09:28:38
2 Ay Ekleme 12.12.2012 09:28:38 12/01/2013 09:28:38 12/11/2012 09:28:38
3 Gün Ekleme 12.12.2012 09:28:38 13/12/2012 09:28:38 11/12/2012 09:28:38
4 Saat Ekleme 12.12.2012 09:28:38 12/12/2012 10:28:38 12/12/2012 08:28:38
5 Dakika Ekleme 12.12.2012 09:28:38 12/12/2012 09:29:38 12/12/2012 09:27:38
6 Saniye Ekleme 12.12.2012 09:28:38 12/12/2012 09:28:39 12/12/2012 09:28:37

Kolay gelsin.

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

Bir Cevap Yazı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. Çıkış  Yap / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: