Работа с датой

← →
Kot_ (2006-02-12 15:29) [0]

Доброго времени суток.
Как узнать, в ходит ли определенная дата в диапазон дат? Например: 15.01.2006 входит ли в диапазон от 10.01.2006 до 20.02.2006.
И еще один вопрос, как можно увеличить дату на 1 месяц?

← →
tesseract © (2006-02-12 15:40) [1]

DAte можно сравнивать.
Наприме
if (DAta<CurrentDate ) or (DAte>CurrentDAte) then .....

Можно выяснить сколько дней прошло между датами

function DaysBetween(const ANow, AThen: TDateTime): Integer;

Можно раскодировать DAte в год/месяц/день

procedure DecodeDate(Date: TDateTime; var Year, Month, Day: Word);

И закодировать обратно

function EncodeDate(Year, Month, Day: Word): TDateTime;

Все функции находяться в SysUtils.
В каком напралении думать понятно, надеюсь :-)

← →
vovnuke © (2006-02-12 16:03) [2]

IncMonth(const DateTime: TDateTime, [NumberOfMonth: Integer = 1])

← →
Virgo_Style © (2006-02-12 16:16) [3]

IncDay (c) нужное количество раз :o)

> Как узнать, в ходит ли определенная дата в диапазон дат?
> Например: 15.01.2006 входит ли в диапазон от 10.01.2006
> до 20.02.2006.

Также, как и с обычными числами. TDateTime объявлен:
type TDateTime = type Double;
Поэтому с ним можно работать и как с обычным действительным числом двойной точности, где целая часть указывает на число дней с 30.12.1899.

Работа с датой Найти похожие ветки