Delphi-эквивалент C# DateTime.IsDaylightSavingTime() метод нужен

может быть, это перебор для вашего конкретного приложения, но проект с открытым исходным кодом "база данных часовых поясов Olson для Delphi" позволяет получить доступ к все часовые пояса при поддержке база данных tz. База данных регулярно обновляется с новейшими переход на летнее время изменения или исправления.

TZDB можно скомпилировать на Delphi 6, 7, 8, 9, 10 2007, , 2009, 2010 и XE или FreePascal 2.0 и выше. TZDB-это лучший используется с Delphi XE, который вводит класс TTimeZone в RTL.

Ondra C. -

Да, вы правы. Вам нужно:

1. установить TDateTime в Delphi переменной даты/времени

2. преобразовать его в Windows SystemTime

3. вызовите GetTimeZoneInformation (), чтобы получить TTimeZoneInformation

4. вызовите GetTimeZoneInformationForYear (), с вашей структурой TTimeZoneInformation, чтобы получить информацию DST для вашего часового пояса (я не уверен, где вы получите TTimeZoneInformation для некоторого произвольного часового пояса-но вы должны быть в состоянии найти его на MSDN).

5. сделайте арифметику, чтобы увидеть, происходит ли ваше системное время после TTZI.StandardDate (в этом случае это стандартное время) или после TTZI.DaylightDate (в этом случае это DST).

альтернативно ...

возможно, вы могли бы просто преобразовать это в Delphi таблица:

http://www.twinsun.com/tz/tz-link.htm

для любого datetime в любом часовом поясе, просто посмотрите, попадает ли данное datetime в DST или вне его. Вуаля! Нет Microsoft APIs-просто простой поиск таблицы или блок if / else case!

'надеюсь, это поможет .. pSM

Как вы сами говорите, эта информация не хранится в комплекте с датами в Delphi, поэтому вы не можете просто перенести это. Каждую процедуру, которая proceduces в tdatetime бы добавить эту информацию, чего не бывает в Дельфах.

может быть, вы должны объяснить больше, что вы действительно пытаетесь сделать, и описать проблему меньше по аналогии

я использовал .NET reflector для просмотра реализации этой функции .сеть. Он определяется следующим образом, может быть, вы можете преобразовать математику в Delphi? Если вам нужно копнуть глубже в это, я предлагаю открыть рефлектор для себя. Я думаю, это поможет вам!

public static bool IsDaylightSavingTime(DateTime time, DaylightTime daylightTimes)
{
    return (CalculateUtcOffset(time, daylightTimes) != TimeSpan.Zero);
}

internal static TimeSpan CalculateUtcOffset(DateTime time, DaylightTime daylightTimes)
{
    if (daylightTimes != null)
    {
        DateTime time4;
        DateTime time5;
        if (time.Kind == DateTimeKind.Utc)
        {
            return TimeSpan.Zero;
        }
        DateTime time2 = daylightTimes.Start + daylightTimes.Delta;
        DateTime end = daylightTimes.End;
        if (daylightTimes.Delta.Ticks > 0L)
        {
            time4 = end - daylightTimes.Delta;
            time5 = end;
        }
        else
        {
            time4 = time2;
            time5 = time2 - daylightTimes.Delta;
        }
        bool flag = false;
        if (time2 > end)
        {
            if ((time >= time2) || (time < end))
            {
                flag = true;
            }
        }
        else if ((time >= time2) && (time < end))
        {
            flag = true;
        }
        if ((flag && (time >= time4)) && (time < time5))
        {
            flag = time.IsAmbiguousDaylightSavingTime();
        }
        if (flag)
        {
            return daylightTimes.Delta;
        }
    }
    return TimeSpan.Zero;
}

вы можете найти пример этого в библиотека кодов джедаев (С открытым исходным кодом) в JclDateTime.блок pas, в функции LocalDateTimeToDateTime. Информация о летнее время извлекается и используется для преобразования В и из времени UTC.

Я знаю, что это не ответ на ваш вопрос, но вас могут заинтересовать следующие две функции:SystemTimeToTzSpecificLocalTime() и TzSpecificLocalTimeToSystemTime(). Первый преобразует универсальное время в соответствующее время для указанного часового пояса (где nil означает локальный часовой пояс). Другой работает наоборот, но включен только в Windows XP и выше, как говорит Borland Help. Если вы собираетесь делать только преобразование времени в зависимости от часового пояса, они должны быть в порядке для вас. И это хорошо знать. что они проверяют, является ли время UTC заданным DST или стандартным временем. Я не читал нигде. Я только что проверил это сам, поэтому, пожалуйста, поправьте меня, если я ошибаюсь.

пожалуйста, смотрите следующую функцию. Я не уверен, буду ли я использовать его где-нибудь, потому что я не уверен в его правильности, но, возможно, стоит посмотреть. И, пожалуйста, не говорите мне, что это глупый метод, потому что я знаю это :-).

function IsDaylightSavingTime(lLocalTime: TDateTime): boolean;
var
  lUniversalSystemTime: TSystemTime;
  lLocalSystemTime: TSystemTime;
  lTimeZoneInfo: TTimeZoneInformation;
begin
  case GetTimeZoneInformation(lTimeZoneInfo) of
    TIME_ZONE_ID_UNKNOWN:
      begin
        Result := False;
        Exit;
      end;

    TIME_ZONE_ID_STANDARD,
    TIME_ZONE_ID_DAYLIGHT: ;

  else
    //TIME_ZONE_ID_INVALID:
    RaiseLastOSError();
  end;

  DateTimeToSystemTime(lLocalTime, lLocalSystemTime);
  if not TzSpecificLocalTimeToSystemTime(nil, lLocalSystemTime, lUniversalSystemTime) then
    RaiseLastOSError();

  Result := SameTime(SystemTimeToDateTime(lUniversalSystemTime),
    IncMinute(lLocalTime, lTimeZoneInfo.DaylightBias + lTimeZoneInfo.Bias));
end;