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

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

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

---

← →
Palladin ©   (2003-06-22 16:03) [5]

IntToStr(I)

---

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

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



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