yaş hesaplayan 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
zalimsevki
Üye
Mesajlar: 38
Kayıt: 02 Ara 2005 07:36
Konum: Denizli

yaş hesaplayan UDF

Mesaj gönderen zalimsevki »

Sistem tarihine göre doğum tarihini parametre olarak geçirdiğimizde yaş, ay gün hesaplayan bir UDF arıyorum ..
Forumdaki bilgilerle yazdığım dll lerden sonuç alamadım ..
Tüm forum üyelerine selamlar
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=94939#94939

bi alttaki başlıkta 3. örnek :idea:
.-.-.-.-.-.-.-. ^_^
zalimsevki
Üye
Mesajlar: 38
Kayıt: 02 Ara 2005 07:36
Konum: Denizli

UDF

Mesaj gönderen zalimsevki »

begin
DT_GUN= extract(day FROM :dogumtarihi);
DT_AY= extract(month FROM :dogumtarihi);
DT_YIL= extract(year FROM :dogumtarihi);
BUGUN_GUN=extract(day FROM current_date);
BUGUN_AY=extract(month FROM current_date);
BUGUN_YIL=extract(year FROM current_date);
IF (DT_AY> BUGUN_AY)
THEN donenyas=BUGUN_YIL-DT_YIL;
IF (DT_AY<BUGUN_AY)
THEN donenyas=(BUGUN_YIL-DT_YIL)- 01;
IF (DT_AY=BUGUN_AY)
THEN BEGIN
IF (DT_GUN<=BUGUN_GUN)
THEN DONENYAS=(BUGUN_YIL-DT_YIL)- 01;
IF (DT_GUN>BUGUN_GUN)
THEN DONENYAS=BUGUN_YIL-DT_YIL;
END
/* Procedure Text */
suspend;
end

yukarıdaki stored procedur ile hesaplamayi yaptirdim ..
benim istediğim güne göre veritabanındaki yaşların otomatik güncellenmesi .. Computed by ile yukarıdaki proceduru sanırım çağıramıyorum .. SQL hatası verdi.. Nasıl bi yöntem uygulamam lazım ..
zalimsevki
Üye
Mesajlar: 38
Kayıt: 02 Ara 2005 07:36
Konum: Denizli

..

Mesaj gönderen zalimsevki »

yas hesaplayan udf . isteyen olursa gönderebilirirm ..
En son zalimsevki tarafından 20 May 2007 11:09 tarihinde düzenlendi, toplamda 1 kere düzenlendi.
Kullanıcı avatarı
rsimsek
Admin
Mesajlar: 4482
Kayıt: 10 Haz 2003 01:48
Konum: İstanbul

Mesaj gönderen rsimsek »

Lütfen sadece forumumuzun kuralları gereği değil tüm internet ortamı yazışmalarda büyük harflerle yazmak bağırmak anlamına gelmektedir ve hoş karşılanmamaktadır. Edit leyip mesajınızı yeniden düzenleyiniz/değiştiriniz :!:

Paylaşmak istediğiniz bir bilgi varsa isteğe gerek duymadan burada rahatça paylaşabilirsiniz :idea:
Bilgiyi paylaşarak artıralım! Hayatı kolaylaştıralım!!
Kullanıcı avatarı
delphi.net
Üye
Mesajlar: 67
Kayıt: 01 Nis 2007 05:30
Konum: mUĞLa

Re: ..

Mesaj gönderen delphi.net »

zalimsevki yazdı:yas hesaplayan udf . isteyen olursa gönderebilirirm ..
eğer hızlı birşey ise bir tane alabilirmiyim ?:D
Cevapla