Непонятки с timestamp (Unix-Time) в VBA

[Debauchee]

Всем доброго времени суток!
Стоит задача выгружать данные из Excel в mySQL базу. Дата/время должна быть в формате Unix-time (кол-во секунд, прошедших с 1-1-1970). Вроде бы все понятно:

Public Function unixTime(ByVal dt As String) As Long
	unixTime = DateDiff("s", DateValue("1.1.1970"), DateValue(dt))
End Function

Debug.Print unixTime("24.1.2015")

получаем
1422057600

однако, это неправильно, должно быть
1422046800
т.е. ошибка в 10800 секунд.

Найденный в инете вариант решения:

Debug.Print ((DateSerial(2015, 1, 24) - #1/1/1970#) * 60& * 60& * 24&)

дает такой же неверный результат

Проверяем Perl(ом)

use strict;
use Time::Local;
my $d = 24;
my $m = 1;
my $y = 2015;
my $ut = timelocal(0, 0, 0, $d, $m-1, $y);
print $ut;

и действительно, получаем ожидаемое 1422046800

Вероятно можно вычесть из полученного в VBA результата 10800, и будет ожидаемое значение, но как-то стремно это делать т.к. не понимаю причину ошибки...

В чем моя ошибка?

Заранее благодарю за совет!

[Аватар]

Часовой пояс учитывать? Тот cдвиг и есть 3 часа

[Казанский]

10800 секунд = 3 часа. Это разность между GMT и вашим часовым поясом. Perl, видимо, учитывает системные настройки часового пояса и корректирует соответственно.
Вот например онлайн-конвертер, который тоже это учитывает:http://www.cy-pr.com/tools/time/

Конвертивание эпохи Unix в человекопонятную дату(human readable date)

1422057600
Timestamp в обычную дату
GMT: Sat, 24 Jan 2015 00:00:00 GMT
Ваша временная зона: 24.01.2015, 3:00:00

Так что если в Excel время указано местное, вычитайте 10800.

[Debauchee]

Огромнейшее спасибо!
Пора мне на пенсию - напрочь забыл про часовые пояса