Delphi справочник - Форум программистов - Навигация  
 A  B  C  D  E  F  G  H  I  J  K  L  M  N  O  P  Q  R  S  T  U  V  W  X  Y  Z      По первой букве  
System     SysUtils     StrUtils     DateUtils     FileCtrl     ConvUtils     StdConvs     Math     Classes     Dialogs     Types     Variants    ПО Unit   Compiler directives     Directives     Keywords     Types     Variables     Constants     Functions     Procedures    По категории  


Основы Delphi
DaysBetween
Функция
Выдает целый число дней между 2 датами DateUtils unit
  function DaysBetween ( const ToDate, FromDate : TDateTime ) : Integer;
Описание
Функция DaysBetween вычитает FromDate из ToDate, возвращая разность в целых днях.
Примечания
Целый день не должен начинаться с 00:00:00.
Похожие команды
DaysInAMonth  Выдает число дней в месяце

DaysInAYear  Выдает число дней в году

DaySpan  Выдает дробное число дней между 2 датами

 
Пример кода : Нахождение разности дней между двумя значениями 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 дней
 



© Форум Delphi   |  Блог программистов   |  Создание и продвижение сайтов - "Веб сателлит"  |  Ссылки   |  Английская версия