Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.01.23;
Скачать: CL | DM;

Вниз

Глупый вопрос про дату   Найти похожие ветки 

 
TAN   (2003-01-15 10:44) [0]

Как прибавить к дате ровно один год (что бы там всякие высакосные не высчитывать)
Например в ПХП есть такое (data+1 year)


 
RWolf   (2003-01-15 10:46) [1]

DecodeDate(MyDate,Year, Month, Day);
inc(Year);
MyDate:=EncodeDate(Year, Month, Day);


 
Zz_   (2003-01-15 10:46) [2]

IncYear в Unit DateUtils


 
RWolf   (2003-01-15 10:50) [3]

Zz_
в D5 вроде как нет такого


 
Zz_   (2003-01-15 10:54) [4]

D6


 
REA ©   (2003-01-15 11:29) [5]

В D7 изврат такой:
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;

procedure IncAMonth(var Year, Month, Day: Word; NumberOfMonths: Integer = 1);
var
DayTable: PDayTable;
Sign: Integer;
begin
if NumberOfMonths >= 0 then Sign := 1 else Sign := -1;
Year := Year + (NumberOfMonths div 12);
NumberOfMonths := NumberOfMonths mod 12;
Inc(Month, NumberOfMonths);
if Word(Month-1) > 11 then // if Month <= 0, word(Month-1) > 11)
begin
Inc(Year, Sign);
Inc(Month, -12 * Sign);
end;
DayTable := @MonthDays[IsLeapYear(Year)];
if Day > DayTable^[Month] then Day := DayTable^[Month];
end;

год соответственно 12 месяцев. Хм. А попроще никак что ли? Кстати оно проверяет на високосность то и лежит все это безобразие в SysUtils;



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

Текущий архив: 2003.01.23;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.018 c
4-72578
Sergei
2002-12-06 16:52
2003.01.23
Добавление Control В Диалоговое меню


14-72540
Poirot
2003-01-03 08:57
2003.01.23
Киньте примеры к книгеDirectX. Графика в проектах Delphi.


1-72199
Олег
2003-01-14 11:12
2003.01.23
---|Ветка была без названия|---


3-72085
Yrtimd
2002-12-28 21:36
2003.01.23
как в SQL-запросе задать условие отбора формата


1-72295
stone
2003-01-15 12:51
2003.01.23
Программное выключение компьютера. В чем ошибка?