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;
Возвращает дату католического рождества в указаном году
|