Добавление даты - Помощь студентам

Mutagena · 23.12.2009, 16:41

Подскажите, как к дате добавить несколько дней. Например, мне нужно анализировать, в каком промежутке находится дата.
Как например, в следующем примере получить переменную FutureDate? Например, она должна составлять NowDate + 10 дней.

Код:

NowDate := Date;
FutureDate := ?????
If (date1 > NowDate) and (date1 < FutureDate) then
begin
end;

Mutagena · 23.12.2009, 18:09

Может кто-нибудь подскажет?

Serge_Bliznykov · 23.12.2009, 19:47

Вы не поверите...

Код:

FutureDate := NowDate + 10;

Mutagena · 23.12.2009, 20:55

Спасибо. А не подскажите как сравнить две даты?

Serge_Bliznykov · 23.12.2009, 21:53

не понял.. так же, как и обычные переменные

Код:

if Date1>Date2 then //Первая дата больше!
else
   // даты равны или вторая дата больше первой

только надо учесть, что в типе данных TDATETIME
есть и составляющая, хранящая время
(до запятой хранится количество дней, а дробная часть - время)
поэтому, если нужно сравнивать только даты, без времени,
то можно сделать trunc( ... ):

Код:

if trunc(Date1)=trunc(Date2) then Даты равны!

Mutagena · 24.12.2009, 12:29

А как правильно получить текущую дату?

mihali4 · 24.12.2009, 12:35

Вы опять-таки не поверите...
Именно так, как у вас написано в первой строке первого поста...

Mutagena · 24.12.2009, 12:38

Цитата:

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

Вы опять-таки не поверите...
Именно так, как у вас написано в первой строке первого поста...

Но почему-то получается какой-то 1899 год. А мне нужна текущая дата (та которая сейчас на календаре).

SERG1980 · 24.12.2009, 13:13

Цитата:

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

Но почему-то получается какой-то 1899 год. А мне нужна текущая дата (та которая сейчас на календаре).

не может быть. попробуйте тогда
NowDate:=Now;

23.12.2009, 16:41	#1
Mutagena Пользователь Регистрация: 06.10.2009 Сообщений: 39	Добавление даты Подскажите, как к дате добавить несколько дней. Например, мне нужно анализировать, в каком промежутке находится дата. Как например, в следующем примере получить переменную FutureDate? Например, она должна составлять NowDate + 10 дней. Код: `NowDate := Date; FutureDate := ????? If (date1 > NowDate) and (date1 < FutureDate) then begin end;`

23.12.2009, 19:47	#3
Serge_Bliznykov Старожил Регистрация: 09.01.2008 Сообщений: 26,229	Вы не поверите... Код: `FutureDate := NowDate + 10;`

23.12.2009, 21:53	#5
Serge_Bliznykov Старожил Регистрация: 09.01.2008 Сообщений: 26,229	не понял.. так же, как и обычные переменные Код: `if Date1>Date2 then //Первая дата больше! else // даты равны или вторая дата больше первой` только надо учесть, что в типе данных TDATETIME есть и составляющая, хранящая время (до запятой хранится количество дней, а дробная часть - время) поэтому, если нужно сравнивать только даты, без времени, то можно сделать trunc( ... ): Код: `if trunc(Date1)=trunc(Date2) then Даты равны!`

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Даты	Sparky	БД в Delphi	6	02.10.2009 09:48
Формат даты	Green_C@t	Общие вопросы Delphi	3	22.09.2009 10:05
Добавление даты в таблицу	smoky	Microsoft Office Access	5	24.11.2008 12:56
Даты не даты	Nasya	Microsoft Office Excel	3	22.08.2007 20:18
вычитание даты	zetrix	Microsoft Office Excel	3	10.11.2006 06:30

23.12.2009, 18:09	#2
Mutagena Пользователь Регистрация: 06.10.2009 Сообщений: 39	Может кто-нибудь подскажет?

23.12.2009, 20:55	#4
Mutagena Пользователь Регистрация: 06.10.2009 Сообщений: 39	Спасибо. А не подскажите как сравнить две даты?

24.12.2009, 12:29	#6
Mutagena Пользователь Регистрация: 06.10.2009 Сообщений: 39	А как правильно получить текущую дату?

24.12.2009, 12:35	#7
mihali4 * Старожил Регистрация: 22.11.2006 Сообщений: 9,201	Вы опять-таки не поверите... Именно так, как у вас написано в первой строке первого поста...