Translations:Пример доступа к данным из Excel/20/en

Function Epoch2Date(lngDate As Long) As Date

   ' Set your timezone here
   timeZoneOffset = 2 ' EET
   'transfer to date
   Epoch2Date = (lngDate + 60 * 60 * timeZoneOffset) / 86400# + #1/1/70#
   'check if it is summer time
   If IsDST(Epoch2Date) = False Then
       'here you can use diferent values depend on time zone
       Epoch2Date = Epoch2Date
   Else
       Epoch2Date = Epoch2Date + 1 / 24
   End If

End Function