Суммирование дат
Прототип
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); ...