Форум: "Начинающим";
Текущий архив: 2009.12.20;
Скачать: [xml.tar.bz2];
ВнизДата перехода на летнее/зимнее время Найти похожие ветки
← →
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;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.005 c