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

[Dunpeal]

Моэет быть кто-то уже сталкивался с такой проблемой. Необходимо посчитать сколько определенных дней входит в промежуток времени.
Пример: Есть у нас дата начала действия договора (дата1) и дата его окончания (дата2) необходимо посчитать сколько пятых дней входит в этот промежуток (5 января, 5 февраля, 5 марта, 5 апреля, 5 мая и т.д.)
Ну или как вариант подскажите как можно увеличивать дату на 1 день, так чтобы все было корректно... (30 января, 31 января, 1 февраля,...,27февраля, 28 февраля, 1 марта(если год високосный то 29 февраля)).

[Баламут]

var
Data: TDate;

.....
Data := Data + 1;

Увеличиваем дату на 1 день. Ей Богу не вру!

[Altera]

Сообщение от Баламут

var
Data: TDate;

.....
Data := Data + 1;

Увеличиваем дату на 1 день. Ей Богу не вру!

А на месяц, а на год?
--------------------------
Честно говоря я с датой и с времинем работаю несколько иначе.

function{ Дата и время }clocker: string;
var
mSecond, second, minute, hour, day, month, year: string;
dt: tSystemTime;
begin
   getLocalTime(dt);
   mSecond := intToStr(dt.wMilliseconds);
   second := intToStr(dt.wSecond);
   minute := intToStr(dt.wMinute);
   hour := intToStr(dt.wHour);
   day := intToStr(dt.wDay);
   month := intToStr(dt.wMonth);
   year := intToStr(dt.wYear);
   if length(mSecond) < 1 then mSecond := '000';
   if length(mSecond) < 2 then mSecond := '00' + mSecond;
   if length(mSecond) < 3 then mSecond := '0' + mSecond;
   if length(second) < 2 then
   begin
      if length(second) < 1 then second := '00'
      else second := '0' + second;
   end;
   if length(minute) < 2 then
   begin
      if length(minute) < 1 then minute := '00'
      else minute := '0' + minute;
   end;
   if length(hour) < 2 then
   begin
      if length(hour) < 1 then hour := '00'
      else hour := '0' + hour;
   end;
   if length(day) < 2 then day := '0' + day;
   if length(month) < 2 then month := '0' + month;
   result := hour+':'+minute+':'+second+':'+mSecond+' <> '+day+'-'+month+'-'+year;
end;

Это так, общий вид... Мне нравиться.
А как из date, можно извлеч, скажем день
Только strToInt(copy(dateToStr(date), 1, 2)); ???

Вот свой компонент написал для этого (вилоизменил tLabel)
Показывает дату и время, может быть полезен.

[Баламут]

procedure TForm1.Button1Click(Sender: TObject);
var
  Data: TDate;
  Day, Month, Year: WORD;
begin
Data := Date;
DecodeDate(Data, Year, Month, Day);
Inc(Year);
Data := EncodeDate(Year, Month, Day);
Edit1.Text := DateToStr(Data);
end;

Так можно. Естественно проверки диапазонов дней и месяцев (ну и лет в общем-то) нужно сделать. Функция DecodeTime тоже существует.

[Altera]

Спасибо, не знал...

[dimonbest]

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

Ну или как вариант подскажите как можно увеличивать дату на 1 день, так чтобы все было корректно... (30 января, 31 января, 1 февраля,...,27февраля, 28 февраля, 1 марта(если год високосный то 29 февраля)).

IncDay
IncMonth
Здесь описание на русском
http://delphibasics.ru/I.php