[ Delphi 7 ] Yaş Hesaplama

Bu programda Delphi 7 'de DateUtils kütüphanesinin kullanımı basit bir şekilde uyguladım.
Resimdende anlaşıldığı gibi siz sadece doğum yılınızı yazıyorsunuz ve program size kaç yaşında olduğunuzu ve kaç gün yaşadığınızı hesaplıyor.

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;

Kaynak Konudu İndir ;
http://cid-ab97369ef90e9912.office.live.com/self.aspx/.Public/yashesap.rar