Прототип

void ADDDATE (
  DECIMAL D1,     /* первое слагаемое */
  DECIMAL D2,     /* второе слагаемое */
  DECIMAL dsumm); /* результат */

Описание

Процедура ADDDATE складывает две даты D1 и D2, представленные в виде числа тиков от начала н.э., и помещает результат в переменную dsumm.

Пример

INT   i;
DECIMAL  D, Ds;
…
/* Длину суток помещаем в 'Ds':        */
STRTOTICK ("02.01.0001:00:00:00.00", Ds);
/* Увеличиваем дату 'D' на одни сутки: */
ADDDATE (D, Ds, D);
…