يظهرلي رسالة ميساج بعد مدة عام و نصف

وعليكم السلام ورحمة الله

ضع Edit وButton ثم اكتب عند النقر عليه:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Caption := DateToStr(IncDay(StrToDate(Edit1.Text), 365 + 365 div 2));
end;

ولا تنسى إضافة المكتبة DateUtils

uses
  DateUtils;

بالتوفيق

kachwahed كتب:

وعليكم السلام ورحمة الله

ضع Edit وButton ثم اكتب عند النقر عليه:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Caption := DateToStr(IncDay(StrToDate(Edit1.Text), 365 + 365 div 2));
end;

ولا تنسى إضافة المكتبة DateUtils

uses
  DateUtils;

بالتوفيق

بارك الله فيك أخي الكريم

و الله العظيم أشكرك من قلبي

جزاك الله كل خير