Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

несколько перегруженных ф-ий новичкам

Dy1 © (2009-12-08 12:24:00)
Для себя написал модуль, может что можно скопировать из него в 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-28 18:17:00) [1]
код охаян, дописан до состояния "оказывается в проекте можно без этого обойтись" и закинут в дальний угол. Высылаю на мыло

intlex (2009-12-27 21:01:00) [2]
ссылка не работает

(2009-12-11 02:20:00) [3]
Удалено модератором
Примечание: Правила читаем

Игорь Шевченко (2009-12-11 00:23:00) [4]
Dy1 (08.12.09 23:05) [4]

> которая именно?

Комментарий безусловно

Dy1 (2009-12-08 23:05:00) [5]
которая именно?

Игорь Шевченко (2009-12-08 20:27:00) [6]
Вот эта часть наиболее забавна:

procedure IncDaysP(var DateTime: TDateTime; DaysNum: Integer);
begin
DateTime := DateTime + DaysNum; // 謵?뮦孨嬠?⻧?
end;

mdw (2009-12-08 13:48:00) [7]
Еще бы описание что они делают?

Dy1 (2009-12-08 13:45:00) [8]
из нового здесь DayOfMonthD :) , аналога я не нашёл

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »