Translations:Пример доступа к данным из Excel/20/en
Материал из WebHMI Wiki
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