Разное
Облака / Clouds
The bast cloud service
Get 20 GB free!!!
Support WebDav.
Show more >>
time-tested cloud storage
Support WebDav.
Последние книги
Самое популярное
Все бесплатно
Все ссылки на файлы, расположенные на страницах сайта, добавлены пользователями и доступны для бесплатного скачивания. За содержание этих файлов администрация сайта ответственности не несет.
Навигация
Вопросы
Delphi - Справочник: DaysBetween
DaysBetween
|
function DaysBetween ( const ToDate, FromDate : TDateTime ) : Integer; |
Функция (Unit DateUtils)
|
Выдает целый число дней между 2 датами
|
Описание:
|
Функция DaysBetween вычитает FromDate из ToDate, возвращая разность в целых днях. |
Пример кода: Нахождение разности дней между двумя значениями date+time.
|
var fromdate, toDate : TDateTime; begin // Установка наших переменных дат fromDate := EncodeDateTime(2000, 02, 26, 10, 0, 0, 0); toDate := EncodeDateTime(2000, 02, 29, 9, 0, 0, 0); // Отображение этих дат и дней между ними ShowMessage('С даты = '+DateTimeToStr(fromDate)); ShowMessage('До даты = '+DateTimeToStr(toDate)); ShowMessage('Целых дней = '+ IntToStr(DaysBetween(toDate, fromDate))+' дней'); end;
Результат:
|
С даты = 26/02/2000 10:00:00 До даты = 29/02/2000 09:00:00 Целых дней = 2 дней |
Примечание:
|
Целый день не должен начинаться с 00:00:00. |