Функции работы с датами и временем
Функции работы с датами и временем
Функции работы с датами и временем 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 Листинг 1. Код Delphi/Pascal 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; Возвращает дату католического рождества в указаном году Борис Моренко
