Скачать: CL | DM;

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

← →
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)

---

← →
Marser ©   (2006-02-12 17:57) [4]

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.043 c