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

Вниз

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

 
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 вся ветка

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

Наверх




Память: 0.48 MB
Время: 0.003 c
15-1431984602
Юрий
2015-05-19 00:30
2016.01.17
С днем рождения ! 19 мая 2015 вторник


15-1431703136
Дмитрий С
2015-05-15 18:18
2016.01.17
Оптимизирует ли СУБД и клиент передачу данных?


15-1431625439
кгшзх
2015-05-14 20:43
2016.01.17
зависимость g от широты


15-1431844499
Pavelnk
2015-05-17 09:34
2016.01.17
Моя поделка)


2-1404635754
ElenkaG
2014-07-06 12:35
2016.01.17
PaintBox