Получить дату, на 2 недели раньше

@AHTOCuK · Регистрация: 08.10.2009

Author24 — интернет-сервис помощи студентам

Требуется узнать дату, которая была 2 недели назад.

deathNC · 20.03.2012, 02:14

Delphi

uses
  DateUtils;
...
ShowMessage(DateTimeToStr(IncDay(Date + Time, -14)));

@Mawrat · 20.03.2012, 09:10

Можно и от самой переменной типа TDateTime вычитать:

Delphi

var
  D : TDateTime;
begin
  D := Now; //Текущая дата.
  D := D - 14; //Дата на 14 дней назад.
...
end;

@MAcK · 20.03.2012, 11:51

Очень просто

Delphi

var
  MyDate: Tdate;
begin
  MyDate := Now;
  Sleep(1209600000);
  ShowMessage(DateToStr(MyDate));
end;

deathNC · 20.03.2012, 13:42

MAcK,

Добавлено через 2 минуты
Mawrat, кстати, меня всегда мучил вопрос - почему иногда такой способ сравнения дат глючит?

Delphi

1	If date1 > date2 then

Вроде это просто дробное число, где целые единицы - есть дни, дробная часть - есть время...
но почему-то всё равно, иногда арифметические действия над датами напрямую работают с глюками...
(Delphi 2009, на других не помню, чтобы были проблемы, хотя тоже возможно)

@Mawrat · 20.03.2012, 13:59

Сообщение от deathNC

Mawrat, кстати, меня всегда мучил вопрос - почему иногда такой способ сравнения дат глючит?

В Delphi 7, по крайней мере, такое сравнение железно работает. И функции сравнения дат там именно так и реализованы. Например, реализация функции CompareDateTime():

Delphi

function CompareDateTime(const A, B: TDateTime): TValueRelationship;
begin
  if Abs(A - B) < OneMillisecond then
    Result := EqualsValue
  else if A < B then
    Result := LessThanValue
  else
    Result := GreaterThanValue;
end;

Здесь при сравнении на равенство берётся погрешность в 1 миллисекунду, а сравнение на больше/меньше - прямым сравнением значений.

Сообщение от MAcK

Очень просто

MAcK, кстати, таким способом можно создать интервал не более, чем на 49 дней.

@MAcK · 20.03.2012, 21:41

deathNC, Есть функция CompareDate and CompareDateTime.

Mawrat, Ну так нам на 14 дней

И поставленное условие выполнено.

deathNC · 21.03.2012, 12:15

Сообщение от MAcK

deathNC, Есть функция CompareDate and CompareDateTime.

ну, про это я знаю

Не по теме:

я вообще обильно юзаю модуль DateUtils... но всё же, почему были глюки с простым типом данных? :-[

@AHTOCuK 8 / 8 / 4 Регистрация: 08.10.2009 Сообщений: 103
		1
	Получить дату, на 2 недели раньше 20.03.2012, 01:31. Показов 3318. Ответов 7 Метки нет (Все метки) Требуется узнать дату, которая была 2 недели назад. 0

@MAcK Комбайнёр 1606 / 704 / 77 Регистрация: 27.05.2008 Сообщений: 2,535
	20.03.2012, 21:41	7
	deathNC, Есть функция CompareDate and CompareDateTime. Mawrat, Ну так нам на 14 дней И поставленное условие выполнено. 1

deathNC 1905 / 1016 / 123 Регистрация: 08.12.2009 Сообщений: 2,792 Записей в блоге: 2
	21.03.2012, 12:15	8
	Сообщение от MAcK deathNC, Есть функция CompareDate and CompareDateTime. ну, про это я знаю Не по теме: я вообще обильно юзаю модуль DateUtils... но всё же, почему были глюки с простым типом данных? :-[ 0