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 дней
 



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