Прототип

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);
...