Текущий архив: 2003.07.03;
Скачать: 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 вся ветка
Текущий архив: 2003.07.03;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.014 c
