Odpowiedniki funkcji

0

Witam!

Jakie są odpowiedniki funkcji z PHP w Delphi:
1) gmmktime();
2) mktime();

Pozdrawiam,
KWA KWA

0

nie jestem pewien, czy istnieją takowe odpowiedniki wśród standardowych bibliotek Delphi, bo przeliczanie jest banalne - t_time i tdatetime różni się tylko punktem zaczepienia początka osi czasu. wystarczy dodać albo odjąć 25569 (tyle dni różnicy między dniami "0").

0

Znalazłem opis i odpowiednik jednej funkcji, lecz wciąż mam problem z drugą.

gmmktime() = Ustala uniksowy znacznik czasu dla daty ze strefy GMT
mktime() = Ustala uniksowy znacznik czasu dla podanej daty

Przerobione mktime() na Delphi wygląda tak: DateTimeToUnix(Now);
Teraz pytanie. Jak zrobić, by aktualny DateTime przekonwertować na GMT??

Pozdrawiam,
KWA KWA

0

gmmktime(); w przełożeniu. Może występować błąd.

uses
  Windows, DateUtils, SysUtils;

function LocalToGMTUnixDateTime:Int64;
var
  TZ: TTimeZoneInformation;
  roznica, localtime, gmttime: int64;
begin
  GetTimeZoneInformation(TZ);
  roznica := TZ.Bias * 60;
  localtime := DateTimeToUnix(Now);
  gmttime := localtime+roznica;
  LocalToGMTUnixDateTime := gmttime;
end;

Pozdrawiam

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0