進んでいたPC時計を戻した場合、戻す前の時間になるまで取得が出来なくなるバグ修正

git-svn-id: http://svn.sourceforge.jp/svnroot/tween/trunk@804 e39ad16e-3079-482e-bb30-4b4d378143b6

diff --git a/Tween/Tween.vb b/Tween/Tween.vb
index e6c96d8..1dee4b5 100644 (file)
--- a/Tween/Tween.vb
+++ b/Tween/Tween.vb
@@ -2324,7 +2324,8 @@ Public Class TweenMain
 
         Static lastTime As New Dictionary(Of WORKERTYPE, DateTime)
         If Not lastTime.ContainsKey(WkType) Then lastTime.Add(WkType, New DateTime)
-        If Now.Subtract(lastTime(WkType)).TotalSeconds > 1 Then
+        Dim period As Double = Now.Subtract(lastTime(WkType)).TotalSeconds
+        If period > 1 OrElse period < -1 Then
             lastTime(WkType) = Now
             RunAsync(args)
         End If