Функции работы с датами и временем

Источник: KOL.mastak.ru

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



Опубликовал admin
8 Янв, Четверг 2004г.



Программирование для чайников.