UNIX Timestamp richtig umrechnen
18.04.2007 07:36:35
SteffenS
ich bekomme aus einer Datenbank einen Unix Timestamp:
z.B.: 1172790000 soll 02.03.2007 00:00 ergeben
Ich habe eine Funktion gefunden
' Unix-Timestamp in lesbares Datum/Zeit konvertieren
' (VB-Date)
</p><pre>Public Function VB_CTime(ByVal dblSec As Double) As Variant
' dblSec = vergangene Sekunden seit 1.1.1970
Dim vStart As Variant
' Fehlerbehandlung einschalten, falls
' dblSec außerhalb des Gültigkeitbereichs
On Error Resume Next
vStart = DateSerial(1970, 1, 1)
VB_CTime = DateAdd("s", dblSec, vStart)
End Function</pre><p>
Diese funktioniert auch.
Das Problem dabei ist nur das die Zeitzone nicht richtig berücksichtigt wird
Bei der Funktion kommt 01.03.2007 23:00 Uhr heraus.
Was muss ich anpassen damit es passt?
Danke im Voraus.
MFG
Steffen Schmerler