Delphi Создаем Дату Окончания Запуска Программы

[Sascha]

Создаем дату окончания запуска программы.

Нажимаешь на форму и создаем процедуру "procedure TForm1.FormCreate" вписываем код:

procedure TForm1.FormCreate(Sender: TObject);
var
 OldDays:Double;
 Years, Months:Integer;
aDate :TDateTime;
 st:String;
begin
aDate := StrToDate ('28.10.2017'); //дата окончания запуска программы
 OldDays := Date - aDate;
 Years := Trunc(OldDays / 365.25);
 OldDays := (365.25 * Years) - OldDays;

 st := 'Запуск программы доступен:'+
 #13+#10+'        Вам оставайтесь: '+CurrToStr(OldDays)+' Дней';
 if OldDays < 0 then
   Begin
    st := 'Запуск программы недоступен:'+
    #13+#10+'                  Ваш срок запуска закончился';
    MessageDlg (st, mtInformation, [mbOK], 0);
    Halt;
   end
 else
  MessageDlg (st, mtInformation, [mbOK], 0);
  st := '';
end;

 

[Mazahaka_lab]

В var объявить забыли

var
 aDate :TDateTime;