Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2009.12.20;
Скачать: CL | DM;

Вниз

Дата перехода на летнее/зимнее время   Найти похожие ветки 

 
worldmen   (2009-11-01 00:25) [0]

Как вычислить даты в которые нужно переводить часы на летнее/зимнее время?


 
Юрий Зотов ©   (2009-11-01 01:47) [1]

Переход на зимнее время осуществляется в последнее воскресенье октября.
Переход на летнее время осуществляется в последнее воскресенье марта.

Остальное легко делается утилитами из SysUtils, например:

function GetSummerTimeDate(Year: word): TDate;
begin
 Result := EncodeDate(Year, 3, 24);
 while DayOfWeek(Result) <> 1 do
   Result := IncDay(Result)
end;

function GetWinterTimeDate(Year: word): TDate;
begin
 Result := EncodeDate(Year, 10, 24);
 while DayOfWeek(Result) <> 1 do
   Result := IncDay(Result)
end;


 
begin...end ©   (2009-11-01 10:23) [2]

> Юрий Зотов ©   (01.11.09 01:47) [1]
> Result := EncodeDate(Year, 3, 24)
Почему 24?

> worldmen   (01.11.09 00:25)

function GetSummerTimeDate(Year: Word): TDate;
var
 LastDay: TDate;
begin
 LastDay := EncodeDate(Year, 5, 31);
 Result := LastDay - DayOfWeek(LastDay) + 1
end


 
begin...end ©   (2009-11-01 10:28) [3]

В [2] опечатка:
LastDay := EncodeDate(Year, 3, 31).



Страницы: 1 вся ветка

Текущий архив: 2009.12.20;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.01 c
2-1257016742
maxstarts
2009-10-31 22:19
2009.12.20
Программа виснет при скрытие вкладок pagecontrol ов


6-1209028510
ivanov
2008-04-24 13:15
2009.12.20
3агрузить страницу с подменой своего стиля


2-1256898581
Oleg1963
2009-10-30 13:29
2009.12.20
Компонент Еdit в цикле


15-1256063303
TUser
2009-10-20 22:28
2009.12.20
Вклад метагеномики в микробиологию, экологию и медицину


2-1256708612
Dim!S
2009-10-28 08:43
2009.12.20
Удаление большого количества записей firebird 1.5