Kodbank İndir

! CODEBANK 2012 !

İNDİRMEK&DETAYLI BİLGİ ALMAK İÇİN BURAYI TIKLAYINIZ.

ÖNEMLİ AÇIKLAMA: MUTLAKA OKUYUNUZ!

Gönderen Konu: UDF Kütüphanesi  (Okunma sayısı 3803 defa)

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Çevrimdışı Fatih

  • Emekli Yönetici
  • *****
  • İleti: 2.217
  • Rep: +43/-10
  • Cinsiyet: Bay
    • Delphi Dünyası
UDF Kütüphanesi
« : 06 Haziran 2006 11:31:08 »
Firebird ile birlikte birçok UDF gelmektedir, ancak pek az kişinin bunlardan haberdar olduklarını  sanıyorum. Bu başlığa zamanla bu ve farklı UDF kütüphanelerini ekleyeceğim.

Sizde bu başlığa istediğiniz gibi ekleme yapabilirsiniz.

 :arrow: Küçük Harfe Çevirme
 :arrow: Pozitif Değer Döndermek
 :arrow: Metnin Bir Kısmını Almak (SubStr)
 :arrow: Karakter Sayısını Bulmak
 :arrow: Artık Yılı Bulmak
« Son Düzenleme: 25 Şubat 2007 16:08:42 by Fatih »
Malulen emekli programcı / yazar. Bildiklerini unutmakta olduğundan size cevap veremez.

Çevrimdışı Fatih

  • Emekli Yönetici
  • *****
  • İleti: 2.217
  • Rep: +43/-10
  • Cinsiyet: Bay
    • Delphi Dünyası
Küçük Harfe Çevirme
« Yanıtla #1 : 06 Haziran 2006 11:41:31 »
Küçük Harfe Çevirme

Kod: Text
  1. DECLARE EXTERNAL FUNCTION KUCUKHARF
  2.         CSTRING(255)
  3.         RETURNS CSTRING(255) FREE_IT
  4.         ENTRY_POINT 'IB_UDF_lower' MODULE_NAME 'ib_udf';

Kod: Text
  1. SELECT ADI AS NORMAL, KUCUKHARF(ADI) AS KUCUK FROM TBL_MUSTERI

Not: Türkçe karakterler hariç
« Son Düzenleme: 25 Şubat 2007 15:40:05 by Fatih »
Malulen emekli programcı / yazar. Bildiklerini unutmakta olduğundan size cevap veremez.

Çevrimdışı Fatih

  • Emekli Yönetici
  • *****
  • İleti: 2.217
  • Rep: +43/-10
  • Cinsiyet: Bay
    • Delphi Dünyası
Pozitif Değer Döndermek
« Yanıtla #2 : 06 Haziran 2006 11:53:12 »
Pozitif Değer Döndermek

Kod: Text
  1. DECLARE EXTERNAL FUNCTION POZITIF
  2.   DOUBLE PRECISION
  3. RETURNS DOUBLE PRECISION BY VALUE
  4. ENTRY_POINT 'IB_UDF_abs' MODULE_NAME 'ib_udf';

Kod: Text
  1. SELECT COALESCE(POZITIF(ALINAN-ODENEN),ALINAN,ODENEN,'0') AS BAKIYE FROM TBL_MUSTERI
« Son Düzenleme: 25 Şubat 2007 15:44:27 by Fatih »
Malulen emekli programcı / yazar. Bildiklerini unutmakta olduğundan size cevap veremez.

Çevrimdışı Fatih

  • Emekli Yönetici
  • *****
  • İleti: 2.217
  • Rep: +43/-10
  • Cinsiyet: Bay
    • Delphi Dünyası
Metnin Bir Kısmını Almak (SubStr)
« Yanıtla #3 : 06 Haziran 2006 16:41:26 »
Metnin Bir Kısmını Almak (SubStr)

Kod: Text
  1.         DECLARE EXTERNAL FUNCTION SUBSTR
  2.   CSTRING(255) CHARACTER SET WIN1254,
  3.   SMALLINT,
  4.   SMALLINT
  5. RETURNS CSTRING(255) CHARACTER SET WIN1254 FREE_IT
  6. ENTRY_POINT 'IB_UDF_substr' MODULE_NAME 'ib_udf';

Kod: Text
  1. SELECT ADI, SUBSTR(ADI,1,2) AS ILK_IKI_HARF FROM TBL_MUSTERI
« Son Düzenleme: 25 Şubat 2007 15:46:02 by Fatih »
Malulen emekli programcı / yazar. Bildiklerini unutmakta olduğundan size cevap veremez.

Çevrimdışı Fatih

  • Emekli Yönetici
  • *****
  • İleti: 2.217
  • Rep: +43/-10
  • Cinsiyet: Bay
    • Delphi Dünyası
Karakter Sayısını Bulmak
« Yanıtla #4 : 25 Şubat 2007 15:38:13 »
Karakter Sayısını Bulmak

Kod: Text
  1.         DECLARE EXTERNAL FUNCTION UZUNLUK
  2.         CSTRING(32767)
  3.         RETURNS INTEGER BY VALUE
  4.         ENTRY_POINT 'IB_UDF_strlen' MODULE_NAME 'ib_udf';

Kod: Text
  1. SELECT ADI, UZUNLUK(ADI) AS KARAKTER_SAYISI FROM TBL_MUSTERI
Malulen emekli programcı / yazar. Bildiklerini unutmakta olduğundan size cevap veremez.

Çevrimdışı Fatih

  • Emekli Yönetici
  • *****
  • İleti: 2.217
  • Rep: +43/-10
  • Cinsiyet: Bay
    • Delphi Dünyası
Artık Yılı Bulmak
« Yanıtla #5 : 25 Şubat 2007 16:07:18 »
Artık Yılı Bulmak

Kod: [Seç]
declare external function isLeapYear
timestamp
returns int by value
entry_point 'isLeapYear' module_name 'fbudf';

Kod: [Seç]
select
isleapyear(TARIH) AS SONUC, TARIH
from
tablo adi

Sonuç olarak 1 dönerse artık yıl anlamına gelir
Malulen emekli programcı / yazar. Bildiklerini unutmakta olduğundan size cevap veremez.