Облака / Clouds
    Go to Copy.com
    Copy.com
    The bast cloud service
    Get 20 GB free!!!
    Support WebDav.
    Show more >>

    Go to Dropbox.com
    Dropbox.com
    time-tested cloud storage
    Support WebDav.
Все бесплатно
    Все ссылки на файлы, расположенные на страницах сайта, добавлены пользователями и доступны для бесплатного скачивания. За содержание этих файлов администрация сайта ответственности не несет.



Вопросы
  Прочитать содержимое папки
   Категория: Файловая система
  Как создать ярлык
   Категория: Приложение
  Установить в программу свои шрифты
   Категория: Приложение
  Создать индекс для таблицы ABS (Absolute Database)
   Категория: Базы данных
  Подсветить часть текста в DBGrid
   Категория: Компоненты
  Узнать все IP-адреса компьютера
   Категория: Интернет и Сети
  Автоматическое определения кодировки текста
   Категория: Текст и строки
  Число четное или нечетное
   Категория: Математика

Delphi - Справочник: DaysBetween

ABCDEFGHIJKLMNOPQRSTUVWXYZ

  << Вернуться  

 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.

  << Вернуться