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

Paylaşmak istediğiniz bir bilgi varsa isteğe gerek duymadan burada rahatça paylaşabilirsiniz

Bilgiyi paylaşarak artıralım! Hayatı kolaylaştıralım!!
- delphi.net
- Üye
- Mesajlar: 67
- Kayıt: 01 Nis 2007 05:30
- Konum: mUĞLa
Re: ..
eğer hızlı birşey ise bir tane alabilirmiyim ?:Dzalimsevki yazdı:yas hesaplayan udf . isteyen olursa gönderebilirirm ..