Форум: "Основная";
Текущий архив: 2003.07.03;
Скачать: [xml.tar.bz2];
ВнизКак узнать дату ? Найти похожие ветки
← →
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 вся ветка
Форум: "Основная";
Текущий архив: 2003.07.03;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.008 c