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

[Hito]

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

[Hito]

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

Code: (clickermann) [Select]

CALL("data.dll", 7)А вот код dll:

Code: (clickermann) [Select]

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]

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

Code: (clickermann) [Select]

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