Работа с датой (Определение числа в зависимости от даты)

[Marsel737]

Всем доброго времени суток.

Подскажите пожалуйста как бы мне это попроще организовать, вообщем к примеру сегодняшнему дню соответствует число 345, завтрашнеме 346, послезавтрашнему 347 и т.д. до бесконечности. Так вот как бы мне попроще сделать чтобы определялось это самое число в зависимости от даты.

[DeKot]

Вот цитата из учебника А.Я Архангельского "100 компонентов общего назначения" об компоненте DateTimePicker

При чтении Date надо учитывать тип этого свойства — TDateTime, представляющий собой число с плавающей запятой, целая часть которого содержит число дней, отсчитанное от некоторого начала календаря, а дробная часть равна части 24-часового дня, т.е. характеризует время и не относится к дате. Для 32-разрядных версий Delphi за начало календаря принята дата 12/30/1899 00 часов. В Delphi 1 за начало отсчета принят год 1, т.е. для перевода даты Delphi 1 в дату последующих версий Delphi надо вычесть из даты число 693594.

Может поможет.

[Marsel737]

DeKot, спасибо, это уже что-то, но думаю проще будет сделать через нахождение разности двух дат, подскажите только как в toDate запихнуть сегодняшнюю дату

Пример кода : Нахождение разности дней между двумя значениями date+time.

var
  fromdate, toDate : TDateTime;

begin
  // Установка наших переменных дат
  fromDate := EncodeDateTime(2000, 02, 26, 10, 0, 0, 0);
  toDate   := EncodeDateTime(2000, 02, 29,  9, 0, 0, 0);

  // Отображение этих дат и дней между ними
  ShowMessage('С даты = '+DateTimeToStr(fromDate));
  ShowMessage('До даты = '+DateTimeToStr(toDate));
  ShowMessage('Целых дней = '+
              IntToStr(DaysBetween(toDate, fromDate))+' дней');
end;

С даты = 26/02/2000 10:00:00
До даты = 29/02/2000 09:00:00
Целых дней = 2 дней

[DeKot]

как в toDate запихнуть сегодняшнюю дату?

Это о-о-че-е-нь сложный вопрос.
А поиск по форуму , слабо попробовать?

[s.Creator]

Жми F1 на Now() или Date()

[raxp]

now и... просто примерчик...

const c = 345;
var t,k: tdatetime;
begin

 t:= strtodatetime('06.01.2010');
 k:= strtodatetime('07.01.2010');
 caption:= format('%.0f',[k-t + c]);

[Marsel737]

Ну я так поняимаю что туда нужно именно в виде 200, 02, 10, 0, ... дату запизнуть, а не просто DateToStr(Date), а на счёт поиска, я вот тут получше нашол Линк

raxp, что же вы так скромничаете, это не просто примерчик!! Это решение моей проблемы!! Спасибо вам

[mihali4]

Модуль DateUtils. Куча полезностей.
Например:
DayOfTheYear function
DayOfTheMonth function
DayOfTheWeek function
и так далее, до бесконечности...

[s.Creator]

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

Ну я так поняимаю что туда нужно именно в виде 200, 02, 10, 0, ... дату запизнуть, а не просто DateToStr(Date),

Не совсем понял куда запихнуть.
Now() - текущее время ( с датой и без параметров )
Date() - текущая дата ( без параметров ).
т.е.

toDate := Date();