UTC时间转换为本地时间 UTCToLocalTime

function UTCToLocalTime( UTCTime : TDateTime; iTimeZoneBias:integer ): TDateTime;
var
    LocalSTime, UTCSTime : TSystemTime;
    TZInfo : TTimeZoneInformation;
    PTZInfo : PTimeZoneInformation;
    CalcResult : LongBool;
    LastError : LongInt;
begin

    GetTimeZoneInformation( TzInfo );
    Tzinfo.bias := Tzinfo.bias + iTimeZoneBias*60;
    PTZInfo := @TZInfo;

    DateTimeToSystemTime( UTCTime, UTCSTime );
    CalcResult := SystemTimeToTzSpecificLocalTime( PTzInfo, UTCSTime,
LocalSTime );
    if not CalcResult then begin
        LastError := GetLastError;
        raise Exception.Create(SysErrorMessage(LastError));
    end;

    Result := SystemTimeToDateTime( LocalSTime );

end;

 

//主要用到两个重要的函数：

//  GetTimeZoneInformation;得到时区信息
//  SystemTimeToTzSpecificLocalTime;根据时区设置本地时间；