Мы можем как-то получить дату, которая будет через 7 дней?

[Hito]

Мы можем как-то получить дату, в формате - ггггммдд, которая будет через 7 дней?

[Hito]

В общем мучу опять dll-ку для этого всего, но хоть убей - не могу вспомнить, как в dll принимать параметры, передаваемые скриптом кликера?
Вот вызов dll-ки из кликера:

Код: Clickermann

CALL("data.dll", 7)

А вот код dll:

Код: Clickermann

library data;
 
uses
  Windows,
  SysUtils,
  DateUtils;
 
//------------------------------------------------------------------------------
// Основное тело функции, идет на экспорт, вызывается из кликера
function execute( _mas: pInteger; _size: Integer): Integer; export; stdcall;
type
   pIntArr = array[0..0] of Integer;
 
var
   S: Integer;
   Res: TDateTime;
   gmd: string;
 
begin
   S := // Как сюда присвоить параметр, отправленный кликером - "7"?
   Res:= IncDay(Now, S); // увеличиваем текущую дату на S дней
   result :=  StrToInt(Copy (DateToStr(Res), 7, 4)+Copy (DateToStr(Res), 4, 2)+Copy (DateToStr(Res), 1, 2));
end;
//------------------------------------------------------------------------------
 
// список экспорта
exports execute;
 
begin
   // тело пусто
end.

Как в dll-ке, переменной "S", передать параметр из скрипта - "7"?

[Hito]

Всё - разобрался...

Код: Clickermann

S := pIntArr(_mas^)[0];