|
Soru = Klavyeden doğum günü girildiğinde yaşını hesaplayan programı fonksiyonda yapınız.
Şekli :
Kodlar :
FunctionYashesaplama(Yasgunu,bugunkutarih:
TDate): Integer;
var
ay, gun, yil, aktfyil, aktfay, aktfgun: Word;
begin
DecodeDate(yasgunu, yil, ay, gun);
DecodeDate(bugunkutarih, aktfyil, aktfay, aktfgun);
if (yil = aktfyil) and (ay = aktfay) and (gun = aktfgun) then
begin
Result := 0;
end
else
begin
Result := aktfyil - Yil;
if (ay > aktfay) then
Dec(Result)
else
begin
if ay = aktfay then
if (gun > aktfgun) then
Dec(Result);
end;
end ;
end;
Procedure TForm1.Button1Click(Sender: TObject);
Var
tarih:tdate;
begin
tarih:=StrToDate(edit1.Text);
Label1.Caption := Format('Sizin Yaşınız : %d', [Yashesaplama(tarih, date)]);
end;
Çalışma Şekli :
 
Klavyeden Text kutusuna doğum tarihinizi girdikten sonra ‘Yaş Hesaplama' butona basarsanız sizin şuanki yaşınızı labelde gösterecektir.
|
