[makk]

Доброго времени суток! Как можно(если это вообще возможно) добавить например к дате 22.04.2011 + 24 дней = 16.05.2011?

[makk]

Тема закрыта! Вопрос решился вот если кому то пригодится

var
myDate : TDateTime;
begin
// Устанавливаем нашу дату как раз перед концом 2000 года
myDate := EncodeDate(2000, 12, 30);
ShowMessage('моя дата = '+DateToStr(myDate));

// Добавить 10 дней к этой дате
myDate := IncDay(myDate, 10);
ShowMessage('моя дата + 10 дней = '+DateToStr(myDate));

// Subtract 12 days from this date
myDate := IncDay(myDate, -12);
ShowMessage('моя дата - 12 дней = '+DateToStr(myDate));
end;
моя дата = 30/12/2000
моя дата + 10 дней = 09/01/2001
моя дата - 12 дней = 29/12/2000

[Konrad]

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

Доброго времени суток! Как можно(если это вообще возможно) добавить например к дате 22.04.2011 + 24 дней = 16.05.2011?

PHP код:

t:=strtodate('22.04.2011');
edit1.Text:=datetostr(t+24); 


[chainik]

это возможно. Дело в том что дата/время в Delphi представляется числом типа float причем целая часть- это число суток, а дробная часть- соответственно доля суток от некоторой начальной даты.
Так что можете использовать любые матем операции (попробуйте извлечь из даты корень кв)
Но лучше и проще использовать функции модуля DateUtil

В вашем случае-IncDay.

function IncDay(const AValue: TDateTime; const ANumberOfDays: Integer = 1): TDateTime;

[chainik]

это возможно. Дело в том что дата/время в Delphi представляется числом типа float причем целая часть- это число суток, а дробная часть- соответственно доля суток от некоторой начальной даты, в качестве которой принята дата 30 дек 1899г 00час 00мин.
Так что можете использовать любые матем операции (попробуйте извлечь из даты корень кв)
Но лучше и проще использовать функции модуля DateUtil

В вашем случае-IncDay.

function IncDay(const AValue: TDateTime; const ANumberOfDays: Integer = 1): TDateTime;