UNIXTIME <-> lesbares Datum (konvertieren)

[scoovie]

Hallo Jungs und Mädels,

ich suche eine Möglichkeit, einen Unix-Timestamp in ein lesbares Datum umzurechnen oder eben umgekehrt ... mit VBScript.

Bevor jetzt jemand n Link auf http://www.unixtime.de/ o.ä. postet, das soll das Script schon selber können

[scoovie]

Gibt den aktuellen Unixtimestamp (Millisekunden seit 01. Januar 1970) zurück.

(Nicht ganz exakt, da die Uhrzeit nicht berücksichtigt wird)

Function GetTimeStamp()

  GetTimeStamp = DateDiff ("s", "1 1 1970", Date) * 1000

End Function