Краткое описание :

Нужны функции To_GMT и From_GMT(datetime): datetime

Описание :

неотклассифицировано

Что измененно :

Функции прикладного программиста.

----- СУТЬ ПРЕДЛОЖЕНИЯ -----

Реализовать функции преобразования указанного времени во время заданного офиса с учетом его часового пояса.

Как измененно :

Зарегистрированы следующие новые функции:
1)
Функции, преобразующие время нулевого часового пояса (UTC+0) во время с учетом часового пояса указанного офиса (UTC+N).
function To_GMT_Office(aDateTime: TDateTime; aOfficeNo: Word): TDateTime;
function To_GMT(aDateTime: TDateTime): TDateTime;

aDateTime - тип DateTime, время нулевого часового пояса (UTC+0).
aOfficeNo - тип Word, номер офиса. Значение 0 соответствует текущему офису.

2)
Функции, преобразующие время с учетом часового пояса указанного офиса (UTC+N) во время нулевого часового пояса (UTC+0).
function From_GMT_Office(aDateTime: TDateTime; aOfficeNo: Word): TDateTime;
function From_GMT(aDateTime: TDateTime): TDateTime;

aDateTime - тип DateTime, время с учетом часового пояса указанного офиса (UTC+N).
aOfficeNo - тип Word, номер офиса. Значение 0 соответствует текущему офису.

3)
Универсальная функция.
function Shift_Office_GMT(aDateTime: TDateTime; aOfficeNo: Word; aInc: Boolean): TDateTime;

aInc - тип Boolean. Если значение TRUE, то функция работает как To_GMT_Office и To_GMT, если FALSE - From_GMT_Office и From_GMT.
Функции To_GMT_Office, To_GMT, From_GMT_Office и From_GMT является обвертками над функцией Shift_Office_GMT.

4)
Функция преобразования времени с учетом часового пояса первого указанного офиса во время с учетом часового пояса второго офиса.
function Convert_Offices_DateTime(aDateTime: TDateTime; aFrom_OfficeNo: Word; aTo_OfficeNo: Word): TDateTime;

aDateTime - тип DateTime, время с учетом часового пояса первого указанного офиса.
aFrom_OfficeNo - тип Word, номер первого указанного офиса. Значение 0 соответствует текущему офису.
aTo_OfficeNo - тип Word, номер второго указанного офиса. Значение 0 соответствует текущему офису.

Если вышеуказанные функции завершились с ошибкой, то их результатом будет rvMinDateTime (равнозначное значение 0).