Функция To_Days |
Перевод даты в количество дней.
function To_Days (date : date) : longInt;
date : date - дата.
Функция возвращает количество дней, соответствующее заданной дате.
Перевод осуществляется в соответствии с отсчетом дней с 1 января 1 года. Эту функцию удобно использовать вместе с функцией From_Days для написания собственных арифметических функций, связанных с датой. Например, функция умножения двух дат будет выглядеть так:
Mul_Days = From_Days( To_Days(FirstDate) * To_Days(SecondDate) )
To_Days(Date(30,1,1993))=727604;