Как узнать дату ?

← →
Lion © (2003-06-14 22:35) [0]

Например, сегодня 14.06.2003 как узнать какое будет число через 2 месяца, т.е. сложение и вычитание дат по месяцам ?

← →
Palladin © (2003-06-14 22:41) [1]

DecodeDate

← →
dtrn (2003-06-14 23:10) [2]

IncMonth(const Date:TDateTime;NumberOfMonths:integer);

← →
Palladin © (2003-06-14 23:24) [3]

ага :)
function IncMonth(const DateTime: TDateTime; NumberOfMonths: Integer): TDateTime;
var
Year, Month, Day: Word;
begin
DecodeDate(DateTime, Year, Month, Day);
IncAMonth(Year, Month, Day, NumberOfMonths);
Result := EncodeDate(Year, Month, Day);
ReplaceTime(Result, DateTime);
end;

← →
11132 (2003-06-22 16:00) [4]

DateToStr(Date)

IntToStr(I)

Как узнать дату ? Найти похожие ветки