Public Function unixtime2date(ByVal pin_sec As Double) As Variant
'Heiko Hommes
'10.09.2008
'Umwandlung unixformat in ein Datum
'pin_sec = vergangene Sekunden seit 1.1.1970  => UNIX Zeit Format/Stempel

  Dim vret As Variant
  v_start = DateSerial(1970, 1, 1)
  unixtime2date = DateAdd("s", pin_sec, v_start)
  
End Function