Artık Yıl Function(UDF)

Firebird ve Interbase veritabanları ve SQL komutlarıyla ilgli sorularınızı sorabilirsiniz. Delphi tarafındaki sorularınızı lütfen Programlama forumunda sorunuz.
Cevapla
Kullanıcı avatarı
kadirkurtoglu
Üye
Mesajlar: 748
Kayıt: 22 May 2005 01:20
Konum: Uzakta Görünen Tepeden...

Artık Yıl Function(UDF)

Mesaj gönderen kadirkurtoglu »

s.a.

arkadaşlar firebird de artık yılı hesaplayan bir UDF nasıl yazabilirim. bana ay sorgulamaları lazım. yıl içerisindeki bütün ayların başlangıç ve bitiş günlari bellidir. biri hariç Şubat ayı

01.01.2006-31.01.2006
01.02.2006-??.02.2006

burda şubatın 28 mi 29 çektiğini bulmam gerekiyor.
Delphi Library dateutils deki gibi

Kod: Tümünü seç

- IsInLeapYear : Verilen tarihin artık bir senede (Şubat'ın 29 gün olduğu) olup olmadığını test eder. 
            if IsInLeapYear (Date) then 
              ShowMessage (' 2002 senesi artık yıl olmadığı için, bu mesajı asla göremezsiniz!');
- IsLeapYear : Verilen senenin artık sene (Şubat'ın 29 gün olduğu) olup olmadığını test eder. 
            if IsLeapYear ( CurrentYear ) then
              ShowMessage (' Bu sene Şubat ayı 29 gün çekiyor');
Kullanıcı avatarı
mege
Admin
Mesajlar: 2360
Kayıt: 05 Şub 2004 04:32
Konum: Beşiktaş
İletişim:

Mesaj gönderen mege »

viewtopic.php?p=30930#30930
mussimsek yazdı:http://rfunc.sourceforge.net/

içinde 100 den fazla kullanışlı fonksiyon olan bir library. Interbase 4.x, 5.x ve 6.x ile FireBird 1.x'te çalışıyor.

Kolay gelsin.
IsLeapYear(i)
.-.-.-.-.-.-.-. ^_^
Kullanıcı avatarı
White Rose
Üye
Mesajlar: 726
Kayıt: 06 Tem 2005 09:41
Konum: Güneyden
İletişim:

Mesaj gönderen White Rose »

s.a.

Yılı 4'e böl

bölüm tamsayı çıkarsa 29, küsüratlı çıkarsa 28
Cevapla