ödev yüksek okul ögrencisinin

[poyraz0]

mrh arkadaşlar yüksek okulda okuyorum hoca durmadan ödev veriyor daha delphi öğretmeden ödev veriyor 2. sınıfım delphi yeni görmeye başladık
klavyeden adımız soyadımız dogum tarihimiz girelecek yıl olarak yaşımız yazılacak yardımcı olabilirmisiniz.

[esrehmaan]

editler ile bu işi yaparsında bu kadar kolay değildir bence sen tam olarak öğren her türlü yardımcı oluruz sorun olmaz...

İyi Forumlar

[poyraz0]

ödev bu kardeş yeni başladık delphi ye

[mussimsek]

http://delphiturkiye.com/forum/viewtopic.php?f=13&t=6

Lütfen konuya, konuyla alakalı bir başlık verin.

[ALUCARD]

Kod: Tümünü seç

procedure TForm1.BitBtn1Click(Sender: TObject);
var
dyil,syil,yas,gun:integer;
tgun:TDateTime;

begin
dyil:=StrToInt(Edit1.Text);       // Edit1 'in içine girilen doğum yılını integer'a çeviriyoruz.
syil:=CurrentYear;                // CurrentYear Şimdiki yıl'ı göstermektedir. syil degişkenine şimdiki yılı atadık.
yas:=syil-dyil;                   // İlgili sayılsal
gun:=(yas-1)*365;                 // işlemleri yaptık.
tgun:=gun+DayOfTheYear(tgun);     // Burada dogum yılından bu yıla kadar olan günün toplamını hesaplattık.

Edit2.Text:=IntToStr(yas);        // Sayılsal işlemlerimizi yaptıktan sonra verilerimizi string 'e çevirmek zorundayız.
Edit3.Text:=IntToStr(gun);        // çünkü Edit nesnesi string tanımlı oldugundan integer deger gönderemeyiz..

end

İnternette buldum umarım işine yarar

aslında tam senin istediğini işi yapıyor.

[poyraz0]

hocam birde kaç tane label edit yazacagımızı ve hangisinin clik ine kodları yazacagımızı söyleyebilirmisin