Форум: "KOL";
Текущий архив: 2016.01.17;
Скачать: [xml.tar.bz2];
Внизнесколько перегруженных ф-ий новичкам Найти похожие ветки
← →
Dy1 (2009-12-08 12:24) [0]Для себя написал модуль, может что можно скопировать из него в KOLUtils, добавить или оптимизировать...
http://www.dy.cdrrhq.ru/progs/DateCalc.pas
Список функций:
function IncDaysF(DateTime: TDateTime; DaysNum: integer): TDateTime;
function IncDaysF(SystemTime: TSystemTime; DaysNum: integer): TSystemTime;
function IncDaysFconv(DateTime: TDateTime; DaysNum: integer): TSystemTime;
function IncDaysFconv(SystemTime: TSystemTime; DaysNum: integer): TDateTime;
procedure IncDaysP(var DateTime: TDateTime; DaysNum: Integer);
procedure IncDaysP(var SystemTime: TSystemTime; DaysNum: Integer); // kol.IncDays
//------------------------------------------------------------------------------
procedure IncMonthsP(var SystemTime: TSystemTime; MonthsNum: Integer); // kol.IncMonths
procedure IncMonthsP(var DateTime: TDateTime; MonthsNum: Integer);
function IncMonthsF(SystemTime: TSystemTime; MonthsNum: Integer): TSystemTime;
function IncMonthsF(DateTime: TDateTime; MonthsNum: Integer): TDateTime;
function IncMonthsFconv(SystemTime: TSystemTime; MonthsNum: Integer): TDateTime;
function IncMonthsFconv(DateTime: TDateTime; MonthsNum: Integer): TSystemTime;
function DayOfMonthD(Year, Month, NumWeek{0..5}, DayOfWeek{sunday- 0}: word): word;
← →
Dy1 (2009-12-08 13:45) [1]из нового здесь DayOfMonthD :) , аналога я не нашёл
← →
mdw © (2009-12-08 13:48) [2]Еще бы описание что они делают?
← →
Игорь Шевченко © (2009-12-08 20:27) [3]Вот эта часть наиболее забавна:
procedure IncDaysP(var DateTime: TDateTime; DaysNum: Integer);
begin
DateTime := DateTime + DaysNum; // 謵?뮦孨嬠?⻧?
end;
← →
Dy1 (2009-12-08 23:05) [4]которая именно?
← →
Игорь Шевченко © (2009-12-11 00:23) [5]Dy1 (08.12.09 23:05) [4]
> которая именно?
Комментарий безусловно
← →
имя (2009-12-11 02:20) [6]Удалено модератором
Примечание: Правила читаем
← →
intlex (2009-12-27 21:01) [7]ссылка не работает
← →
Dy1 (2009-12-28 18:17) [8]код охаян, дописан до состояния "оказывается в проекте можно без этого обойтись" и закинут в дальний угол. Высылаю на мыло
Страницы: 1 вся ветка
Форум: "KOL";
Текущий архив: 2016.01.17;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.002 c