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

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

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

RecodeDate
Функция
Изменяет только дату переменной TDateTime DateUtils unit
  function RecodeDate ( const SourceDate : TDateTime; const Year, Month, Day : Word ) : TDateTime;

Delphi Sources

Описание
Delphi функция RecodeDate позволяет изменять Год, Месяц, День переменной TDateTime, переменная изменится без затрагивания времени.
Похожие команды
DecodeDate  Извлекает значения года, месяца, дня из TDateTime переменной

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

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

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

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

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

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

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

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

 
Пример кода : Изменение даты без изменения времени
var
  myDate : TDateTime;

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

  // Теперь измените часть даты, не касаясь времени
  myDate := RecodeDate(myDate, 1957, 2, 18);
  ShowMessage('Новая дата/время = '+DateTimeToStr(myDate));
end;
Начальная дата/время = 29/10/2002 12:34:56
Новая дата/время = 18/02/1957 12:34:56
 


Последние добавленные на сайт исходники

TDictionary Custom Sort

Fast Watermark Sources

3D Designer

Sik Screen Capture

Patch Maker

Айболит (remote control)

 

ListBox Drag & Drop

Доска для игры Реверси

Графические эффекты

Рисование по маске

Перетаскивание изображений

Canvas Drawing

 

Copyright © 2004-2024 "Delphi Sources" by BrokenByte Software (источник – "DelphiBasics")

Группа ВКонтакте