UnixTime

@bahus_2014 · Регистрация: 19.07.2013

Author24 — интернет-сервис помощи студентам

Есть алгоритм который нашел в инете и он совпадает реально секудна в секунду с Unix временем, вот он:

Delphi

function SYTEMTIMEToSeconds(_systime: SYSTEMTIME): Int64;
var
fltime: FILETIME;
sec: ULARGE_INTEGER;
begin
    SystemTimeToFileTime(_systime, fltime);
    sec.HighPart := fltime.dwHighDateTime;
    sec.LowPart := fltime.dwLowDateTime;
    result := sec.QuadPart;
end;
 
 
function UnixTime2: DWORD;
var
nowsystime: SYSTEMTIME;
nowsecnds: Int64;
unixsecnds: Int64;
unixtime: SYSTEMTIME;
begin
GetSystemTime(nowsystime);
nowsecnds := SYTEMTIMEToSeconds(nowsystime);
unixtime.wYear := 1970;
unixtime.wMonth := 1;
unixtime.wDay := 1;
unixtime.wHour := 0;
unixtime.wMinute := 0;
unixtime.wSecond := 0;
unixtime.wMilliseconds := 0;
unixsecnds := SYTEMTIMEToSeconds(unixtime);
result := (nowsecnds - unixsecnds) div 10000000
end;

А это написал я сам и не могу понять почему с ним не совпадает:

Delphi

function UnixTime: DWORD;
  function GetMSec(mm: Word; yy: DWORD): DWORD;
  begin
 
    case mm of
    1:  result := 31;
    3:  result := 31 + 31;
    4:  result := 30 + 31 + 31;
    5:  result := 31 + 30 + 31 + 31;
    6:  result := 30 + 31 + 30 + 31 + 31;
    7:  result := 31 + 30 + 31 + 30 + 31 + 31;
    8:  result := 31 + 31 + 30 + 31 + 30 + 31 + 31;
    9:  result := 30 + 31 + 31 + 30 + 31 + 30 + 31 + 31;
    10: result := 31 + 30 + 31 + 31 + 30 + 31 + 30 + 31 + 31;
    11: result := 30 + 31 + 30 + 31 + 31 + 30 + 31 + 30 + 31 + 31;
    12: result := 31 + 30 + 31 + 30 + 31 + 31 + 30 + 31 + 30 + 31 + 31;
    end;
 
    if mm >= 2 then
      if (yy mod 4) = 0 then
      result := result + 29 else
      result := result + 28;
 
  result := result * 86400;
  end;
 
var
systime: SYSTEMTIME;
i:       DWORD;
begin
result := 0;
GetSystemTime(systime);
 
  for i := 1970 to systime.wYear - 1 do
  result := result + GetMSec(12, systime.wYear);
 
  result := result + GetMSec(systime.wMonth - 1, systime.wYear);
  result := result + (systime.wDay - 1) * 86400 + systime.wHour * 3600 + systime.wMinute * 60 + systime.wSecond;
 
end;

@mss · 12.08.2013, 09:50

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

почему с ним не совпадает

Хотя бы потому что размер результата разный - qword vs dword

@bahus_2014 · 12.08.2013, 12:26 **[ТС]**

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

Хотя бы потому что размер результата разный - qword vs dword

точно не из-за размера, пока что Unix время и в DWORD влазиет, и значения обеих функций достаточно близкие получаются, вот например
UnixTime2: 1376295375

в моей
UnixTime: 1375344975

разница 660 суток

@mss · 12.08.2013, 12:44

А зачем вообще нужно так извращаться ?
1. получаешь значение момента времени 01.01.1970 00:00:00 в переменную dt1: TDateTime;
2. получаешь GetSystemTime, конвертируешь его в dt2: TDateTime
3. с пом. SecondsBetwwen() получаешь искомую разницу в секундах между временными метками dt2 и dt1

@bahus_2014 · 12.08.2013, 15:36 **[ТС]**

Ну первый способ тоже рабочий, но теперь самому интересно почему мой не работает

Добавлено через 1 час 31 минуту
Нашел ошибку, надо так

Delphi

1 2	for i := 1970 to systime.wYear - 1 do result := result + GetMSec(12, i);

@mss 2664 / 2270 / 279 Регистрация: 24.12.2010 Сообщений: 13,723
	12.08.2013, 09:50	2
	Сообщение от bahus_2014 почему с ним не совпадает Хотя бы потому что размер результата разный - qword vs dword 0

@bahus_2014 0 / 0 / 0 Регистрация: 19.07.2013 Сообщений: 8
	12.08.2013, 12:26 [ТС]	3
	Сообщение от mss Хотя бы потому что размер результата разный - qword vs dword точно не из-за размера, пока что Unix время и в DWORD влазиет, и значения обеих функций достаточно близкие получаются, вот например UnixTime2: 1376295375 в моей UnixTime: 1375344975 разница 660 суток 0

@mss 2664 / 2270 / 279 Регистрация: 24.12.2010 Сообщений: 13,723
	12.08.2013, 12:44	4
	А зачем вообще нужно так извращаться ? 1. получаешь значение момента времени 01.01.1970 00:00:00 в переменную dt1: TDateTime; 2. получаешь GetSystemTime, конвертируешь его в dt2: TDateTime 3. с пом. SecondsBetwwen() получаешь искомую разницу в секундах между временными метками dt2 и dt1 0

	12.08.2013, 15:36

Опции темы