yaş hesabı

[kueqw]

Paradox'da yapmış olduğum (kisi)isimli table'da dogum(D),yas ve yasgurubu(A) alanları mevcut.Yapmaya çalıştığım program çalıştırıldığında dogum alanına göre o an ki tarihten yas ve yasgurubu alanlarını hesaplayıp güncellemesi.İlgilenenlere şimdiden teşekkürler.

[aslangeri]

s.a.
öncelikle aramıza hoşgeldin..
sonralıkla
kodları yazıp vermemiz yeterli mi?
yoksa programı setup halinde mi istersiniz?

yada yapmaya çalıştığınız programda takıldığınız yeri söyleyin ona göre bizlerde yardımcı olmaya çalışalım..
kolay gelsin.

[kueqw]

as
Biraz alayvari bir cevap oluş ama hiç cevap verilmemesinden iyidir ,teşekkürler.Tek tek güncelleme yaptım ve gördüğünüz gibi bir deneme bu.Bişeyler yapmaya ve öğrenmeye anlamaya çalışmıştım.Profosyonel olmaya da niyetim yok merak etmeyiniz.Sadece program açılışında bu alanları güncelleme,toplu halde nasıl yapabilirim demiştim.Tekrar tekrar teşekkürler.

[khanco]

@kueqv @aslangeri sizinle alay etmiyor. Burada takılanlara yardımcı olmaya çalışıyorlar. Sizinki kadar değerli vakitlerini ayırarak. Bir ücret almadığı için cevap verme zorunda değil bu işi gönüllü olarak yapıyorlar. Eminimki soruyu sitede arama yapıp benzer bir kod bulup bununla bu işlemi yapamadım diye sorsaydın daha fazla cevap veren çıkacaktı.

[kueqw]

Yok yanlış oldu belki ama zaten kimseye mecbursun demek gibi bir niyetim yoktu.Sitede aradım ama bulamadım ya da aramayı beceremedim.

[aslangeri]

s.a.
kesinlikle alay etmek gibi bir düşüncem yok ama!
arkadaşım biz müneccim değiliz. sen uğraştığın için belki yazdığın mesaj sana anlamlı geliyor ama konuyu bilmeyen birisi için soruna cevap vermek mümkün değil.
Biraz daha açıklayıcı bilgi vermelisin. Ben şunu şunu yaptım şöyle oldu oysa ben böyle olmasını istiyordum. ahanda yazdığım kodlarda bunlar(tabi varsa)
birde yaş grubu mevzusu var?
yaş grubu deyince aklına ne geliyor, senin aklına gelen şeyle bizim aklımıza gelen şey sence aynı mı?
viewtopic.php?t=17344&
bu linki bi incele.
burda yaşı nasıl hesaplatacağın ile ilgili bilgi bulacaksın.
yaşı hesaplamayı öğrendikten sonra
tabloya bir update çekeceksin.

Kod: Tümünü seç

update tablo set yaş=yaşhesaplamayontemi,
yaşgrubu=yaşgrubu da ne olaki?

kolay gelsin.

[kueqw]

a.s.
Sayın aslangeri ilginize teşekkür ederim.Şimdi gördüm cevabınızı daha bahsettiğiniz link'e bakamadım.Şimdi inceleyeceğim.Öncelikle teşekkür etmek istedim.Sağolun.

[kueqw]

s.a.
Evet inceledim.Benim beceremediğim şey yaşı hesaplamak değil.Bir tuş vasıtasıyla bunu yapabildim.Kodlar aşağıda.Belkide acemice ama işe yarıyor.Yaş gurubu deyincede;0 yaş 1(0) gurubu,1-4 yaş 2(1-4) şeklinde devam eden gurublar.
Benim beceremediğim ise,malum çok kayıt olursa yaş devamlı değişeceğinden her seferinde tek tek elle yaş düzeltmek imkansız olur.Şu anlattığınız şekilde program başlarken update etmeyi beceremedim.Tekrar teşekkürler.

procedure TForm1.SpeedButton1Click(Sender: TObject);
var tarih:tdate;
gun,ay,yil,gun1,ay1,yil1:word;
begin
tarih:=date;
decodedate(tarih,yil,ay,gun);
decodedate(StrToDate(DBEdit3.Text),yil1,ay1,gun1);
if gun-gun1<0 then inc(ay,-1);
if ay-ay1<0 then inc(yil,-1);
DBEdit4.Text:=floattostr(yil-yil1);
if DBEdit4.Text<'1' then DBEdit5.Text:='01(1)';
if(DBEdit4.Text>='1')and (DBEdit4.Text<='4') then DBEdit5.Text:='02(1-4)';
if(DBEdit4.Text>='5')and(DBEdit4.Text<='9')then DBEdit5.Text:='03(5-9)';
Table1.Post;

end;

[aslangeri]

s.a.
bu işlemi döngüye koysanız, tabloyuda edit moduna geçirip öyle post etseniz.
yada
yaş ve grup için delphide calc alan oluştursanız onları kullansanız?