Timeout-Funktion

[Tom2]

Hi

Ich bin's nochmals. Vielleicht sollte ich auch meine timeStamp-Funktion postn...

Ich habe einmal folgende Funktion dafür geschrieben:

Private Sub Pause(ByVal Seconds)
  Dim t
  t = timeStamp(Seconds)
  Do until timeStamp(0) >= t
  Loop
End Sub

Private Function timeStamp(ByVal Seconds)
  timeStamp = Int(Now) + (Timer + Seconds) / 86400
End Function

FG

Tom2