قمت بعمل برنامج بسيط لحساب عمر الانسان اعتماد علي تاريخ الميلاد
و تم تجربة البرنامج وتمت النتيجة صحيحة و لكن عند ادخال تاريخ ميلاد في نفس العام كا يظهر عدد السنوات خطأ
مثال
25/10/1970 يعطي نتيجة صحيحة
25/6/2010 يعطي نتيجة خطأ و مرفق البرنامح و هو غير منظم الشكل فعزرا
فمن لدية الحل يخبرني و يصحح البرنامج

إرفاق ملف:

---

تاريخ الميلاد.rar الحجم: 166.43 KB; مرات التنزيل: 23

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
Edit2: TEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var dateN,dateF:TDateTime;
i,y,m,d,tmp,tmp1:Integer;
begin
dateN:=StrToDate(Edit1.Text);
dateF:=StrToDate(Edit2.Text);
i := Trunc(DateF-DateN);
y:= i div 365 ;
begin
tmp:=i mod 365;
tmp1:=tmp;
begin
m:=tmp1 div 30 ;
begin
d:=tmp1 mod 30 ;
label1.Caption:=(IntToStr(d- 1));
label2.Caption:=(IntToStr(m));
label3.Caption:=(IntToStr(y ));
end;
end;
end;
end;


procedure TForm1.FormCreate(Sender: TObject);
begin
Edit2.Text := DateToStr(Now);
end;

end.

إرفاق ملف:

---

Kaxmav.rar الحجم: 3.94 KB; مرات التنزيل: 17

شكرا للرد و لاكن هذة الطريقة تعطي عدد ايام خطأ
و لكن المثال ملكي يعطي عدد ايام صحيح
و قم بتجربة مثالك عن طريق الورة و القلم ستجد نتيجة الايام خطا
شكرا

السلام عليكم اخي
اولاً انا لست خبير في البرمجة لكن مبتدئ واقل منك لأنني لم ادرس البرمجة قط وبفضل المنتديات العربية استطعت اخذ بعض المعلومات عن البرمجة ولا زلت ابحث
ومشكلتك حسب ما ظهر لي هي في السطر الذي يحمل
عبارة
NowYear:=NowYear-1;


بدلا من كتابة
NowYear:=NowYear- 1;
أكتب
NowYear:=NowYear;
انشاء الله اكون قد اصبت
وبالتوفيقإقتباس :