Как в Delphi узнать текущее UTC время (now)?

[Anfall]

Доброго времени суток всем. Собственно говоря, сабж.
Заранее благодарен.

[Stilet]

GetTimeZoneInformation даст тебе структуру, где есть поле bias
А дальше по хелпу:

All translations between UTC time and local time are based on the following formula:


UTC = local time + bias


The bias is the difference, in minutes, between UTC time and local time.

Смысл усек?

[Anfall]

Сообщение от Stilet

GetTimeZoneInformation даст тебе структуру, где есть поле bias
А дальше по хелпу:

Смысл усек?

Спасибо. Примерно понял, но где-то ошибку делаю.

procedure TForm1.Button1Click(Sender: TObject);
var
ZoneInfo: TTimeZoneInformation;
tmp : TDateTime;
begin
tmp:=now+ZoneInfo.Bias;
button1.Caption:=datetimetostr(tmp);
end;

Выдает какой-то бред. Меняет только год, и то на 48096.

[Stilet]

GetTimeZoneInformation где?
Ты с ее помощью должен получить значения в ZoneInfo

[Anfall]

Сообщение от Stilet

GetTimeZoneInformation где?
Ты с ее помощью должен получить значения в ZoneInfo

Да, точно, забыл.
Добавил: GetTimeZoneInformation(ZoneInfo);
Но все равно, почему-то меняется дата на 12.04, а время остается прежним.

--------------------

Вот еще в интернете откопал:

var
UTC: TSystemTime;
s:string;
begin
GetSystemTime(UTC);
s:=IntToStr(UTC.wDay)+':'+IntToStr(UTC.wMonth)+':'+
   IntToStr(UTC.wYear)+' '+IntToStr(UTC.wHour)+':'+
   IntToStr(UTC.wMinute)+':'+IntToStr(UTC.wSecond);

Я так понимаю он берет системное время и дату, которые всегда в UTC. Но какой из способов предпочтительнее?

[Diogo76]

Сообщение от Anfall

Спасибо. Примерно понял, но где-то ошибку делаю.

procedure TForm1.Button1Click(Sender: TObject);
var
ZoneInfo: TTimeZoneInformation;
tmp : TDateTime;
begin
tmp:=now+ZoneInfo.Bias;
button1.Caption:=datetimetostr(tmp);
end;

Выдает какой-то бред. Меняет только год, и то на 48096.

Ну что ты ему сказал делать, то оно тебе и пишет... ZoneInfo.Bias содержит смещение в минутах от UTC. И что будет, если прибавить число 240 например к переменной типа TDateTime? Попробуй перед прибавлением сделать button1.Caption:=datetimetostr(Zone Info.Bias);

[Diogo76]

GetSystemTime - возвращает UTC (исходя из установок часового пояса на вашем компьютере)