ReplaceDate - Процедура. Справочник

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
ReplaceDate Процедура	Изменяет только часть даты TDateTime переменной	SysUtils unit

procedure ReplaceDate ( var DateTimeVar : TDateTime; const NewDateValue : TDateTime ) ;

Описание

Функция ReplaceDate модифицирует часть даты переменной DateTimeVar частью даты другой (NewDateValue) TDateTime переменной, не затрагивая время.

Похожие команды

DecodeDate  Извлекает значения года, месяца, дня из TDateTime переменной

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

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

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

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

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

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

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

ReplaceTime  Изменяет только часть времени TDateTime переменной

Пример кода : Изменение даты, не изменяя время

var
  myDateTime, newDate : TDateTime;

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

  // Теперь изменяем дату не затрагивая время
  newDate := EncodeDate(1957, 02, 18);
  ReplaceDate(myDateTime, newDate);
  ShowMessage('Новая дата/время = '+DateTimeToStr(myDateTime));
end;

Начальная дата/время = 29/10/2002 12:34:56
Новая дата/время = 18/02/1957 12:34:56

Оплата за обучение в Kata Academy только после твоего трудоустройства в IT, начни карьеру Middle Java-разработчика

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки? Slurm подготовили для вас особенный продукт!