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
DaySpan
Функция
Выдает дробное число дней между 2 датами DateUtils unit
  function DaySpan ( const ToDate, FromDate : TDateTime ) : Double;
Описание
Функция DaySpan вычитает FromDate из ToDate, возвращая дробную разность дней.

Возвращаемое Double значение содержит число дней как целую часть, и остаток части дня как дробную часть.

Например, разность 2 дней и 6 часов дало бы значение 2.25
Похожие команды
DaysBetween  Выдает целый число дней между 2 датами

DaysInAMonth  Выдает число дней в месяце

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

 
Пример кода : Нахождение разности дней между двумя значениями date+time.
var
  fromdate, toDate : TDateTime;

begin
  // Установка наших переменных дат
  fromDate := EncodeDateTime(2000, 01, 01, 0, 0, 0, 0);
  toDate   := EncodeDateTime(2000, 01, 02, 12, 0, 0, 0);

  // Отображение этих дат и дней между ними
  ShowMessage('С даты = '+DateTimeToStr(fromDate));
  ShowMessage('До даты = '+DateTimeToStr(toDate));
  ShowMessage('Дробная разность дней = '+
              FloatToStr(DaySpan(toDate, fromDate))+' дней');
end;

С даты = 01/01/2000
До даты = 02/01/2000 12:00:00
Дробная разность дней = 1.5 дней
 



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