Wie man Sekunden seit Epoche (1/1/1970) in VBA?

Wie bekomme ich die Sekunden seit epoch (1/1/1970) in VBA?

InformationsquelleAutor aF. | 2010-02-13

  1. 17

    Wie etwa:

    datediff("s",#1970/1/1#,now())
    dies nicht ermöglicht, Zeitzonen, unix-Zeit ist utc
    Ja, ich habe ihn an diesem datediff("s",#1970/1/1#,dateadd("h",5,now()))... nicht sicher, was ich tun werde, wenn Sommerzeit herum rollt, obwohl.
    So gibt es keine Weise zu behandeln, die Umstellung auf die UTC automatisch?

    InformationsquelleAutor Fionnuala

  2. 12

    Diese sollte schneller laufen als die DateDiff-Lösung:

    Private Function Long2Date(lngDate As Long) As Date
    Long2Date = lngDate / 86400# + #1/1/1970#
End Function

Private Function Date2Long(dtmDate As Date) As Long
    Date2Long = (dtmDate - #1/1/1970#) * 86400
End Function

    InformationsquelleAutor Oorang

  3. 1

    Hier ist eine Lösung: http://vbcity.com/forums/t/5084.aspx

    Function UnixTime() As Variant
    'The first parameter determines how the 
    ' difference will be measured in i.e. "S" for seconds
    UnixTime = DateDiff("S", "1/1/1970", Now())
End Function

    InformationsquelleAutor

  4. 0

    Ich versuchte, verändert es meine Zeitzone und
    berücksichtigen Sie die Sommerzeit. Zeitzonen können unterschiedliche Einstellungen, wenn es änderungen.

    Function Epoch2Date(lngDate As Long) As Date
'transfer to date
    Epoch2Date = lngDate / 86400# + #1/1/1970#
'check if it is summer time
    If IsDST(Epoch2Date) = False Then
'here you can use diferent values depend on time zone
    Epoch2Date = Epoch2Date - 0.041666667
    Else
    Epoch2Date = Epoch2Date - 0.0833333333333333
    End If
End Function

Public Function IsDST(ByVal d0 As Date) As Boolean
   IsDST = d0 >= NextSun("24.3." & Year(d0) & " 01:59:59") And d0 < NextSun("24.10." & Year(d0) & " 01:59:59")
End Function

Private Function NextSun(d1 As Date) As Date
        'if 24.3 or 24.10 is sunday returns 31.3 or 31.10
        If Weekday(d1, vbMonday) = 7 Then
            NextSun = d1 + 7
        Else
        'if not return nearest sunday
            NextSun = d1 + 7 - Weekday(d1, vbMonday)
        End If
    End Function

    InformationsquelleAutor Lynx

  5. 0

    DateDiff("s", "01/01/1970 00:00:00", Now()) & Format(Now(), "ms")

    UnixTimeStamp = DateDiff("s", "01/01/1970 00:00:00", Now()) & Format(Now(), "ms") geben würde, Sie UnixTimeStamp als 1537362312758

    InformationsquelleAutor JOAN

Schreibe einen Kommentar