Dim sTime As String
Dim sTime2 As String
 
' Zeit in Deutschland
sTime = Time$
 
' Zeit in Costa-Rica (-5 Std.)
sTime2 = Format$(DateAdd("h", -5, _
  CDate("01/01/02 " & sTime)), "hh:nn:ss")

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de