Справочник функций и процедур Delphi: ReplaceTime

  Навигация по первой букве:

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

  Навигация по категории:

Compiler directives, Directives, Keywords / Types, Variables, Constants / Functions, Procedures

  Реклама:

 

ReplaceTime
Процедура
Изменяет только часть времени TDateTime переменной SysUtils unit
  procedure ReplaceTime ( var DateTimeVar : TDateTime; const NewTimeValue : TDateTime ) ;

Google  
 
Описание
Функция ReplaceTime модифицирует часть времени переменной DateTimeVar частью времени другой (NewDateValue) TDateTime переменной, не затрагивая дату.
Похожие команды
DecodeDate  Извлекает значения года, месяца, дня из TDateTime переменной

DecodeDateTime  Разбивает TDateTime переменную на ее части даты/времени

DecodeTime  Разбивает значение TDateTime на отдельные значения времени

EncodeDate  Формирует значение TDateTime из значений года, месяца и дня

EncodeDateTime  Формирует значение TDateTime из значений времени и дня

EncodeTime  Формирует значение TDateTime из значений часа, минуты, секунды и миллисеккунды

RecodeDate  Изменяет только дату переменной TDateTime

RecodeTime  Изменяет только время переменной TDateTime

ReplaceDate  Изменяет только часть даты TDateTime переменной

 
Пример кода : Изменение времени, не изменяя дату
var
  myDateTime, newTime : TDateTime;

begin
  // Установка даты в 29/10/2002 12:34:56
  myDateTime := EncodeDateTime(2002, 10, 29, 12, 34, 56, 0);
  ShowMessage('Начальная дата/время = '+DateTimeToStr(myDateTime));

  // Теперь изменяем дату не затрагивая время
  newTime := EncodeTime(9, 45, 52, 0);
  ReplaceTime(myDateTime, newTime);
  ShowMessage('Новая дата/время = '+DateTimeToStr(myDateTime));
end;
Начальная дата/время = 29/10/2002 12:34:56
Новая дата/время = 29/10/2002 09:45:52
 


Copyright © 2004-2016 Delphi Sources (источник – "DelphiBasics.ru")
 


Группа ВКонтакте   Ссылка на Twitter   Группа на Facebook