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.

Kolay gelsin.