Справочник по KOL - Функции работы с датами и временем
Ведущий раздела KOL и MCK: Анатолий aka XVeL
Автор: Борис Моренко
WEB-сайт: http://kolmck.net/
function Now: TDateTime;
Возвращает текущую датау и время на
вашем компьютере. TDateTime в KOL ни чем не отличается от VCL аналога.
TDateTime представляет из себя число с плавающей запятой (т.е. Double),
целая часть которого содержит число дней, отсчитанное от некоторого начала
календаря, а дробная часть равна части 24-часового дня, т.е. характеризует
время и не относится к дате.
function CompareSystemTime( const D1, D2: TSystemTime ):
Integer;
Функция сравнивает 2-е записи типа TSystemTime. На
выходе:
-1 если D1 < D2
0 если D1 = D2
1 если D1 > D2.
TSystemTime - структура используемая в Winddows API для хранения
данных о датах и времени. IMHO зачастую она даже удобней в использование
обычной TDateTime.
Подробней конечно можно посмотреть и в Win32.hlp, но
всетаки...
Для получения системного времени : GetSystemTime
Для
установки системного времени на вашем компьютере: SetSystemTime
type
PSystemTime = ^TSystemTime;
TsystemTime = record
wYear: Word; //год
wMonth: Word; //месяц
wDayofWeek: Word; //день недели
wDay: Word; //день
wHour: Word; //часы
wMinute: Word; // минуты
wSecond: Word; // секунды
wMilliseconds: Word; // миллисекунды
end;
procedure IncDays( var SystemTime: TSystemTime; DaysNum:
Integer );
Увеличивает или уменьщает количество дней в записи типа
TSystemTime. DaysNum может быть отрицательным.
procedure IncMonths( var SystemTime: TSystemTime; MonthsNum: Integer
);
Увеличивает или уменьщает количество дней в записи типа
TSystemTime. DaysNum может быть отрицательным. Правильный результат не
гарантирован если число дней превышено для нового месяца
function IsLeapYear( Year: Word ): Boolean; .
Возвращает
true если указанные год Year является высокосным (то есть имеет 29 дней в
Феврале).
function DayOfWeek( Date: TDateTime ): Integer;
Возвращает
день недели (от 0 до 6) для текушей даты.
function SystemTime2DateTime( const SystemTime: TSystemTime; var
DateTime: TDateTime ): Boolean;
Преобразует дату из типа
TSystemTime в TDateTime
function DateTime2SystemTime( const DateTime: TDateTime; var
SystemTime: TSystemTime ): Boolean;
Преобразует дату из типа
TDateTime в TSystemTime.
function CatholicEaster( nYear: Integer ): TDateTime;
Возвращает дату католического рождества в указаном году
|
